Реферат: Нахождение пути от одного населённого пункта к другому

end else begin

{Иначе - просмотр всех городов, в которые можно добраться из данного}

for i:=1 to nr do

{Если город еще не учитывался - запуск для него той же самой функции}

if ((r[i].a=tv)and(a[r[i].b]=0)) then findnext(a,r[i].b,nv,lv+1);

{Просмотр, но для дорог, где текущий город учитывался как второй}

for i:=1 to nr do

{Если город еще не учитывался - запуск для него той же самой функции}

if ((r[i].b=tv)and(a[r[i].a]=0)) then findnext(a,r[i].a,nv,lv+1);

end;

end;

{ Нахождение пути }

procedure FindPath;

var

i:integer; {Счетчик}

j:integer; {Счетчик}

n:integer; {Исходный город}

sl:integer; {Выбираемый город}

c:char; {Считанный с клавиатуры символ}

v:vec; {Вектор для начала рекурсии}

begin

{Изначально первый город не выбран}

n:=0;

sl:=1;

nfv:=0; {Маршрут не найден}

{Цикл запроса городов и вывода результатов}

repeat

textattr:=7;

clrscr;