{Процедура удаления звена из списка после звена,

       на которое ссылается указатель Pred;

       в x содержится информация из удалённого звена}

      Procedure Iz_Spiska(Pred : U; Var X : BT);

      Var Vsp : U;

      Begin

           Vsp := Pred^.Next; {Забираем ссылку на удаляемое звено}

           {Удаляем звено из списка, перенаправив ссылку на следующее

            за ним звено}

           Pred^.Next := Pred^.Next^.Next;

           X := Vsp^.Inf; {Забираем информацию из удаляемого звена}

           Dispose(Vsp);  {Уничтожаем звено}

      End;

{Язык Pascal}

Unit Spisok;

Interface  

      Type BT = LongInt;

Поделитесь этой записью или добавьте в закладки