asd / корзина / лекции по TP / Lecture_Pascal / graph / CLOCK

program cub;
uses graph,crt;
type
mass=array[1..3] of integer;
var
graphdriver,graphmode : integer;
xo,yo,i : integer;
alfa,alf1,c,alf2 : real;
dx,dy,x,y : mass;
procedure d_radius(rud:integer;alf:real;var d_rudX,d_rudY:integer);
begin
d_rudX:=round(rud*cos(alf));
d_rudY:=round(rud*sin(alf))
end;
procedure picture(col:word);
begin
setcolor(col);
line(x[1],y[1],xo,yo);
line(x[2],y[2],xo,yo);
line(x[3],y[3],xo,yo+90);
circle(x[3],y[3],20)
end;
begin
graphdriver:=detect;
clrscr;
alfa:=pi/2;
alf1:=pi/2;
alf2:=-pi/3;
xo:=300; yo:=150;
initgraph(graphdriver,graphmode,' ');
setbkcolor(black);
circle(xo,yo,90);
c:=pi/180;
outtextXY(xo-5,yo-80,'12');
outtextXY(xo-5,yo+75,'6');
outtextXY(xo+75,yo,'3');
outtextXY(xo-80,yo,'9');
repeat
d_radius(70,alfa,dx[1],dy[1]);
d_radius(50,alf1,dx[2],dy[2]);
d_radius(150,alf2,dx[3],dy[3]);

for i:=1 to 2 do
begin
x[i]:=xo+dx[i];
y[i]:=yo-dy[i]
end;
x[3]:=xo+dx[3];
y[3]:=yo+90-dy[3];
picture(white);
delay(30);
picture(black);
alfa:=alfa-pi/180;
alf1:=alf1-pi/2160;
alf2:=alf2-c;
if (alf2<-2*pi/3) or (alf2>-pi/3) then c:=-c
until keypressed;
closegraph
end.