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

begin

ShowMessage('Ошибка обращения к файлу' + fname);

Form1.Close;

end;

end;

hc:=Pic.Height div H;

wc:=Pic.Width div W;

ClientWidth:= wc * W;

ClientHeight:= hc * H;

for i:=1 to H do

for j:=1 to W do

pole[i,j]:= stp[i,j];

Form1.Mixer;

Form1.ShowPole;

end;

function Finish: boolean;

var

row,col: integer;

i: integer;

begin

row:=1; col:=1;

Finish:= True;

for i:=1 to 15 do

begin

if pole[row,col] <> i then

begin

Finish:=False;

break;

end;