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

else Canvas.Rectangle((j-1)*wc,(i-1)*hc,j*wc,i*hc);

end;

end;

procedure TForm1.Mixer;

var

x1,y1: integer;

x2,y2: integer;

d: integer;

i: integer;

begin

x1:=H; y1:=W;

randomize;

for i:=1 to 150 do

begin

repeat

x2:=x1;

y2:=y1;

d:=random(4)+1;

case d of

1: dec(x2);

2: inc(x2);

3: dec(y2);

4: inc(y2);

end;

until (x2>=1) and (x2<=h) and (y2>=1) and (y2<=w);

Pole[y1,x1]:= Pole[y2,x2];

Pole[y2,x2]:=0;

x1:=x2;

y1:=y2;