Delphi. Сапер. Алгоритмы.

[Mr_freeman]

Здравствуйте, написал свой вариант сапера: http://files.mail.ru/VUBKNS
Как то пробовал давно его сделать, но не хватило толку придумать, как открыть пустые поля рядом с пустой клеткой, по которой щелкнул. Сейчас почему то быстро придумал алгоритм, но достаточно тупой (если по коду не понятно, могу объяснить).
Хотелось бы узнать какие вообще существуют алгоритмы для этого. Слышал что можно через рекурсию, но даже не пытался, ибо не силен в ней.
Еще вопрос, почему при указании размеров окна больше чем 31 на 31 - глюк, так же глюк происходит, если количество мин очень близко к количеству клеток, но это понятно(думаю опять же из-за моего тупого алгоритма), вообщем вот все что хотел узнать.
Если будете выкладывать свои алго, то немного объясню про то, как мой вариант устроен:

Есть поле(матрица (pole[i,j])) из символов: '0' - пустая клетка, '1'..'8' - кол-во мин, '9' - мина.
Есть еще две логические матрицы (open,flags) - соответственно для статусов "открыта ли клетка" и "стоит ли флажок"
Вообщем это было моим фундаментом, весь остальной код для интерактивности и графики.

[veniside]

это типичный обход дерева, рекурсией удобней всего, имхо

[Alar]

А почему бы к форуму не прикрепить исходник чтобы не потерялся?

[Mr_freeman]

А вы не могли бы рассказать поподробнее про дерево и рекурсию на данном примере??
Кстати если кому то нужно, могу написать все комментарии к коду.

[veniside]

Ну вот у вас есть поле и клетка, с которой начинается обход.

Рекурсивная процедура будет принимать как параметр координаты клетки.
Она будет просматривать 8 соседей, и для каждого пустого соседа вызывать саму себя с координатами соседа. Типа такого:

procedure MarkOpen(x, y: Integer);
begin
   0) если [x, y] уже помечена как открытая, выходим — защита от ложных вызовов
   //
   1) помечаем [x, y] как открытую
   //
   2) в цикле просматриваем 8 соседей:
     //
     2.1) если сосед [xS, yS] свободен (мин нет) и не открыт, вызываем MarkOpen(xS, yS)
end;

[Mr_freeman]

Ммм я с рекурсией плохо знаком.. Как из нее выйти??

[Wicort]

Выходом из рекурсии является первое условие:

0) если [x, y] уже помечена как открытая, выходим — защита от ложных вызовов

[Mr_freeman]

Так я вот и не понимаю что значит "выходим"=)

[Alex&(R)]

Ну, в C/C++/C#/Java и т.п это return.
В Pascal - Exit.
Просто выход из функции (процедуры). Для функции возможно также передать значение.

[Liba]

Сообщение от Mr_freeman

Кстати если кому то нужно, могу написать все комментарии к коду.

Можно пожалуйста если не трудно. Буду сильно благодарен!