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

{Либо фиксируется начальный город}

if n=0 then n:=sl else begin

{Либо убирается ошибочно выбранный город}

if (n=sl) then n:=0 else begin

{Либо происходит поиск нового маршрута}

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

for i:=1 to 20 do v[i]:=0; {Ни одного пройденного

города}

findnext(v,n,sl,1);{Вызывается первый раз рекурсивная

процедура}

end;

n:=0;

sl:=1;

end;

end;

#0: begin {Анализ функциональных клавиш}

c:=readkey;

case c of

#80: if sl<nt then sl:=sl+1 else sl:=1;

#72: if sl>1 then sl:=sl-1 else sl:=nt;

end

end

end;

until (c=#27);

end;

end.

Результаты выполнения программы.

¦ Ввод данных ¦

¦ Вывод данных ¦