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.