1. Определить все клетки, относящиеся к острову (обходом в глубину или в ширину, например).

Цитата(@^WARlock^@ @ 4.03.2007 12:45)

Цитата(@^WARlock^@ @ 3.03.2007 7:26)

Цитата(@^WARlock^@ @ 4.03.2007 12:45)

s:=0;
for j:=1 to 10 do for i:=1 to 10 do s:=s+ac[i,j];

Цитата(TarasBer @ 3.03.2007 19:07)

const
  mx=8;
  my=8;
var
  Z:array[1..mx,1..my]of integer;
  i,j,x,y,n:integer;
  Flag:boolean;


begin
  {Задание массива случайным образом}
  for j:=1 to my do for i:=1 to mx do Z[i,j]:=-Random(2);
  for j:=1 to my do begin
    for i:=1 to mx do case Z[i,j] of
      0:Write('~');
      -1:Write('X');
    end;
    WriteLn
  end;
  {Реализация алгоритма}
  n:=0;
  for y:=1 to my do for x:=1 to mx do if Z[x,y]=-1 then begin
    Inc(n);
    Z[x,y]:=n;
    repeat
      Flag:=false;
      for j:=1 to my do for i:=1 to mx do
        if (Z[i,j]=-1)and((i>1)and(Z[i-1,j]=n)or(i<mx)and(Z[i+1,j]=n)or(j>1)and(Z[i,j-1]=n)or(j<my)and(Z[i,j+1]=n))
        then begin
          Z[i,j]:=n;
          Flag:=true
        end
    until not Flag
  end;
  WriteLn('Total islands: ',n);
  ReadLn
end.

......
{Реализация алгоритма}
n:=0;
for y:=1 to my do 
for x:=1 to mx do 

if Z[x,y]=-1 then begin {Вот тут убираю минус}

Inc(n);
Z[x,y]:=n;
repeat
Flag:=false;
for j:=1 to my do for i:=1 to mx do
if (Z[i,j]=-1)and((i>1)and(Z[i-1,j]=n)or(i<mx)and(Z[i+1,j]=n)or(j>1)and(Z[i,j-1]=n)or(j<my)and(Z[i,j+1]=n))
then begin
Z[i,j]:=n;
Flag:=true
end
until not Flag
end;
WriteLn('Total islands: ',n);
......
  ReadLn

.....
Procedure Schet;
Var
  n:integer;
begin
  n:=mx*my;
 for wy:=1 to my do
 for wx:=1 to mx do
  if (Z[wx,wy]=1) and (Z[wx,wy+1]<>1) and (Z[wx+1,wy]<>1) and
                      (Z[wx,wy-1]<>1) and (Z[wx-1,wy]<>1) then
begin
 Inc(n);
 Z[wx,wy]:=n;
end;
 for wy:=1 to my do
 for wx:=1 to mx do
  if (Z[wx,wy]=1) and (Z[wx,wy+1]<mx*my) and (Z[wx+1,wy]<mx*my) and
                      (Z[wx,wy-1]<mx*my) and (Z[wx-1,wy]<mx*my) then
begin
 Inc(n);
 Z[wx,wy]:=n;
end
else if(Z[wx,wy]=1) then
begin
 if (Z[wx,wy+1]>mx*my) then Z[wx,wy]:=Z[wx,wy+1];
 if (Z[wx+1,wy]>mx*my) then Z[wx,wy]:=Z[wx+1,wy];
 if (Z[wx,wy-1]>mx*my) then Z[wx,wy]:=Z[wx,wy-1];
 if (Z[wx-1,wy]>mx*my) then Z[wx,wy]:=Z[wx-1,wy];
end;
 write(n-mx*my);
end;
.....

1)Ввожу острова, их кол-во выводится правильно, в данном случае (14).

X~~XX~X~~~
~X~~~X~X~~
X~X~X~X~~~
~X~X~~~~~~
X~X~~~~~~~
~~~~~~~~~~

2)Снова ввожу острова, кол-во выводится либо правильно, либо почти.
3)Ввожу ту же комбнацию, что и в 1-ом случае, совершенно друго результат.