Курсовая работа: Поиск кратчайшего пути в лабиринте 2

fout:TextFile; {Файл печати данных}

nX:Integer; { Количество вершин в графе }

Mark:TypeMark; { Признаки временных и постоянных меток }

Dist:TypeDist; { Значения текущих меток вершин (расстояния) }

Prev:TypePrev; { Указатель на ближайшую вершину }

x0:Integer; { Вершина начала пути }

z:Integer; { Вершина конца пути }

y:Integer; { Последняя вершина с постоянной меткой }

nr,mr:Integer; {Размеры комнат барьеров}

Adj:TypeAdj; {Структура смежности}

nA:Integer; {Число комнат и вершин}

Wr:TypeWe; {Перегородки комнат}

zEnd:Integer; { Вершина конца пути-найденная }

Public

Constructor Init;

Destructor Done;

Procedure Input;

Procedure CreateAdj;

Procedure ShortRoom;

function YesRib(xr,yr:Integer):Boolean;

end;

Ключевые методы класса TMaze

// процедура ввода перегородок комнаты

Procedure TWay.Input;

var f:TextFile; {Файл ввода данных}

i,j,w:Integer;

i0,j0:Integer;

iz,jz:Integer;

begin