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

write(' Введите имя файла: ');

readln(name);

assign(f,name);

reset(f);

readln(f,nt);

for n:=1 to nt do readln(f,t[n]);

readln(f,nr);

for n:=1 to nr do readln(f,r[n].a,r[n].b);

close(f);

end;

{Рекурсивная процедура поиска маршрута.

Входные параметры:

a:vec - Вектор, каждому городу соответствует номер в маршруте

или ноль, если города нет в маршруте

tv:integer - Город, следующий в маршруте

nv:integer - Город, в который необходимо добраться

lv:integer - Количество пройденных городов}

procedure findnext(a:vec;tv:integer;nv:integer;lv:integer);

var

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

begin

a[tv]:=lv; {Устанавливается в векторе

флаг, что город tv пройден}

if (tv=nv) then begin

{Если достигнут необходимый город}

if ((lv+1)<nfv)or(nfv=0) then begin

{Если найден первый либо более короткий маршрут - он становится найденным}

nfv:=lv+1;

fv:=a;