Помощь - Поиск - Пользователи - Календарь
Полная версия: часы
Форум «Всё о Паскале» > Pascal, Object Pascal > Теоретические вопросы
kasak
4.12.2004 0:23
Как зациклить прогу чтобы она показывала точное время?

Код

program chasi;
uses dos;
var h, m, s, s10:word;
begin
writeln('the time is now:');
gettime(h, m, s, s10);
writeln(h:2,' hours ',m:2,' minutes ',s:2,' seconds');
writeln;
writeln('press ENTER to exit');
writeln;
writeln('visit us at http://karyna.h12.ru');
readln;
end.
volvo
4.12.2004 0:36
kasak
Вот так:
Код

program chasi;
uses crt, dos;
var h, m, s, s10:word;
begin
clrscr;
gotoxy(5, 1); writeln('ESCAPE to exit timer...');
gotoxy(5, 2); writeln('the time is now:');
repeat
gettime(h, m, s, s10);
gotoxy(5, 5); writeln(h:2,' hours ',m:2,' minutes ',s:2,' seconds');
writeln;
if keypressed then
 if readkey = #27 then break;
until false;

writeln('press ENTER to exit');
writeln;
writeln('visit us at http://karyna.h12.ru');
readln;
end.
kasak
4.12.2004 1:02
Ой, как сложно, а как это работает?
volvo
4.12.2004 1:25
kasak
Прежде, чем выложить на форум, я тестирую программы. angry.gif
kasak
4.12.2004 1:32
Так всё замечательно работает, спасибо, а кк это работает то? Что это за хитрые функции?
volvo
4.12.2004 1:43
Код
if keypressed then

проверяет, было ли нажато что-нибудь на клавиатуре. Если да, то возвращает True, иначе False.

Код
if readkey = #27 then break;

Если что-то было нажато, то Readkey возвращает код нажатой клавиши. (#27 - это код Escape). Так и делается - если нажатая клавиша имеет код #27, то выйти из цикла (Break - выход из цикла)

Ну а процедура gotoxy(x, y) просто заставляет следующий оператор Writeln печатать сообщение не там, где закончилось предыдущее, а начиная с позиции (x, y)
kasak
4.12.2004 1:48
о, уже попонятнее, спасибо большое. А вот я ещё слышал, что можно в паскале строить таблицы, используя такие символы, обозначая цифрами, но дли ннющий ряд из цифр, это как-то нерационально, а можно ли без цифр, сразу вставлять паки и углы, какие надо???
volvo
4.12.2004 1:55
Можно. Держишь ПРАВЫЙ Alt и на цифровой клавиатуре набираешь код. (например, 196 - одиночная горизонтальная черта, 205 - двойная...) Хотя какая разница, если поставишь числа (#196 или #205), за тебя это сделает компилятор...
kasak
4.12.2004 1:55
да, именно это я и хотел узнать, спасибо!
xds
4.12.2004 8:13
С минимальными модификациями:
Код

program chasi;
{$B-}
uses dos,Crt;
var h, m, s, s10:word;
begin
writeln('press ENTER to exit...');
writeln;
writeln('the time is now:');
repeat
 gettime(h, m, s, s10);
 write(h:2,' hours ',m:2,' minutes ',s:2,' seconds',#13);
until KeyPressed and (ReadKey = #13);
writeln;
writeln;
writeln('visit us at http://karyna.h12.ru');
readln;
end.
Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.