Я сделал генерацию кораблей по правилам морского боя, чего я пытался добиться в своем предыдущем вопросе. Теперь я не могу понять почему у меня корабли генерируются иногда правильно а иногда нет! Вот весь код генерации кораблей:
procedure TForm1.generate_ships(mine:boolean);
var i, x, y, t:Byte; // i - счетчик, x,y - координаты,
//t - тип(вертикальный/горизонтальный)
f: Boolean;
field:Area;
begin
if mine then field:=My_field else field:=Com_field;
// 4-палубный
f:=False;
x:=Random(7)+1;
y:=Random(7)+1;
t:=random(2);
if t = 0 then begin
field.Field[x,y]:= cc_fill;
field.Ships.Four_ship[1].state:= cc_fill;
field.Ships.Four_ship[1].X:=x;
field.Ships.Four_ship[1].Y:=y;
field.Field[x-1,y]:=cc_miss;
field.Field[x-1,y-1]:=cc_miss;
field.Field[x-1,y+1]:=cc_miss;
field.Field[x,y-1]:=cc_miss;
field.Field[x,y+1]:=cc_miss;
field.Field[x+1,y]:= cc_fill;
field.Field[x+1,y-1]:= cc_miss;
field.Field[x+1,y+1]:= cc_miss;
field.Ships.Four_ship[2].state:= cc_fill;
field.Ships.Four_ship[2].X:=x+1;
field.Ships.Four_ship[2].Y:=y;
field.Field[x+2,y]:= cc_fill;
field.Field[x+2,y-1]:= cc_miss;
field.Field[x+2,y+1]:= cc_miss;
field.Ships.Four_ship[3].state:= cc_fill;
field.Ships.Four_ship[3].X:=x+2;
field.Ships.Four_ship[3].Y:=y;
field.Field[x+3,y]:= cc_fill;
field.Field[x+3,y-1]:= cc_miss;
field.Field[x+3,y+1]:= cc_miss;
field.Field[x+4,y]:= cc_miss;
field.Field[x+4,y+1]:= cc_miss;
field.Field[x+4,y-1]:= cc_miss;
field.Ships.Four_ship[4].state:= cc_fill;
field.Ships.Four_ship[4].X:=x+3;
field.Ships.Four_ship[4].Y:=y;
end else begin
field.Field[x,y]:= cc_fill;
field.Ships.Four_ship[1].state:= cc_fill;
field.Ships.Four_ship[1].X:=x;
field.Ships.Four_ship[1].Y:=y;
field.Field[x,y-1]:=cc_miss;
field.Field[x-1,y-1]:=cc_miss;
field.Field[x+1,y-1]:=cc_miss;
field.Field[x-1,y]:=cc_miss;
field.Field[x+1,y]:=cc_miss;
field.Field[x,y+1]:= cc_fill;
field.Field[x-1,y+1]:= cc_miss;
field.Field[x+1,y+1]:= cc_miss;
field.Ships.Four_ship[2].state:= cc_fill;
field.Ships.Four_ship[2].X:=x;
field.Ships.Four_ship[2].Y:=y+1;
field.Field[x,y+2]:= cc_fill;
field.Field[x-1,y+2]:= cc_miss;
field.Field[x+1,y+2]:= cc_miss;
field.Ships.Four_ship[3].state:= cc_fill;
field.Ships.Four_ship[3].X:=x;
field.Ships.Four_ship[3].Y:=y+2;
field.Field[x,y+3]:= cc_fill;
field.Field[x-1,y+3]:= cc_miss;
field.Field[x+1,y+3]:= cc_miss;
field.Field[x,y+4]:= cc_miss;
field.Field[x+1,y+4]:= cc_miss;
field.Field[x-1,y+4]:= cc_miss;
field.Ships.Four_ship[4].state:= cc_fill;
field.Ships.Four_ship[4].X:=x;
field.Ships.Four_ship[4].Y:=y+3;
end;
//
// 3-палубный
f:=False;
t:=random(2);
if t = 1 then begin
while not f do begin
x:=Random(8)+1;
y:=Random(8)+1;
if not((field.Field[x,y]= cc_fill)or(field.Field[x,y]= cc_miss)or
(field.Field[x,y+1]= cc_fill)or(field.Field[x,y+1]= cc_miss)or
(field.Field[x,y+2]= cc_fill)or(field.Field[x,y+2]= cc_miss)) then f:=true;
end; end else begin
while not f do begin
x:=Random(8)+1;
y:=Random(8)+1;
if not((field.Field[x,y]= cc_fill)or(field.Field[x,y]= cc_miss)or
(field.Field[x+1,y]= cc_fill)or(field.Field[x+1,y]= cc_miss)or
(field.Field[x+2,y]= cc_fill)or(field.Field[x+2,y]= cc_miss)) then f:=true;
end;
end;
if t = 0 then begin
field.Field[x,y]:= cc_fill;
field.Ships.Three_ship1[1].state:= cc_fill;
field.Ships.Three_ship1[1].X:=x;
field.Ships.Three_ship1[1].Y:=y;
field.Field[x-1,y]:=cc_miss;
field.Field[x-1,y-1]:=cc_miss;
field.Field[x-1,y+1]:=cc_miss;
field.Field[x,y-1]:=cc_miss;
field.Field[x,y+1]:=cc_miss;
field.Field[x+1,y]:= cc_fill;
field.Field[x+1,y-1]:= cc_miss;
field.Field[x+1,y+1]:= cc_miss;
field.Ships.Three_ship1[2].state:= cc_fill;
field.Ships.Three_ship1[2].X:=x+1;
field.Ships.Three_ship1[2].Y:=y;
field.Field[x+2,y]:= cc_fill;
field.Field[x+2,y-1]:= cc_miss;
field.Field[x+2,y+1]:= cc_miss;
field.Field[x+3,y]:= cc_miss;
field.Field[x+3,y+1]:= cc_miss;
field.Field[x+3,y-1]:= cc_miss;
field.Ships.Three_ship1[3].state:= cc_fill;
field.Ships.Three_ship1[3].X:=x+2;
field.Ships.Three_ship1[3].Y:=y;
end else begin
field.Field[x,y]:= cc_fill;
field.Ships.Three_ship1[1].state:= cc_fill;
field.Ships.Three_ship1[1].X:=x;
field.Ships.Three_ship1[1].Y:=y;
field.Field[x,y-1]:=cc_miss;
field.Field[x-1,y-1]:=cc_miss;
field.Field[x+1,y-1]:=cc_miss;
field.Field[x-1,y]:=cc_miss;
field.Field[x+1,y]:=cc_miss;
field.Field[x,y+1]:= cc_fill;
field.Field[x-1,y+1]:= cc_miss;
field.Field[x+1,y+1]:= cc_miss;
field.Ships.Three_ship1[2].state:= cc_fill;
field.Ships.Three_ship1[2].X:=x;
field.Ships.Three_ship1[2].Y:=y+1;
field.Field[x,y+2]:= cc_fill;
field.Field[x-1,y+2]:= cc_miss;
field.Field[x+1,y+2]:= cc_miss;
field.Field[x,y+3]:= cc_miss;
field.Field[x+1,y+3]:= cc_miss;
field.Field[x-1,y+3]:= cc_miss;
field.Ships.Three_ship1[3].state:= cc_fill;
field.Ships.Three_ship1[3].X:=x;
field.Ships.Three_ship1[3].Y:=y+2;
end;
//...
f:=False;
t:=random(2);
if t = 1 then begin
while not f do begin
x:=Random(8)+1;
y:=Random(8)+1;
if not((field.Field[x,y]= cc_fill)or(field.Field[x,y]= cc_miss)or
(field.Field[x,y+1]= cc_fill)or(field.Field[x,y+1]= cc_miss)or
(field.Field[x,y+2]= cc_fill)or(field.Field[x,y+2]= cc_miss)) then f:=true;
end; end else begin
while not f do begin
x:=Random(8)+1;
y:=Random(8)+1;
if not((field.Field[x,y]= cc_fill)or(field.Field[x,y]= cc_miss)or
(field.Field[x+1,y]= cc_fill)or(field.Field[x+1,y]= cc_miss)or
(field.Field[x+2,y]= cc_fill)or(field.Field[x+2,y]= cc_miss)) then f:=true;
end;
end;
if t = 0 then begin
field.Field[x,y]:= cc_fill;
field.Ships.Three_ship2[1].state:= cc_fill;
field.Ships.Three_ship2[1].X:=x;
field.Ships.Three_ship2[1].Y:=y;
field.Field[x-1,y]:=cc_miss;
field.Field[x-1,y-1]:=cc_miss;
field.Field[x-1,y+1]:=cc_miss;
field.Field[x,y-1]:=cc_miss;
field.Field[x,y+1]:=cc_miss;
field.Field[x+1,y]:= cc_fill;
field.Field[x+1,y-1]:= cc_miss;
field.Field[x+1,y+1]:= cc_miss;
field.Ships.Three_ship2[2].state:= cc_fill;
field.Ships.Three_ship2[2].X:=x+1;
field.Ships.Three_ship2[2].Y:=y;
field.Field[x+2,y]:= cc_fill;
field.Field[x+2,y-1]:= cc_miss;
field.Field[x+2,y+1]:= cc_miss;
field.Field[x+3,y]:= cc_miss;
field.Field[x+3,y+1]:= cc_miss;
field.Field[x+3,y-1]:= cc_miss;
field.Ships.Three_ship2[3].state:= cc_fill;
field.Ships.Three_ship2[3].X:=x+2;
field.Ships.Three_ship2[3].Y:=y;
end else begin
field.Field[x,y]:= cc_fill;
field.Ships.Three_ship2[1].state:= cc_fill;
field.Ships.Three_ship2[1].X:=x;
field.Ships.Three_ship2[1].Y:=y;
field.Field[x,y-1]:=cc_miss;
field.Field[x-1,y-1]:=cc_miss;
field.Field[x+1,y-1]:=cc_miss;
field.Field[x-1,y]:=cc_miss;
field.Field[x+1,y]:=cc_miss;
field.Field[x,y+1]:= cc_fill;
field.Field[x-1,y+1]:= cc_miss;
field.Field[x+1,y+1]:= cc_miss;
field.Ships.Three_ship2[2].state:= cc_fill;
field.Ships.Three_ship2[2].X:=x;
field.Ships.Three_ship2[2].Y:=y+1;
field.Field[x,y+2]:= cc_fill;
field.Field[x-1,y+2]:= cc_miss;
field.Field[x+1,y+2]:= cc_miss;
field.Field[x,y+3]:= cc_miss;
field.Field[x+1,y+3]:= cc_miss;
field.Field[x-1,y+3]:= cc_miss;
field.Ships.Three_ship2[3].state:= cc_fill;
field.Ships.Three_ship2[3].X:=x;
field.Ships.Three_ship2[3].Y:=y+2;
end;
// 2-палубный
f:=False;
t:=random(2);
if t = 1 then begin
while not f do begin
x:=Random(9)+1;
y:=Random(9)+1;
if not((field.Field[x,y]= cc_fill)or(field.Field[x,y]= cc_miss)or
(field.Field[x,y+1]= cc_fill)or(field.Field[x,y+1]= cc_miss)) then f:=true;
end; end else begin
while not f do begin
x:=Random(9)+1;
y:=Random(9)+1;
if not((field.Field[x,y]= cc_fill)or(field.Field[x,y]= cc_miss)or
(field.Field[x+1,y]= cc_fill)or(field.Field[x+1,y]= cc_miss)) then f:=true;
end;
end;
if t = 0 then begin
field.Field[x,y]:= cc_fill;
field.Ships.Two_ship1[1].state:= cc_fill;
field.Ships.Two_ship1[1].X:=x;
field.Ships.Two_ship1[1].Y:=y;
field.Field[x-1,y]:=cc_miss;
field.Field[x-1,y-1]:=cc_miss;
field.Field[x-1,y+1]:=cc_miss;
field.Field[x,y-1]:=cc_miss;
field.Field[x,y+1]:=cc_miss;
field.Field[x+1,y]:= cc_fill;
field.Field[x+1,y-1]:= cc_miss;
field.Field[x+1,y+1]:= cc_miss;
field.Field[x+2,y]:= cc_miss;
field.Field[x+2,y+1]:= cc_miss;
field.Field[x+2,y-1]:= cc_miss;
field.Ships.Two_ship1[2].state:= cc_fill;
field.Ships.Two_ship1[2].X:=x+1;
field.Ships.Two_ship1[2].Y:=y;
end else begin
field.Field[x,y]:= cc_fill;
field.Ships.Two_ship1[1].state:= cc_fill;
field.Ships.Two_ship1[1].X:=x;
field.Ships.Two_ship1[1].Y:=y;
field.Field[x,y-1]:=cc_miss;
field.Field[x-1,y-1]:=cc_miss;
field.Field[x+1,y-1]:=cc_miss;
field.Field[x-1,y]:=cc_miss;
field.Field[x+1,y]:=cc_miss;
field.Field[x,y+1]:= cc_fill;
field.Field[x-1,y+1]:= cc_miss;
field.Field[x+1,y+1]:= cc_miss;
field.Field[x,y+2]:= cc_miss;
field.Field[x+1,y+2]:= cc_miss;
field.Field[x-1,y+2]:= cc_miss;
field.Ships.Two_ship1[2].state:= cc_fill;
field.Ships.Two_ship1[2].X:=x;
field.Ships.Two_ship1[2].Y:=y+1;
end;
// ...2
f:=False;
t:=random(2);
if t = 1 then begin
while not f do begin
x:=Random(9)+1;
y:=Random(9)+1;
if not((field.Field[x,y]= cc_fill)or(field.Field[x,y]= cc_miss)or
(field.Field[x,y+1]= cc_fill)or(field.Field[x,y+1]= cc_miss)) then f:=true;
end; end else begin
while not f do begin
x:=Random(9)+1;
y:=Random(9)+1;
if not((field.Field[x,y]= cc_fill)or(field.Field[x,y]= cc_miss)or
(field.Field[x+1,y]= cc_fill)or(field.Field[x+1,y]= cc_miss)) then f:=true;
end;
end;
if t = 0 then begin
field.Field[x,y]:= cc_fill;
field.Ships.Two_ship2[1].state:= cc_fill;
field.Ships.Two_ship2[1].X:=x;
field.Ships.Two_ship2[1].Y:=y;
field.Field[x-1,y]:=cc_miss;
field.Field[x-1,y-1]:=cc_miss;
field.Field[x-1,y+1]:=cc_miss;
field.Field[x,y-1]:=cc_miss;
field.Field[x,y+1]:=cc_miss;
field.Field[x+1,y]:= cc_fill;
field.Field[x+1,y-1]:= cc_miss;
field.Field[x+1,y+1]:= cc_miss;
field.Field[x+2,y]:= cc_miss;
field.Field[x+2,y+1]:= cc_miss;
field.Field[x+2,y-1]:= cc_miss;
field.Ships.Two_ship2[1].state:= cc_fill;
field.Ships.Two_ship2[1].X:=x+1;
field.Ships.Two_ship2[1].Y:=y;
end else begin
field.Field[x,y]:= cc_fill;
field.Ships.Two_ship2[1].state:= cc_fill;
field.Ships.Two_ship2[1].X:=x;
field.Ships.Two_ship2[1].Y:=y;
field.Field[x,y-1]:=cc_miss;
field.Field[x-1,y-1]:=cc_miss;
field.Field[x+1,y-1]:=cc_miss;
field.Field[x-1,y]:=cc_miss;
field.Field[x+1,y]:=cc_miss;
field.Field[x,y+1]:= cc_fill;
field.Field[x-1,y+1]:= cc_miss;
field.Field[x+1,y+1]:= cc_miss;
field.Field[x,y+2]:= cc_miss;
field.Field[x+1,y+2]:= cc_miss;
field.Field[x-1,y+2]:= cc_miss;
field.Ships.Two_ship2[2].state:= cc_fill;
field.Ships.Two_ship2[2].X:=x;
field.Ships.Two_ship2[2].Y:=y+1;
end;
// ...3
f:=False;
t:=random(2);
if t = 1 then begin
while not f do begin
x:=Random(9)+1;
y:=Random(9)+1;
if not((field.Field[x,y]= cc_fill)or(field.Field[x,y]= cc_miss)or
(field.Field[x,y+1]= cc_fill)or(field.Field[x,y+1]= cc_miss)) then f:=true;
end; end else begin
while not f do begin
x:=Random(9)+1;
y:=Random(9)+1;
if not((field.Field[x,y]= cc_fill)or(field.Field[x,y]= cc_miss)or
(field.Field[x+1,y]= cc_fill)or(field.Field[x+1,y]= cc_miss)) then f:=true;
end;
end;
if t = 0 then begin
field.Field[x,y]:= cc_fill;
field.Ships.Two_ship3[1].state:= cc_fill;
field.Ships.Two_ship3[1].X:=x;
field.Ships.Two_ship3[1].Y:=y;
field.Field[x-1,y]:=cc_miss;
field.Field[x-1,y-1]:=cc_miss;
field.Field[x-1,y+1]:=cc_miss;
field.Field[x,y-1]:=cc_miss;
field.Field[x,y+1]:=cc_miss;
field.Field[x+1,y]:= cc_fill;
field.Field[x+1,y-1]:= cc_miss;
field.Field[x+1,y+1]:= cc_miss;
field.Field[x+2,y]:= cc_miss;
field.Field[x+2,y+1]:= cc_miss;
field.Field[x+2,y-1]:= cc_miss;
field.Ships.Two_ship3[2].state:= cc_fill;
field.Ships.Two_ship3[2].X:=x+1;
field.Ships.Two_ship3[2].Y:=y;
end else begin
field.Field[x,y]:= cc_fill;
field.Ships.Two_ship3[1].state:= cc_fill;
field.Ships.Two_ship3[1].X:=x;
field.Ships.Two_ship3[1].Y:=y;
field.Field[x,y-1]:=cc_miss;
field.Field[x-1,y-1]:=cc_miss;
field.Field[x+1,y-1]:=cc_miss;
field.Field[x-1,y]:=cc_miss;
field.Field[x+1,y]:=cc_miss;
field.Field[x,y+1]:= cc_fill;
field.Field[x-1,y+1]:= cc_miss;
field.Field[x+1,y+1]:= cc_miss;
field.Field[x,y+2]:= cc_miss;
field.Field[x+1,y+2]:= cc_miss;
field.Field[x-1,y+2]:= cc_miss;
field.Ships.Two_ship3[2].state:= cc_fill;
field.Ships.Two_ship3[2].X:=x;
field.Ships.Two_ship3[2].Y:=y+1;
end;
// 1-палубные
f:= False;
while not f do begin
x:=Random(10)+1;
y:=Random(10)+1;
if not((field.Field[x,y]= cc_fill)or(field.Field[x,y]= cc_miss)) then f:=true;
end;
field.Field[x-1,y]:= cc_miss;
field.Field[x-1,y-1]:= cc_miss;
field.Field[x-1,y+1]:= cc_miss;
field.Field[x+1,y]:= cc_miss;
field.Field[x+1,y-1]:= cc_miss;
field.Field[x+1,y+1]:= cc_miss;
field.Field[x,y-1]:= cc_miss;
field.Field[x,y+1]:= cc_miss;
field.Field[x,y]:= cc_fill;
field.Ships.One_ship1[1].state:=cc_fill;
field.Ships.One_ship1[1].X:=x;
field.Ships.One_ship1[1].Y:=y;
f:=False;
while not f do begin
x:=Random(10)+1;
y:=Random(10)+1;
if not((field.Field[x,y]= cc_fill)or(field.Field[x,y]= cc_miss)) then f:=true;
end;
field.Field[x-1,y]:= cc_miss;
field.Field[x-1,y-1]:= cc_miss;
field.Field[x-1,y+1]:= cc_miss;
field.Field[x+1,y]:= cc_miss;
field.Field[x+1,y-1]:= cc_miss;
field.Field[x+1,y+1]:= cc_miss;
field.Field[x,y-1]:= cc_miss;
field.Field[x,y+1]:= cc_miss;
field.Field[x,y]:= cc_fill;
field.Ships.One_ship2[1].state:=cc_fill;
field.Ships.One_ship2[1].X:=x;
field.Ships.One_ship2[1].Y:=y;
f:= False;
while not f do begin
x:=Random(10)+1;
y:=Random(10)+1;
if not((field.Field[x,y]= cc_fill)or(field.Field[x,y]= cc_miss)) then f:=true;
end;
field.Field[x-1,y]:= cc_miss;
field.Field[x-1,y-1]:= cc_miss;
field.Field[x-1,y+1]:= cc_miss;
field.Field[x+1,y]:= cc_miss;
field.Field[x+1,y-1]:= cc_miss;
field.Field[x+1,y+1]:= cc_miss;
field.Field[x,y-1]:= cc_miss;
field.Field[x,y+1]:= cc_miss;
field.Field[x,y]:= cc_fill;
field.Ships.One_ship3[1].state:=cc_fill;
field.Ships.One_ship3[1].X:=x;
field.Ships.One_ship3[1].Y:=y;
f:= False;
while not f do begin
x:=Random(10)+1;
y:=Random(10)+1;
if not((field.Field[x,y]= cc_fill)or(field.Field[x,y]= cc_miss)) then f:=true;
end;
field.Field[x-1,y]:= cc_miss;
field.Field[x-1,y-1]:= cc_miss;
field.Field[x-1,y+1]:= cc_miss;
field.Field[x+1,y]:= cc_miss;
field.Field[x+1,y-1]:= cc_miss;
field.Field[x+1,y+1]:= cc_miss;
field.Field[x,y-1]:= cc_miss;
field.Field[x,y+1]:= cc_miss;
field.Field[x,y]:= cc_fill;
field.Ships.One_ship4[1].state:=cc_fill;
field.Ships.One_ship4[1].X:=x;
field.Ships.One_ship4[1].Y:=y;
// Очистка от точек
for x:=1 to 10 do begin
for y:=1 to 10 do begin
if field.Field[x,y]= cc_miss then field.Field[x,y]:= cc_none;
end;
end;
if mine then my_field:=field else Com_field:=field;
end;
Если хотите, могу скинуть exe-шник готовой программы...