Turbo Pascal. Примеры выполнения задач_5 / V41 / V41_N12!

program coord;
uses dos,graph,crt;
   type digit=array[1..2] of boolean;
   var
     h,m,s,hund:word;
     rh,rm,rs,hour,min,sec,drive,mode:integer;
     R,xmax,ymax,x,y,cx,cy:integer;
     t,x2,y2,x3,y3,x1,y1,x4,y4,x5,y5:real;
procedure time;
begin
    gettime(h,m,s,hund);
    hour:=(h)*30;
    min:=m*6;
    sec:=s*6;
end;
procedure init(xmax,ymax:integer);
begin
    cx:=xmax div 2;
    cy:=ymax div 2;
  {  line(0,cy,xmax,cy);
    line(cx,0,cx,ymax);   }
end;
procedure table;
var i,s,l:integer;
 begin
   s:=-1;
   for i:=0 to 360 do begin
    l:=0;
    inc(s);
    if s = 5 then begin l:=10;s:=0;end;
    x4:=(210-l)*cos(-pi/180*6*i);
    y4:=(210-l)*sin(-pi/180*6*i);
    x5:=220*cos(-pi/180*6*i);
    y5:=220*sin(-pi/180*6*i);
    line(round(x4)+cx,cy-round(y4),round(x5)+cx,cy-round(y5));
   end;
 circle(320,240,220);
 circle(320,240,195);
 end;
procedure out_sec;
begin
    x1:=190*cos(-pi/180*sec+pi/2);
    y1:=190*sin(-pi/180*sec+pi/2);
    x2:=10*cos(-pi/180*sec+pi/2+pi/18);
    y2:=10*sin(-pi/180*sec+pi/2+pi/18);
    x3:=10*cos(-pi/180*sec+pi/2-pi/18);
    y3:=10*sin(-pi/180*sec+pi/2-pi/18);
    line(0+cx,cy-0,round(x2)+cx,cy-round(y2));
    line(0+cx,cy-0,round(x3)+cx,cy-round(y3));
    line(round(x2)+cx,cy-round(y2),round(x1)+cx,cy-round(y1));
    line(round(x3)+cx,cy-round(y3),round(x1)+cx,cy-round(y1));
end;
procedure out_min;
begin
    x1:=180*cos(-pi/180*min+pi/2);
    y1:=180*sin(-pi/180*min+pi/2);
    x2:=20*cos(-pi/180*min+pi/2+pi/18);
    y2:=20*sin(-pi/180*min+pi/2+pi/18);
    x3:=20*cos(-pi/180*min+pi/2-pi/18);
    y3:=20*sin(-pi/180*min+pi/2-pi/18);
    line(0+cx,cy-0,round(x2)+cx,cy-round(y2));
    line(0+cx,cy-0,round(x3)+cx,cy-round(y3));
    line(round(x2)+cx,cy-round(y2),round(x1)+cx,cy-round(y1));
    line(round(x3)+cx,cy-round(y3),round(x1)+cx,cy-round(y1));
end;
procedure out_hour;
begin
    x1:=120*cos(-pi/180*hour+pi/2);
    y1:=120*sin(-pi/180*hour+pi/2);
    x2:=15*cos(-pi/180*hour+pi/2+pi/10);
    y2:=15*sin(-pi/180*hour+pi/2+pi/10);
    x3:=15*cos(-pi/180*hour+pi/2-pi/10);
    y3:=15*sin(-pi/180*hour+pi/2-pi/10);
    line(0+cx,cy-0,round(x2)+cx,cy-round(y2));
    line(0+cx,cy-0,round(x3)+cx,cy-round(y3));
    line(round(x2)+cx,cy-round(y2),round(x1)+cx,cy-round(y1));
    line(round(x3)+cx,cy-round(y3),round(x1)+cx,cy-round(y1));
end;
begin
clrscr;
drive:=detect; initgraph(drive,mode,'');
init(640,480);
rh:=100;rm:=120;rs:=150;
outtextxy(315,0,'12');
outtextxy(315,470,'6');
outtextxy(80,235,'9');
outtextxy(550,235,'3');
table;
time;
t:=sec;
repeat
t:=sec;
repeat
  time;
  out_sec;
  out_min;out_hour;
until sec<>t;
 Sound(220);        { Beep }
 Delay(50);        { For 200 ms }
 NoSound;           { Relief! }
setcolor(black);
sec:=sec-6;min:=min-6;hour:=hour-30;
out_sec;out_min;out_hour;
setcolor(white);
time;
until keypressed;
end.