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

program ball;
 uses graph,crt;
 var
  graphdriver,graphmode : integer;
  c,c1,c2,c3            : integer;
{*****************************************************}
  procedure qwer;
 var c,c1,c2,c3,i       :integer;
{--------------------------------}
  procedure picture(col:word);
   begin
 setcolor(col);
    line(400,350,350,350+c3);
    circle(350+c,50+c1,10)
   end;
{--------------------------------}
  procedure picture1(col:word);
   begin
 setcolor(col);
    circle(350+c,50+c1,10)
   end;
{--------------------------------}
  procedure picture2(col:word);
   begin
 setcolor(col);
    line(400,350,350,350+c3)
   end;
{--------------------------------}
   begin
 c:=0;c1:=0;c2:=0;c3:=0;
    repeat
    picture(white);
      delay(50);
    picture(black);
    if (c1<=287) and (c=0)  then c1:=c1+5
    else if (c1>287) and (c1<300) then
           begin
            c1:=c1+1;
            c3:=c3+1;
           end;
      if (c1>=300)  then
          begin
      for i:=1 to 40 do
            begin
             picture1(white);
             delay(70);
             picture1(black);
             c1:=c1-i;
             c:=c-i;
             c3:=c3-i;
    if c3>=0 then begin  c3:=c3;
                        picture2(white);
                          delay(50);
                        picture2(black)
                  end;
    if c<=-7 then
           begin
           c3:=0;
      picture2(white)  end
            end
           end;
 until keypressed
 end;
{*****************************************************}
   begin
   graphdriver:=detect;
    clrscr;
   initgraph(graphdriver,graphmode,'d:\tp70\bgi');
   setbkcolor(black);
   c:=0; c1:=0; c2:=0; c3:=0;
    qwer;
 readln;
 closegraph
    end.