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

program car_go_home;
 uses graph,crt;
 const
  C=2;
  y  : array[1..7] of integer=(605,620,400,480,485,570,450);
  y1 : array[1..5] of integer=(415,535,620,480,400);
  z  : array[1..4] of integer=(180,180,540,540);
 var
  graphdriver,graphmode : integer;
  c1,x1,x,i             : integer;
BEGIN
 graphdriver:=detect;
  Clrscr;
   initgraph(graphdriver,graphmode,' ');
   setbkcolor(black);
      rectangle(0,0,getmaxX-10,getmaxY-5);
{ 1 } rectangle(15,460,250,270);
      setcolor(3);                                               { 1-2 ѓ а ¦ }
      line(15,270,125,200);
{ 2 } line(250,270,125,200);

     x1:=5; x:=5; c1:=0;
  while y1[3]>250 do
   begin
     setcolor(white);

{ 3 } arc(y[7],430,z[1],z[3],30);                { 3-4 Њ иЁ­  }
      arc(y[6],430,z[2],z[4],30);
      line(y[3],430,y1[1],430);
      line(y[5],430,y1[2],430);
      line(y[1],430,y1[3],430);
      line(y[2],330,y1[3],430);
      line(y[2],330,y1[4],330);
      line(y[3],430,y1[5],370);
{ 4 } line(y[4],330,y1[5],370-c1);
      rectangle(15,460,250,270);
     delay(20);
     setcolor(black);
{ 3 } arc(y[7],430,z[1],z[3],30);                 { 3-4 Њ иЁ­  }
      arc(y[6],430,z[2],z[4],30);
      line(y[3],430,y1[1],430);
      line(y[5],430,y1[2],430);
      line(y[1],430,y1[3],430);
      line(y[2],330,y1[3],430);
      line(y[2],330,y1[4],330);
      line(y[3],430,y1[5],370);
{ 4 } line(y[4],330,y1[5],370-c1);

    for i:=1 to 5 do
     begin
      if y[i]>250 then y[i]:=y[i]-C
       else y[i]:=250;
      if y1[i]>250 then y1[i]:=y1[i]-C
       else y1[i]:=250;
     end;
    if y[7]<=290 then     { “б«®ўЁҐ ЇаЁЎ«Ё¦Ґ­Ёп ЇҐаў®Ј® Є®«Ґб  }
     begin                { Є Ј а ¦г }
      z[1]:=z[1]+x;
      z[3]:=z[3]-x
     end;
    if y[6]<=290 then     { “б«®ўЁҐ ЇаЁЎ«Ё¦Ґ­Ёп ўв®а®Ј® Є®«Ґб  }
     begin                { Є Ј а ¦г }
      z[2]:=z[2]+x1;
      z[4]:=z[4]-x1
     end;
     y[7]:=y[7]-C;
     y[6]:=y[6]-C;
    if z[1]=z[3] then x:=0;
    if z[2]=z[4] then x1:=0;
    if y1[5]=250 then c1:=c1+1;
   end;
   setcolor(white);
   rectangle(15,460,250,270);
  readln;
 closegraph;
end.