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.