[Tilan]

Сегодня девченкам поставили (надо прзнаться ЗАСЛУЖЕННО) автомат по сыру.... завидно.... мне ничего полохого сыр не сказал, отправил работать с благославением... тоже вполне терпимо.... где там мои учителя бродят =)

@темы: Учеба

Comments

[.Di]

я здесь)))
вот тебе предот-ие АВОСТа:

write(rus('Введите ключи и нажмите Enter > '));
condition:=true;

while condition do
begin
condition:=false;
try
read(key);
except
condition:=true;
write(rus('Не верный ввод! Введите число: '));
end;

[Tilan]

а куда это вставлять ?

[.Di]

Tilan туда, куда нужно что то вводить... Дима! ты опять за свое? readln(key) видишь? у меня туда вводится ключ, у тебя число... мы с тобой рассматривали как readln(f) помнишь?

[Tilan]

Все, я разобрался, ты тут все правельно мне написала, но забыла сказать мааааленький пунктик:
condition: boolean;
а без него ничего не пашет, но я подумал, как ты учила, и все понял, ну не молдец ли я?
спасибо за урок =)

[Tilan]

Как думаешь нормально смотрится?

Для выхода из программы нажмите Enter
Для повтора программы нажмите "1"

[.Di]

Tilan наверно =) а можно еще yes\no или да\нет
а то что condition описать в разделе переменных нужно я думала ты догадаешься. видишь, уже понимаешь о чем речь))))