proconsul

Мне нужно к зачету сваять прогу на ТП - электронные часы, цифры состоят из 7 сегментов (типа как на почтовых конвертах), начальное время вводится при запуске проги. А времени нет совершенно, еще работа мозги выжигает Помогите плиз с этой прогой, а то я в последнее время на VB в основном сижу, Паскуду уже подзабыл... или хотя бы опишите принцип создания таких часов, а я уж с фароновым в обнимку как-нибудь справлюсь.

Sammy

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.

не уверен... паскаль не знаю(

---------- Добавлено в 12:08 ---------- Предыдущее сообщение было написано в 12:05 ----------

если что залезь сюда http://pascal.proweb.kz/index.php?page=203, здесь задача аналогичная, только более расширенная...

---------- Добавлено в 12:09 ---------- Предыдущее сообщение было написано в 12:05 ----------

если нужно есть на си)

proconsul

Sammy, благодарю за помощь, теперь буду паскалить пока часики не заработают ))