Генератор лабиринтов

[Stelsi00x]

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

[phomm]

уже в который раз говорю одну и ту же (почти) фразу :

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

бывает также помогает и поиск по форуму...

Но в любом случае, если вы не представляете что и как делать, то Вы даже не втолкуете это тому , кто за Вас будет делать, так что желаю Вам перефразировать задачу, разделить на подзадачи, попробовать часть выполнить, а часть попросить помощи в виде конкретных вопросов (после того , как поиск по форуму не дал ответов на Ваш вопрос)

[Stelsi00x]

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

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, StdCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    Image1: TImage;
    Label1: TLabel;
    Label2: TLabel;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
{построение квадрата линиями с выходом и входом}
//image1.Canvas.Rectangle(505,505,505,505);
image1.Canvas.MoveTo(10,10);
image1.Canvas.LineTo(720,10);
image1.Canvas.LineTo(720,543);
image1.Canvas.MoveTo(10,25);
image1.Canvas.LineTo(10,545);
image1.Canvas.LineTo(700,545);
end;
{описание создания лабиринта}
var
kletka = record;

labirint = array[1..n, 1..n] of kletka;
l,r,t,f: boolean;
way: boolean;

end;

end.

дальше не знаю что делать(((( ХЕЛП


________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)
Не забывайте об этом!
Модератор.

[Serge_Bliznykov]

смотрите, Вы путаете "рисование лабиринта" с генерацией лабиринта.
Собственно генерации у Вас и нет никакой.

посмотрите, вот решение Вашей задачи на форуме:
Генерирование рандомного лабиринта
пост #4

ну, ещё можете сходить сюда: Генерирование рандомного лабиринта

или даже сюда - результаты поиска на Гугл или сюда - результаты поиска на Яндекс