часы Опции

[Гия]

Как на паскале сделать следующую вешь:
нужно чтобы отпечаталось текущее время например
               12:34:12
т. е. 12 часов 34 минуты и 12 секунд и затем точно
через каждую секунду.
что то не получилось сформулировать вопрос)

короче, надо чтобы шли часы в моей программе

заранее благодарю.              

[GLuk]

Независимо от текущего процесса?

[Гия]

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

[Ivs]

ну вообщето для этого служит ф-я GetTime(hour,min,sec,milisec);
вот небольшой пример:

Код

program Timer;
uses dos,crt;
var
  h,m,s,ms:Word;
begin
  ClrScr;
  repeat
     GetTime(h,m,s,ms);
     Gotoxy(1,1);
     Write(h:2,':',m:2,':',s:2);
  until keypressed;
end.

[Гия]

я то знаю что для этого служит gettime
мне надо другое:
как посчитать сколько точно времени прошло после некоторого действия иначе как узнать что прошло точно 2 минуты?

[Ivs]

Ну дык надо получить текущее время, запомнить его в переменных, а потом в цикле получать новые и сравнивать на необходимую разность.

[Гия]

так тип там string возвращается же(

[ozzy]

так тип там string возвращается же(

val

[Ivs]

так тип там string возвращается же(

ЭЭЭ.....Вобщето там возвращается тип WORD.........

[Гия]

И правда там возвращаемый тип WORD. Спасибо ребята за участие в моей программе.Всё получилось что я хотел.Да, трудно без хелпа работать(