Форум программистов, компьютерный форум, киберфорум
QBasic
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск Заказать работу  
 
 Аватар для DAV78
6 / 6 / 0
Регистрация: 01.09.2018
Сообщений: 88

Лабиринт qbasic q64 и МЫ

01.01.2026, 12:00. Показов 252. Ответов 0

Студворк — интернет-сервис помощи студентам
Лабиринт qbasic q64 и МЫ

Игра в лабиринт QB64 автоматизирована мной и сама играет
несколько вариантов: ходы по списку MazeCode
или ходы случайные MazeStep или ходы оптимальные MazeLab
и вдобавок MazeRnd синтезирует случайные лабиринты



Сегодня MAZErnd.bas = случайные: см. файл
и позже возможны друге готовые версии

Новейшая программа MazeLab решает лабиринты
задавая следующий ход зависящий от хода предыдущего
и от вида препятствия пещеры: стена или угол

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

Кодировка направления дальновидная 0 > / 1 < / 2 V / 3 ^
для выбора случайного направления вида 2 + Int(Rnd * 2)
показывает вероятность выигрыша 2 в степени свободных ходов
и вероятность 1/64 реально трудная

Причём случайные ходы могли создать ходов шифр не подряд

Создан внутренний массив и каждое перемещение до стены
проверяют 4 * 4 = 16 условий и встроена мини карта массива
плюс возможно настроить ходы назад если стена

Программировал буквально 1 день введя контрольные точки

Начальный лабиринт 7-й уменьшается до 1-го и далее 10-й

Ранние версии программы добавлю в тему позже
где давно у меня шар оставляет следы на поле

Возможно создавать свои лабиринты и решать задав номер
и наверняка возможны случайные лабиринты пещеры

Весело смотреть как программа заходит не в ту дверь
сразу или на крайних очевидных ходах
и лабиринты из книг ещё не проверял

На другие языки проще перевести мой алгоритм массива с мини картой

В принципе реально проверять массив
если проходили угол 3-жды значит тупик стартовать заново

Версия MazeRnd синтезирует случайный лабиринт каждый раз
и в принципе легко настроить повторение лабиринта несколько раз
если вместо обнуления массивов добавлять в конец и не учитывать

Версия для Эксцель Excel программируется легко наверняка

Принципы похожи на XONIX



Все анимации малые и ещё на форуме есть другие темы про лабиринты
задав поиск включая темы: лабиринт

Важные фрагменты кода расшифрую позже в теме
Миниатюры
Лабиринт qbasic q64 и МЫ  
Изображения
 
Вложения
Тип файла: zip MAZErndBAS.zip (29.8 Кб, 7 просмотров)
1
IT_Exp
Эксперт
34794 / 4073 / 2104
Регистрация: 17.06.2006
Сообщений: 32,602
Блог
01.01.2026, 12:00
Ответы с готовыми решениями:

Лабиринт QBasic-а
Эта программа рисует лабиринт (для всех поклонников и просто любителей QBasic) (программа...

лабиринт
дана двоичная матрца 4 на 4 1 0 0 1 1 1 0 1 1 0 1 1 1 0 0 1 где 1-стены 0-проходы входные...

Игра лабиринт VB
Хочу сделать игру типа лабиринта. В которой объект передвигается по полю при нажатии...

0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
BasicMan
Эксперт
29316 / 5623 / 2384
Регистрация: 17.02.2009
Сообщений: 30,364
Блог
01.01.2026, 12:00
Помогаю со студенческими работами здесь

Лабиринт на Visual Basic 6.0
Привет всем! Я заметил, что тут на форуме можно выкладывать примеры работ найденных в Интернете...

Игра "Лабиринт", запретить проходить сквозь стены
Добрый день, сделал простую игру, лабиринт нарисовал и двигается рисунок на кнопочки, нужно выход...

Управление COM-1 портом в QBasic
Никак не пойму как посылать и считывать данные с СОМ-1 порта в QB. Слашал про операторы (функции):...

Задачи QBasic
Задачи по QBasic :huh: 1)В воображаемом квадрате заданного размера построить совокупность n*n...

Использование кирилицы в QBasic
Люди помогите ! Что надо сделать, чтобы в среде программирования QBasic можно было печатать...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
1
Ответ Создать тему
Новые блоги и статьи
Использование SDL3-callbacks вместо функции main() на Android, Desktop и WebAssembly
8Observer8 24.01.2026
Если вы откроете примеры для начинающих на официальном репозитории SDL3 в папке: examples, то вы увидите, что все примеры используют следующие четыре обязательные функции, а привычная функция main(). . .
моя боль
iceja 24.01.2026
Выложила интерполяцию кубическими сплайнами www. iceja. net REST сервисы временно не работают, только через Web. Написала за 56 рабочих часов этот сайт с нуля. При помощи perplexity. ai PRO , при. . .
Модель сукцессии микоризы
anaschu 24.01.2026
Решили писать научную статью с неким РОманом
http://iceja.net/ математические сервисы
iceja 20.01.2026
Обновила свой сайт http:/ / iceja. net/ , приделала Fast Fourier Transform экстраполяцию сигналов. Однако предсказывает далеко не каждый сигнал (см ограничения http:/ / iceja. net/ fourier/ docs ). Также. . .
http://iceja.net/ сервер решения полиномов
iceja 18.01.2026
Выкатила http:/ / iceja. net/ сервер решения полиномов (находит действительные корни полиномов методом Штурма). На сайте документация по API, но скажу прямо VPS слабенький и 200 000 полиномов. . .
Расчёт переходных процессов в цепи постоянного тока
igorrr37 16.01.2026
/ * Дана цепь(не выше 3-го порядка) постоянного тока с элементами R, L, C, k(ключ), U, E, J. Программа находит переходные токи и напряжения на элементах схемы классическим методом(1 и 2 з-ны. . .
Восстановить юзерскрипты Greasemonkey из бэкапа браузера
damix 15.01.2026
Если восстановить из бэкапа профиль Firefox после переустановки винды, то список юзерскриптов в Greasemonkey будет пустым. Но восстановить их можно так. Для этого понадобится консольная утилита. . .
Сукцессия микоризы: основная теория в виде двух уравнений.
anaschu 11.01.2026
https:/ / rutube. ru/ video/ 7a537f578d808e67a3c6fd818a44a5c4/
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru