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

program cub;
 uses graph,crt;
 var
  graphdriver,graphmode : integer;
  i,c,a,c1,c2,c3        : integer;
  aa : real;
  procedure do_it;
  procedure picture(col:word);
   begin
    setcolor(col);
    line(10,300,300,300);
    line(300,300,300,500);
    line(310,350+c2,610,450-c2);
    line(460,400,400,450);
    line(460,400,520,450);
    circle(100+c,260+c1,40);
    circle(580,397-c3,40);
   end;
   begin
    repeat
    picture(11);
      delay(13000);
    picture(5);
    if c<=240 then c:=c+a;
    if (c>=240) and (c1<150) then c1:=c1+a;
    if (c1>=56) and (c1<150) then
         begin
          aa:=aa+2.5;
          c2:=round(aa);
         end;
     if c1>=56 then c3:=c3+2*a;
   until keypressed
   end;
  begin
   graphdriver:=detect;
    clrscr;
   initgraph(graphdriver,graphmode,'c:\tp70\bgi');
   setbkcolor(5);
   c:=0; a:=2; c1:=0; aa:=0;
    do_it;
 closegraph
end.