Острова Опции

[@^WARlock^@]

Народ помогите написать программу.


Острова (определить кол-во островов на озере).

Прога частично напоминает морской бой. Задается поле, на нем можно расставлять острова (один квадрат –ик один остров). После расставления островов, прога должна сосчитать их кол-во.

[@^WARlock^@]

Народ, подскажите алгоритм выполнения подсчета островов или блок схему процедуры подсчета островов.

Процедура подсчета островов:

.....
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;
.....

Я как бы сделал блок схему, и алгоритм проги, но мне сказали после условия "Если поле заполнено", подробно расписать, как происходит подсчет островов.

!

@^WARlock^@, файлы .doc прикреплять запрещено (читай Правила). Файл удален. Lapp

Сообщение отредактировано: Lapp - 22.04.2007 11:24

[Lapp]

Народ, подскажите алгоритм выполнения подсчета островов или блок схему процедуры подсчета островов.
...
Я как бы сделал блок схему, и алгоритм проги, но мне сказали после условия "Если поле заполнено", подробно расписать, как происходит подсчет островов.

Твоя процедура работает неправильно.. Нет смысла, думаю, составлять алгоритм или блок-схему по неверной процедуре. Вот, смотри - тут приведены острова, потом выводится результат твоей процедуры, а потом сама матрица, где можно видеть, как ты считал острова. Видно, что один и тот же остров помечен разными цифрами. Волны означают воду..

Код

~~~~~~~~
XXXXXXXX
~XX~~~X~
X~~~XXX~
X~XX~~~X
~~XXX~XX
X~XX~XXX
~XXX~XXX

9

~~~~~~~~
22222222
~22~~~2~
3~~~444~
3~55~~~6
~~555~77
1~55~888
~999~888

@^WARlock^@ - чисто по-человечески, скажи, почему ты сначала задаешь вопрос, тебе отвечают, потом ты делаешь все по-другому, а потом снова просишь ответить на вопрос, на который уже отвечено в самом первом посте темы?..
Это вызываает недоумение.. Есть ли смысл говорить, если собеседник не слышит?