Реферат: Игра Мозайка на Делфи Delphi

widt:=Pic.Width div W;

ClientWidth:=widt*W; //Размер формы по размеру картинки

ClientHeight:=heig*H;

for i:=1 to H do

for j:=1 to W do

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

Form1.Refresh; // перемещение клеток

Form1.Load; // загрузка поля

end;

// проверка на факт выигрыша

function GameOver: boolean;

var

rw,cl:integer;

i:integer;

begin

rw:=1;

cl:=1;

GameOver:=True; // клети расставлены правильно

for i:=1 to 15 do

begin

if pole[rw,cl]<>i then

begin

GameOver:=False;

break;

end;

if cl<4

then inc(cl)

else begin

cl:=1;