Наши проекты:
Журнал · Discuz!ML · Wiki · DRKB · Помощь проекту |
||
ПРАВИЛА | FAQ | Помощь | Поиск | Участники | Календарь | Избранное | RSS |
[3.16.66.206] |
|
Сообщ.
#1
,
|
|
|
здравствуйте помогите где сдесь ошибка в коде
program lift; var et1, et2: integer; begin writeln('Lift nahoditsa na 1m etage'); et1:=1; et2:=1; while (et2<>888) do begin if (et2<1)and(et2>9) then writeln('Nepravilniy etag') else begin if et2>et1 then while et1<=et2 do begin delay(2000); et1:=et1+1; write('Lift nahoditsa na '); write(et1); writeln('m etage'); end; if et<et1 then while et<=et2 do begin delay(2000); et1:=et1-1; write('Lift nahoditsa na '); write(et1); writeln('m etage'); end; if et1=et2 then writeln('Lift nahoditsa v regime ogidania'); end; end; end. |
Сообщ.
#2
,
|
|
|
Цитата if et<et1 then Переменная et не описана в разделе var Добавлено Похоже, что et2 должно быть, а не et. Нет? |
Сообщ.
#3
,
|
|
|
примерный код скинуть можите
|
Сообщ.
#4
,
|
|
|
Примерный код чего?
|
Сообщ.
#5
,
|
|
|
а почему он ругается на et1:=et1+1;
Добавлено как это сделать правильно |
Сообщ.
#6
,
|
|
|
А он не на эту строчку ругается а выше. На delay
В самом начале программы напиши Uses crt; Я с тлф, скопировать, исправить, и бросить обратно не смогу. |
Сообщ.
#7
,
|
|
|
uses ctr; var et1, et2: integer; begin writeln('Lift nahoditsa na 1m etage'); et1:=1; et2:=1; while (et2<>888) do begin if (et2<1)and(et2>9) then writeln('Nepravilniy etag') else begin if et2>et1 then while et1<=et2 do begin delay(2000) et1:=et1+1; write('Lift nahoditsa na '); write(et1); writeln('m etage'); end; if et2<et1 then while et1<=et2 do begin delay(2000) et1:=et1-1; write('Lift nahoditsa na '); write(et1); writeln('m etage'); end; if et1=et2 then writeln('Lift nahoditsa v regime ogidania'); end; end; end. |
Сообщ.
#8
,
|
|
|
1. Uses crt; а не ctr
2. После delay(2000) нет ; |