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

program cardoun;
uses graph,crt;
var
graphdriver,graphmode : integer;
procedure car_go;
var
c,c1,c2:integer;
begin
c:=1;
c1:=1;
c2:=2;
repeat
setcolor(white);
line(600-c,250,400-c2,250);
line(600-c,250,600-c2,170);
line(400-c,250,400-c2,170);
line(400-c,170,600-c2,170);
circle(440-c,251,24);
circle(560-c,251,24);

rectangle(320,276,600,450);
delay(20);
setcolor(black);
line(600-c,250,400-c2,250);
line(600-c,250,600-c2,170);
line(400-c,250,400-c2,170);
line(400-c,170,600-c2,170);
circle(440-c,251,24);
circle(560-c,251,24);
c2:=c2+2;
c:=c+2;
c1:=c1+1;
until c=147;
end;
procedure car_down;
type
mass=array[1..3] of integer;
const
xo:array[1..2] of integer=(354,354);
yo:array[1..2] of integer=(250,170);
var
r,c,c1,c2,dx,dy,a,a1,dxo,dyo:integer;
alfa:real;
x1,x2,y1,y2:mass;
begin
r:=102; alfa:=0; a1:=0; a:=0;
repeat
x1[1]:=xo[1]+r; x2[1]:=xo[1]-r;
x1[2]:=xo[2]+r; x2[2]:=xo[2]-r;
dx:=round(r*cos(alfa)); dxo:=round(60*cos(alfa));
dy:=round(r*sin(alfa)); dyo:=round(60*sin(alfa));
x1[1]:=xo[1]+dx; x2[1]:=xo[1]-dx; x1[3]:=xo[1]+dxo;
x1[2]:=xo[2]+dx; x2[2]:=xo[2]-dx; y1[3]:=yo[1]-dyo;
y1[1]:=yo[1]-dy; y2[1]:=yo[1]+dy; x2[3]:=xo[1]-dxo;
y1[2]:=yo[2]-dy; y2[2]:=yo[2]+dy; y2[3]:=yo[1]+dyo;
setcolor(white);
circle(x1[3],y1[3],24);
circle(x2[3],y2[3],24);
line(x1[1],y1[1],x2[1],y2[1]);
line(x1[2],y1[2],x2[2],y2[2]);
line(x1[1],y1[1],x1[2],y1[2]);
line(x2[1],y2[1],x2[2],y2[2]);
delay(120);
setcolor(black);
circle(x1[3],y1[3],24);
circle(x2[3],y2[3],24);
line(x1[1],y1[1],x2[1],y2[1]);
line(x1[2],y1[2],x2[2],y2[2]);
line(x1[1],y1[1],x1[2],y1[2]);
line(x2[1],y2[1],x2[2],y2[2]);
alfa:=alfa+pi/72;
xo[1]:=round(xo[1]-3-a+a1); xo[2]:=round(xo[2]-5+a1);
yo[1]:=round(yo[1]+2); yo[2]:=round(yo[2]+4.45);
if y2[1]=424 then begin a:=4; a1:=3 end;
until alfa>=3.18;
end;
BEGIN
graphdriver:=detect;
Clrscr;
initgraph(graphdriver,graphmode,' ');
setbkcolor(black);
rectangle(320,276,600,450);
car_go;
car_down;
closegraph;
end.