Помощь - Поиск - Пользователи - Календарь
Полная версия: проверка ввода матрицы
Форум «Всё о Паскале» > Современный Паскаль и другие языки > Делфи
-Екатерина-
хочу сделать вот так, но программа не запускается:
constructor matrix.input;
var i,j:integer;
begin
writeln('*****VVOD MATRICI*****');
repeat
writeln('m= ');
{$i-}
readln(m);
{$i+}
err := (ioresult <> 0);
if err then writeln('OSHIBKA! Vvod nedopystimogo znacheniya! Povtorite vvod');
until not err;

repeat
writeln('n= ');
{$i-}
readln(n);
{$i+}
err := (ioresult <> 0);
if err then writeln('OSHIBKA! Vvod nedopystimogo znacheniya! Povtorite vvod');
until not err;
getmem(ar,n*m*sizeof(te));
writeln ('Vvedite elementi po strokam');
for i:=1 to m do
for j:=1 to n do
begin
{$i-} read (ar^[i,j]); {$i+}
err := (ioresult <> 0);
if err
then begin
writeln('OSHIBKA! Vvod nedopystimogo znacheniya! Vixod iz programmi');
readln;
halt;
end;
writeln;
end;


в чем проблема?? и где ошибка??

Добавлено через 10 мин.
это программа в консольном приложении
volvo
Описания переменных можно привести? Особенно интересует, как описано Ar, и что такое te?
-Екатерина-
type
te=integer;
mas=array[1..100,1..100] of te;
p=array [1..100] of te;
matrix=object
n,m:integer;
ar:^mas;
constructor input;
procedure output;
procedure task; virtual; {dubl stolb yavlyauwixsya perestanovkoi elemntov pervogo stolbca}
destructor done; virtual;
end;
volvo
Стоп... У тебя нарушена структура программы:

Цитата
	for i:=1 to m do
for j:=1 to n do
begin // <--- Вот этому begin-у нет соответствующего end-а !!!
{$i-} read (ar^[i,j]); {$i+}
err := (ioresult <> 0);
if err
then begin
writeln('OSHIBKA! Vvod nedopystimogo znacheniya! Vixod iz programmi');
readln;
halt;
end;
writeln;
end; // <--- Этот, насколько я понял, ты хочешь, чтобы обозначал конец конструктора? Это не так...

Добавь перед Writeln-ом еще один End и программа будет нормально компилироваться...
-Екатерина-
спасибо большое) я не заметила)
Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.