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

end;

textattr:=7;

gotoxy(1,20);

write('Дороги: ');

for i:=1 to nr do write(' {',r[i].a,',',r[i].b,'}');

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

case c of

#13: begin {Нажат ENTER}

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

if n=0 then n:=sl else

{Либо происходит попытка добавить дорогу}

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

nr:=nr+1;

if (n>sl) then begin

i:=n;

n:=sl;

sl:=i;

end;

{Проверяется, нет ли такой?}

for i:=1 to nr-1 do

if ((r[i].a=n)and(r[i].b=sl)) then n:=0;

{Если нет - добавляется}

if n<>0 then begin

r[nr].a:=n;

r[nr].b:=sl;

end else nr:=nr-1;

n:=0;

sl:=1;

end;