Курсовая работа: Разработка программ с использованием динамической памяти

if (p=Nil) then WriteLn('В графе отсутствует указанная вершина источник!!!')

else begin

p1:=Head;

while ((p1<>Nil)and(p1^.Inf<>m)) do p1:=p1^.Down;

if (p1=Nil) then WriteLn('В графе отсутствует указанная вершина сток!!!')

else begin

if (p^.Left=Nil) then

begin

New(p^.Left);

p^.Left^.Inf:=m;

p^.Left^.Next:=Nil;

end else begin

p2:=p^.Left;

while ((p2^.Next<>Nil)and(p2^.Inf<>m)) do p2:=p2^.Next;

if (p2^.Inf=m) then WriteLn('Указанная дуга уже существует!!!')

else begin

New(p2^.Next);

p2^.Next^.Inf:=m;

p2^.Next^.Next:=Nil;

WriteLn('Дуга добавлена!!!');

end;

end;

end;

end;

end

end;

{--удаляем список дуг--}

procedure DelList(p:TUk1);

var p1:TUk1;