Обсуждается программа "Электронные часы":
Код:
Uses Crt,Dos;
VAR
hour,min,sec_old,sec_new:Word;
sec100,msec,usec:Word;
BEGIN
ClrScr;
GetTime(hour,min,sec_new,sec100);
Repeat
Repeat
sec_old:=sec_new;
GetTime(hour,min,sec_new,sec100);
Until sec_old<>sec_new;
GoToXY(1,1);
If (min<10) and (sec_new<10) then
Write(hour:2,':0',min,':0',sec_new)
else
If sec_new<10 then
Write(hour:2,':',min,':0',sec_new)
else
If min<10 then
Write(hour:2,':0',min,':',sec_new)
else
Write(hour:2,':',min,':',sec_new);
Until KeyPressed;
ReadKey;
END.
Коллеги-паскалисты, выручайте!
Оказывается (а я и не знал), Pascal-ABC не поддерживает модуля DOS и, соответственно, процедуру GetTime. А есть ли там возможность считывания системного времени, и если есть, то как?