L_time=145; Color_min=white; Color_time=white; R = 200;
var gd,gm:integer;
S:string[2];
x_centr, y_centr:integer;
і,x_min,y_min:integer;
x_time,y_time:integer;
Ang_min,Ang_time:real;
begin
{Ініціалізація графічного режиму}
gd:=VGA; gm:=VGAHi;
InitGraph (gd,gm,’’);
{Визначення центра екрану}
x_centr := getmaxx div 2;
y_centr := getmaxy div 2;
{Малювання статичної частини малюнку}
SetColor(brown);
SetFillStyle(l,brown);
{Малювання циферблату коричневого кольору}
FillEllipse(x_centr,y_centr,R,R);
Ang_time:=-90;
{Встановлення кольору малювання, стилю тексту}
SetColor(yellow);
SetTextJustify(CenterText, CenterText);
SetTextStyle(De?aultFont, HorizDir, 2);
{Малювання поділок жовтого кольору та цифр}
for i:=1 to 12 do
begin
Ang_time:=Ang_time+30;
x_time:=round(x_centr+185*cos(Ang_txme*pi/180));
y_time:=round(y_centr+185*sin(Ang_time*pi/180)) ;
str(i,S);
OutTextXy(x_time,y_time,S);
end;
{Малювання ходу годинника}
Ang_min:=-90; Ang_time:=-90;
repeat
x_time:=round(x_centr+L_time*cos(Ang_time*pi/180));
y_time:=round(y_centr+L_time*sin(Ang_time*pi/180)) ;
SetColor(Color_time);
Line(x_centr,y_centr,x_time,y_time);
x_min:=round(x_centr+L_min*cos(Ang_min*pi/180)) ;
y_min:=round(y_centr+L_min*sin(Ang_min*pi/180)) ;
SetColor(Color_min);
Line(x_centr,y_centr,x_min,y_min);
Delay(10000); {Затримка зображення на екрані)
SetColor(brown);
Line(x_centr,y_centr,x_time,y_time);
Line(x_centr,y_centr,x_min,y_min);
Ang_min:=Ang_min+6;
Ang_time:=Ang_time+0.5;
