Последние записи
- Удаление папки с файлами
- Распечатка файла
- Преобразовать массив байт в вещественное число (single)
- TChromium (CEF3), сохранение изображений
- Как в Delphi XE обнулить таймер?
- Изменить цвет шрифта TextBox на форме
- Ресайз PNG без потери прозрачности
- Вывод на печать графического файла
- Взаимодействие через командную строку
- Перенести программу из Delphi в Lazarus
Интенсив по Python: Работа с API и фреймворками 24-26 ИЮНЯ 2022. Знаете Python, но хотите расширить свои навыки?
Slurm подготовили для вас особенный продукт! Оставить заявку по ссылке - https://slurm.club/3MeqNEk
Online-курс Java с оплатой после трудоустройства. Каждый выпускник получает предложение о работе
И зарплату на 30% выше ожидаемой, подробнее на сайте академии, ссылка - ttps://clck.ru/fCrQw
4th
Июл
Решение игры сапёр на 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 сек
Пост написан при поддержке ПСК СОЮЗ. ПСК СОЮЗ — свайный фундамент по низкой цене.
Похожие статьи
Купить рекламу на сайте за 1000 руб
пишите сюда - alarforum@yandex.ru
Да и по любым другим вопросам пишите на почту
пеллетные котлы
Пеллетный котел Emtas
Наши форумы по программированию:
- Форум Web программирование (веб)
- Delphi форумы
- Форумы C (Си)
- Форум .NET Frameworks (точка нет фреймворки)
- Форум Java (джава)
- Форум низкоуровневое программирование
- Форум VBA (вба)
- Форум OpenGL
- Форум DirectX
- Форум CAD проектирование
- Форум по операционным системам
- Форум Software (Софт)
- Форум Hardware (Компьютерное железо)