Реферат: Разработка игровой программы на языке программирования Turbo Pascal

mny:=y1;

if y2<mny then mny:=y2;

if y3<mny then mny:=y3;

if y4<mny then mny:=y4;

mxy:=y1;

if y2>mxy then mxy:=y2;

if y3>mxy then mxy:=y3;

if y4>mxy then mxy:=y4;

s1:=byte(y1<y2)*2-1;

s2:=byte(y2<y3)*2-1;

s3:=byte(y3<y4)*2-1;

s4:=byte(y4<y1)*2-1;

y:=y1;

if y1<>y2 then

Repeat

xpos[y,byte(y1<y2)]:=integer(x2-x1)*(y-y1) div (y2-y1)+x1;

y:=y+s1;

Until y=y2+s1

else xpos[y,byte(y1<y2)]:=x1;

y:=y2;

if y2<>y3 then

Repeat

xpos[y,byte(y2<y3)]:=integer(x3-x2)*(y-y2) div (y3-y2)+x2;

y:=y+s2;

Until y=y3+s2

else xpos[y,byte(y2<y3)]:=x2;

y:=y3;

if y3<>y4 then

Repeat