Недавно добавленные исходники

•  DeLiKaTeS Tetris (Тетрис)  4 835

•  TDictionary Custom Sort  6 827

•  Fast Watermark Sources  6 606

•  3D Designer  9 573

•  Sik Screen Capture  6 946

•  Patch Maker  7 393

•  Айболит (remote control)  7 343

•  ListBox Drag & Drop  6 200

•  Доска для игры Реверси  98 193

•  Графические эффекты  7 515

•  Рисование по маске  6 799

•  Перетаскивание изображений  5 654

•  Canvas Drawing  6 032

•  Рисование Луны  5 825

•  Поворот изображения  5 274

•  Рисование стержней  3 866

•  Paint on Shape  3 020

•  Генератор кроссвордов  3 980

•  Головоломка Paletto  3 153

•  Теорема Монжа об окружностях  3 995

 

 

Каталог исходников

   
  Базы данных
  Графика & Мультимедиа
  Сети & Интернет
  Система
  Разное
   

 

 

Delphi Sources

Delphi Sources

 




 

ИСХОДНИК ПРОГРАММЫ

 

. : Автомобильная пробка : .

 

Delphi - Нужно помочь красной машине выбраться из пробки, убрав с дороги другие машины

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

Это Delphi-версия популярной физической головоломки Rush Hour. Пользователи могут щелкать и перетаскивать автомобили по вертикали или горизонтали, чтобы подвести красную машину к выезду (транспортные средства движутся только в направлении наиболее длинной оси).

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

Просмотры: 1 476
Дата: 08.07.2021, Автор: Gary Darby
Скачивания: 20
Написать сообщение:

 

Скачать (198 Кб)     Регистрация >>

 

© 2004-2025 "DS"

Соглашение пользователяКонфиденциальностьПравила обработки cookie       BrokenByte Software


Форум по Delphi программированию - Ошибка базы данных

Кажется, произошла проблема с базой данных Форум по Delphi программированию.
Пожалуйста, попробуйте зайти снова, нажав на кнопку Обновить вашего браузера.

Нашей службе технической поддержке был послан email. Вы также можете написать им письмо, если проблема не решиться.

Извените за причинённые неудобства.