Время в Паскале Опции

[Juli]

У меня по программированию вот такая задача: сделать программу Контрольный экзамен. Там пользователю предлагаются вопросы, он должен на них ответить. Так вот, как сделать так, чтобы на экране отображалось время выполнения теста (т.е. время, отведенное пользователю на обдумывание и ответы), причем время должно идти в обратном направлении, т.е. указывать, сколько еще у пользователя его осталось? При этом, как только время закончится, должна выводиться строка, мол извините, ваше время истекло. Поздскажите пожалуйста...

[Гость]

Сделай что-то вроде счетчика, хай уменьшается....

[Juli]

Сделай что-то вроде счетчика, хай уменьшается....

А можно поконкретней...

[Mind]

Ну заводишь какую то переменную t изначально равную отведённому времени на задачу. Ну а после каждый раз уменьшаешь этот таймер с некоторой задержкой (ну там на экране естественно стираешь старое и выводишь новое число каждый раз). И когда таймер будет равен нулю - время истечёт.

[Juli]

Ну заводишь какую то переменную t изначально равную отведённому времени на задачу. Ну а после каждый раз уменьшаешь этот таймер с некоторой задержкой (ну там на экране естественно стираешь старое и выводишь новое число каждый раз). И когда таймер будет равен нулю - время истечёт.

а как сделать так, чтоб все остальное в этот момент оставалось на экране и экран не мигал?

[volvo]

Стирать только одну строку, например первую:

gotoxy(1, 1);
clreol;
write('Времени осталось:', T);

или вообще ничего не стирать:

gotoxy(1, 40);
write('Времени осталось:', T:20); { <--- печатаем T (скажем, время в секундах) в 20 позициях... }

... тогда новое значение T затрет старое ...