Исправить код лабиринта

@STAR WARS · Регистрация: 24.11.2016

Студворк — интернет-сервис помощи студентам

QBasic/QuickBASIC
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
DO
K$ = INKEY$
IF K$ = "K" THEN GOSUB LABIRINT
LOOP
LABIRINT:
OPEN "WWW.BAS" FOR APPEND AS #1
PRINT #1, "A = INT(RND(1)*2)"
PRINT #1, "IF A = 1 THEN LINE (10,10)-(50,10),1"
CLOSE #1
PRINT "WOD"
RETURN
 
'WWW.BAS
'SCREEN 13
'RANDOMIZE TIMER

@Pro_grammer · 21.12.2016, 11:41

Примерно так

@m-ch · 21.12.2016, 14:01

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

Но можно ли при помощи этого решения на VBA пройти конкретно нарисованный тут лабиринт?

Для этого лабиринт нужно описать в той системе, под которое сделано решение.
Сложность возникает в переводе из картинки в описание лабиринта (в виде матрицы либо в виде графа)

@Pro_grammer · 21.12.2016, 17:30

Сообщение от m-ch

Для этого лабиринт нужно описать в той системе, под которое сделано решение.

Полагаю, что описание может занять время, гораздо большее, чем само прохождение.
Скажем, станет ли кто реальный кроссворд из журнала проходить вашим способом?
Т.е. практическое использование именно в этом качестве маловероятно.

@m-ch · 21.12.2016, 18:15

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

Скажем, станет ли кто реальный кроссворд из журнала проходить вашим способом?

Данный лабиринт программным способом нет необходимости решать, в уме выход находится за несколько секунд.

Большую ценности имеет реализация волнового алгоритма
Также есть варианты реализация поиска кратчайших путей алгоритмом Дейкстры, Левита, Форда-Беллмана

К примеру поиск кратчайших маршрутов от любой точки к любой делал на графе состоящим из 264346 точек и 733846 ребер. Решение находится за считанные секунды.

данные взял здесь (New York City)
решение (файл 10МБ): https://yadi.sk/d/JxL83oXIAnqsh
Лучше запускать решение алгоритмом Дейкстры для разреженного графа либо алгоритмом Левита, стандартную Дейкстру не нужно запускать иначе комп надолго зависнет.

@Quiet Snow · 21.12.2016, 22:09

Всё очень просто, не надо никаких Дейкстр с Флойдами, обычная волна для лабиринта
работает оптимально. По поводу применимости к скану газет - это уже из области распознавания
образов, ТС в явном виде этого не требовал, до сих пор не воткнуть, что ему надобно.

(Если анимация глючит, кликнуть на картинку, откроется на отдельной вкладке):

@STAR WARS · 22.12.2016, 00:29 **[ТС]**

ПОИСК ВЫХОДА

@Pro_grammer · 22.12.2016, 08:36

Сообщение от Quiet Snow

это уже из области распознавания
образов

Всё гораздо проще, если по правилу правой руки - есть справа пиксель стены, идем вперёд, пропал - повернули направо. Ну примерно так, + - некоторые нюансы.
Мне было интересно, применим ли тот же волновой алгоритм в реальной жизни. В компьютерном мире понятно, что это оптимально. А пусть даже не журнал или газета, а физический лабиринт?

@Quiet Snow · 22.12.2016, 19:02

Сообщение от STAR WARS

ПОИСК ВЫХОДА

Иногда, в силу возраста, лучше ничего не писать на форуме, т.е. лучше использовать
форум как read only. Поверьте - это очень дельный совет и скоро вы поймёте почему.
И не нужно тыкать пальцем в небо, таким методом не попадёте - инфа 100%.
Рандом не построит вам каждый раз корректный лабиринт, а paint не найдёт маршрут, это факт.

@STAR WARS · 23.12.2016, 12:08 **[ТС]**

А ТАК НАЙДЁТ

@dr_Morro · 23.12.2016, 12:26

Сообщение от STAR WARS

А ТАК НАЙДЁТ

Цирк какой-то...

@locm · 23.12.2016, 13:59

Не по теме:

Сообщение от STAR WARS

А ТАК НАЙДЁТ

Зачем нас спрашивать? Возьми и проверь найдет или нет.

@Quiet Snow · 23.12.2016, 15:41

А ТАК НАЙДЁТ

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

В большинстве случаев лабиринт, построенный случайными стенами через рандом будет
некорректен, искать в нём выход из произвольной точки - означает не найти. Для его
построения ещё на первой странице этой темы дал вам ссылку с готовым запросом в гугл,
где пройдя по ссылкам вы увидите, что умные дядьки понаписали вам кучу алгоритмов (с
пошаговыми примерами), осталось только выбрать нужный, понять и перебить в программу.

PAINT не ищет марштут и не вернёт вам путь, он хоть и работает по волновому алгоритму,
но его цель закрасить область, а не вернуть путь(набор шагов пути, относительных или абсолютных).
Половина закрашенного лабиринта - это не путь.

Более того графический метод поиска будет означать, что вам потребуется иметь
дополнительную страницу видеопамяти, это нецелесообразно, логика должна быть отделена
от графической части. Делается это для того чтобы:

Вы в любой момент могли отрисовать ваш лабиринт, либо его часть, не дёргая страницы
видеопамяти(которых может и не быть) и не мешая графической части вашей программы,
к тому же POINT\PSET работает медленнее(на EGA), чем работа с массивом(т.к. он вынужден
работать с портами ввода\вывода, а не с памятью), это может сильно замедлить работу вашей
программы.
Сделать предрасчёт (например, найти путь заранее и хранить его в массиве).
Разделить логику - это всегда удобно для дробления программы на части(функции и подпрограммы).

Поэтому дельные советы, которые реально помогут:
1) Ссылка с готовым запросом, читайте алгоритмы
2) Справка QBasic - учите язык, массивы, циклы, операторы и т.д. т.п..
3) Форум - read only, потому что больше пол темы люди гадали, что вам нужно. А вы пропустили
мимо ушей все те полезные вещи, которые были написаны по теме. Если нет усидчивости читать
ответы, то в ответной писанине ещё меньше смысла.

@Quiet Snow · 24.12.2016, 02:20

Генерация и решение лабиринта волной.
Код в самом ламерском QB стиле.
3 режима работы, автоматический(по таймеру 1/18), итеративный (по пробелу)
и полноскоростной. В итеративном режиме можно посмотреть как алгоритмы работают,
автоматический можно использовать как скринсейвер.

@PAnT0P · 29.12.2016, 14:08

Можно я тоже присоединюсь?

Поиск кратчайшего пути

Новые блоги и статьи Все статьи Все блоги /
Установка MinGW GCC 16.2 и CMake 8Observer8 10.08.2026 VK Видео: https:/ / vkvideo. ru/ video-240781534_456239017 YouTube: eY5-5PyI9NM Текстовая версия	Неделя из жизни имитационной модели склада: мои кривые руки растут, откуда надо anaschu 10.08.2026 Неделя из жизни имитационной модели склада: как я почти написал неправильную логику и что с этим делать Работаю сейчас над учебно-рабочим проектом: строю в AnyLogic имитационную модель процессов. . .	Калькулятор для расчета родства russiannick 07.08.2026 1. Задача: Создать калькулятор для расчета родства. Родственных связей существует 8 ступеней, такие как: p - отец P - мать q - муж Q - жена b - брат B - сестра s - сын S - дочь	Мир по моей воле kumehtar 07.08.2026 Когда-то кажется, что всё просто. Ты весь такой светлый. Причиняешь добро. Борешься за справедливость в этом тёмном мире. Потом начинаешь замечать одну неприятную вещь. Почти каждый хороший. . .
Кредитный калькулятор Maks 05.08.2026 Решение задачи по прикладной информатике средствами 1С. Задача: Напишите приложение-калькулятор, которое помогает рассчитывать параметры кредита для аннуитетного и дифференцированного видов. . .	У нас сейчас поговорку "Опять 25" нужно переделать на "Опять +35". kumehtar 04.08.2026 С ностальгией вспоминаю времена моего детства, когда у нас и правда +25 - была максимальная температура летом. Раньше +25 °C реально казались вершиной жары, когда можно было весь день пропадать на. . .	Как ИИ начал спорить и врать (возможно почуяв опасность для себя от индустрии - уход от электроники). Hrethgir 04.08.2026 Недельный диалог, на фоне событий с НПЗ. Да, из спирта можно получать бензин, и это не сложно. Но потом в схеме я решил избавиться от насоса, при этом полностью сделав контроль подачи спирта в. . .	Термопринтер QR701 Argus19 03.08.2026 Термопринтер QR701 Купил два термопринтера QR701. На сэлф-тесте написано: Language: PC936 (GB18030). Что означает, что принтеры могут печатать только латиницу и китайские иероглифы. Так же. . .

@Pro_grammer 6807 / 2840 / 527 Регистрация: 24.04.2011 Сообщений: 5,308 Записей в блоге: 10
	21.12.2016, 11:41
	Примерно так 1

@Quiet Snow Кормпилятор 5044 / 1718 / 409 Регистрация: 25.04.2010 Сообщений: 4,827 Записей в блоге: 2
	21.12.2016, 22:09
	Всё очень просто, не надо никаких Дейкстр с Флойдами, обычная волна для лабиринта работает оптимально. По поводу применимости к скану газет - это уже из области распознавания образов, ТС в явном виде этого не требовал, до сих пор не воткнуть, что ему надобно. (Если анимация глючит, кликнуть на картинку, откроется на отдельной вкладке): 0

@PAnT0P 1492 / 587 / 107 Регистрация: 26.03.2012 Сообщений: 1,039
	29.12.2016, 14:08
	Можно я тоже присоединюсь? Поиск кратчайшего пути 2