Решение игры сапёр на Delphi методом обхода дерева

Posted by admin under Delphi, Исходники, Топик-обзор, Файлы

Windows Сапёр в Delphi — сама игра и её решение.

Mr_freeman:

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

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

Тема на форуме
Еще ссылка на исходник сапёра в Delphi

L_M:

выйграл в сапера за пару секунд — первый же клик открыл почти всю карту

Greblin:

Сапёр рекорд на профи 90 сек

Рекорды в сапёре на форуме

Пост написан при поддержке ПСК СОЮЗ. ПСК СОЮЗ — свайный фундамент по низкой цене.

Похожие статьи

• Как пройти по всем элементам MenuStrip?
• Сапёр на Delphi 2010
• Бинарные деревья