Время на Паскале
Подскажите как можно написать часы.
Какие часы? Со стрелками или электронные? И что именно тебя интересует: графический вывод или реализация TSR?
Какие часы? Со стрелками или электронные? И что именно тебя интересует: графический вывод или реализация TSR?
Меня интересуют электронные часы.
Меня интересуют электронные часы.
Насколько я помню в стандартных функциях модуля дос есть процедура gettime. Она выдает время с точностью до секунды.
Насколько я помню в стандартных функциях модуля дос есть процедура gettime. Она выдает время с точностью до секунды.
До 0,1 секунды.
До 0,1 секунды.
Может кто поможет написать
Может кто поможет написать
Так это же тривиально. В зависимости от времени выводишь цифирь красивую :) Чему тут помогать-то?.. :-/
Подскажите как можно написать часы.
Лови
из хелпа выдрано
uses Dos, Crt;
var
h, m, s, hund : Word;
function LeadingZero(w : Word) : String;
var
s : String;
begin
Str(w:0,s);
if Length(s) = 1 then
s := '0' + s;
LeadingZero := s;
end;
begin
repeat
GetTime(h,m,s,hund);
Writeln('It is now ',LeadingZero(h),':',
LeadingZero(m),':',LeadingZero(s),
'.',LeadingZero(hund));
until keypressed;
end.
цифирки прыгают по экрану
так что разбирайся
можно сделать и поудобоваримее
Лови
из хелпа выдрано
uses Dos, Crt;
var
h, m, s, hund : Word;
function LeadingZero(w : Word) : String;
var
s : String;
begin
Str(w:0,s);
if Length(s) = 1 then
s := '0' + s;
LeadingZero := s;
end;
begin
repeat
GetTime(h,m,s,hund);
Writeln('It is now ',LeadingZero(h),':',
LeadingZero(m),':',LeadingZero(s),
'.',LeadingZero(hund));
until keypressed;
end.
цифирки прыгают по экрану
так что разбирайся
можно сделать и поудобоваримее
Огромнейшее спосибо