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 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0

 





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