Лабиринт, ПОмогите пожалуйста с лабиринтом Опции

[keng]

Здравствуйте!Помогите пожалуйста с курсовым по Паскалю!Задание примерно состоит в том чтобы сделать программу которая ищет выход из лабиринта.Самому простейшему варианту буду очень рад(желательно с комментариями)Заранее спасибо!
PS Очень оЧЕНЬ надо А я в Паскале не бум бум)

[TarasBer]

Надо дописать в начало процедуры вот это, иначе будет зависон: if lab[x,y] <> 1 then Exit;
И это сейчас у тебя обход в глубину, он не самый оптимальный.
Также советую тебе сделать find не процедурой, а функцией, чтобы он возвращал длину найденного пути до выхода (или -1, если нет прохода). То есть тебе придётся сделать так:

result := -1;
if lab[x+1,y]=1 then ChangeIfLess(result, find(x+1,y));
if lab[x-1,y]=1 then ChangeIfLess(result, find(x-1,y));
if lab[x,y-1]=1 then ChangeIfLess(result, find(x,y-1));
if lab[x,y+1]=1 then ChangeIfLess(result, find(x,y+1));

процедура ChangeIfLess такая:

procedure ChangeIfLess(var X: integer; C: integer);
begin
  if (C>=0) and ((X<0) or (X>C)) then X:=C;
end; 

Ещё осталась проблема в том, чтобы он записывал длину в путь.
Мы знаем, что для клетки (x,y) длина пути равна N. Тогда очевидно, что надо идти в клетку, для которой длина пути равна N-1.
В общем, это кое-как работать будет, для размера 7 на 7 проканает.
А вообще учи обход в ширину.

> ПОмогите пожадуйста мне уже завтра сдавать(((

На осень, что ли, долги оставил?

Сообщение отредактировано: TarasBer - 13.09.2011 15:26