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

gotoxy(2,20);

if (n=0) then write(' Выберите начальный пункт')

else writeln(' Выберите конечный пункт ');

{Вывод списка городов}

for i:=1 to nt do begin

gotoxy (25,i+3);

write (t[i]);

end;

textattr:= 77;

gotoxy (25,sl+3);

write (t[sl]);

if (n<>0) then begin

textattr:=66;

gotoxy (25,n+3);

write (t[n]); {Вывод отмеченного города}

end;

textattr:=7;

{Вывод найденного маршрута либо надписи о его отсутствии}

gotoxy(60,1);

if (nfv>0) then begin

write(' Найденный маршрут: ');

for j:=1 to nfv do

for i:=1 to nt do if fv[i]=j then begin

gotoxy(60,j+2);

write(t[i]);

end;

end else write(' Маршрут не найден ');

c:=readkey; {Ввод символа с клавиатуры}

case c of