программа цифровые часы на Паскале

[ЯН_КА]

Ребята,привет!Вы случайно не знаете,как написать программу на Паскале,чтобы на экран выводились цифровые часы?правда есть некоторые ньюансы.если кто имел дело с такой программой,будьте любезны,подскажите,пожалуста,как это делается.буду очень благодарна за помощь!

[Sazary]

Например, так:

uses crt,dos;
var H,M,S,ms : word;

begin
clrscr;
while true do
 begin
 if keypressed then
  if readkey=#27 then break;

 gettime(H,M,S,ms);
 delline;
 gotoxy(1,1);
 write(H,':',M,':',S);
 delay(1000);
 end;

end.

[ЯН_КА]

спасибо,я попробую этот вариант.просто моей знакомой делали секундомер,так там программа занята 2 листа

[Sazary]

Ну, это, как видите, просто часы.
Но с помощью процедуры gettime можно получить и миллисекунды.

[ЯН_КА]

только есть ньюансы.нужна кнопка запуска.и чтобы редактировать время можно было самому

[Sazary]

нужна кнопка запуска.

В паскале? Это что, используя Turbo Vision что-ли?
Не проще ли это все сделать в Делфи?

[ЯН_КА]

просто мы в основном Паскаль изучаем.особой разницы ведь между паскалем и Делфи нет.просто сказали на Паскале

[Sazary]

ЯН_КА, ну, вообще говоря, если речь идет о кнопке, то разница есть. И существенная.
Быть может, все-таки имелась в виду не реальная кнопка, а возможность запуска по нажатию на клавишу..

[ЯН_КА]

да!например,нажимаешь цифру 1 на клавиатуре,и часы пошли.а вот как редактировать время я вообще не могу понять

[Sazary]

Теоретически, код будет выглядеть как-то так:

uses crt,dos;
var H,M,S,ms : word;
c : char;

procedure start;
var m,s,ms : word;
begin
m := 0;
s := 0;
ms := 0;

while true do
 begin
 gotoxy(1,1);
 delline;
 write(m,':',s,'.',ms);
 inc(ms);
 if ms=100 then
  begin
  inc(s);
  ms := 0;
  if s=60 then
   begin
   s := 0;
   inc(m);
   end;
  end;

 if keypressed then
  if readkey = #27 then break;
 delay(1);
 end;

end;

begin
clrscr;

repeat
clrscr;
writeln('1 - start, Esc - Exit');
c := readkey;
case c of
'1' : start;
 end;
until c=#27;
end.

Но на практике секунды идут уж как-то слишком быстро