Witam
Moze ja cos napisze:
Mamy sobie plansze:
OOOOOOO
OxxxxxxO
OxxxxxxO
OxxxxxxO
OxxxxxxO
OxxxxxxO
OOOOOOO
wiec jest to prostokat o wymiarach 5x6 oznaczone x. O to obwodka
- Rozmieszczanie statkow:
Musimy wybrac najpierw w jakim punkcie statku bediemy go ustawiac na planszy:
XXXP - czteromasztowiec, p to miejsce w ktorym go umiescimy wedlug statku. (mozna roznie XXPX, XPXX,PXXX) i wedlug tego liczymy czy mozna ustawic na planszy. Tu opisze dla XXXP
w prostokacie 5x6: klikamy na punkt 1,2 wiec wedlug funkcji sprawdzamy:
Type
statek = record
trafiony: boolean;
dlugoscstatku: byte;
end;
...
var
dlugoscstatku, i: integer;
polozenie: Tpoint;
Plansza: Array[1..5,1..6,1..2] of statek;
begin
for i:=dlugoscstaku to 1 do
begin
if polozenie.x - i