Реферат: Моделирование игровых программ

col :=1;

inc(row);

end;

end;

end;

procedure TForm1.Formmas;

var

i,j:integer;

begin

SetLength(stp,H+1,W+1);

SetLength(pole,H+1,W+1);

for i:=1 to H do

for j:=1 to W do

stp[i,j]:=h*(i-1)+j;

stp[H,W]:=0

end;

procedure Move(cx, cy:integer);

var

r:integer;

begin

if not (( abs(cx-ex)=1) and (cy-ey=0) or

( abs(cy-ey)=1) and (cx-ex=0)) then exit;

Pole[ey,ex]:=Pole[cy,cx];

Pole[cy,cx]:=0;

ex:=cx;

ey:=cy;

Form1.ShowPole;

if Finish then

begin