Курсовая работа: Вычисление "рыбы"

end;

end;

Процедура Tform1.Button1Click запускает обработку .

procedure TForm1.Button1Click(Sender: TObject);

var

i,j,count:byte;

begin

count:=0;

Label1.Caption:='00';

for i:=1 to 28 do

Img[i].Destroy;

for i:=1 to 28 do

Img2[i].Destroy;

CreateImgMass;

init;

curent.SideA:=0;

Curent.SideB:=0;

Curent.State:=true;

GetVariants;

For I:=1 to 28 do

If domino[i].State=false then

inc(count);

Label2.Caption:=inttostr(count);

end;

В процедуру GetVariants мы поместили алгоритм, обрабатывающий все процессы. Это самая большая процедура.

Procedure GetVariants();

Var

i,id,count:byte;

st:boolean;