IPB
ЛогинПароль:

> ВНИМАНИЕ!

Прежде чем задать вопрос, смотрите FAQ.
Рекомендуем загрузить DRKB.

Наладить общение поможет, если вы подпишитесь по почте на новые темы в этом форуме.

> проверка ввода матрицы
сообщение
Сообщение #1


Пионер
**

Группа: Пользователи
Сообщений: 82
Пол: Женский

Репутация: -  0  +


хочу сделать вот так, но программа не запускается:
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 мин.
это программа в консольном приложении
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
 
 Ответить  Открыть новую тему 
Ответов(1 - 4)
сообщение
Сообщение #2


Гость






Описания переменных можно привести? Особенно интересует, как описано Ar, и что такое te?
 К началу страницы 
+ Ответить 
сообщение
Сообщение #3


Пионер
**

Группа: Пользователи
Сообщений: 82
Пол: Женский

Репутация: -  0  +


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;
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #4


Гость






Стоп... У тебя нарушена структура программы:

Цитата
	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 и программа будет нормально компилироваться...
 К началу страницы 
+ Ответить 
сообщение
Сообщение #5


Пионер
**

Группа: Пользователи
Сообщений: 82
Пол: Женский

Репутация: -  0  +


спасибо большое) я не заметила)
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 

 Ответить  Открыть новую тему 
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0

 





- Текстовая версия 2.12.2020 4:51
500Gb HDD, 6Gb RAM, 2 Cores, 7 EUR в месяц — такие хостинги правда бывают
Связь с администрацией: bu_gen в домене octagram.name