Часы в Паскале

Чтение реального времени в Паскале осуществляется посредством встроенной функции gettime(h, m, s, ss), где параметры означают часы, минуты, секунды и миллисекунды соответственно.

Аналоговые часы в pascal

В среде Turbo Pascal часы со стрелками организуются по следующему алгоритму:

1. Инициализация графического режима с отрисовкой статичных линий (окружности, цифры, деления)

2. Чтение времени посредством функции gettime

3. Расчет координат концов стрелок, посредством перевода чисел в полярные координаты

procedure Dec2Polar(Ang, Len: Real; var P: TPoint);

begin

Ang := Ang - 90;

P.x := Xc + Len * cos(Ang * Pi / 180);

P.y := Yc + Len * sin(Ang * Pi / 180);

end;

4. Отрисовка линий (line(x,y,x2,y2)) и задержка delay(n), где n - точность позиционирования быстрой стрелки (n=1000 - секунда)

5. Заливка стелок цветом фона и возврат к позиции 2.

Электронные часы в pascal

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

Песочные часы в pascal

Заполнение песком можно осуществлять попиксельно либо приращением некого сектора. При перевороте часов следует учитывать, что линия поверхности песка всегда должна быть горизонтальной.

Скачать:

Часы - Часы со стрелками

Секундромер - Стрелочный секундомер

Цифровые часы - Электронные часы в паскале

Аналоговые часы - Аналоговые часы в паскале

Электронные часы - На фоне звездного неба

Песочные часы - Песочные часы на паскале (1 вариант)

Часы с песком - Песочные часы на паскале (2 вариант)

Текстовые часы - Часы в текстовом режиме