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

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

      Procedure Iz_Nachala(Var First : U; Var X : BT);

      Var Vsp : U;

      Begin

              Vsp := First; {Забираем ссылку на текущее заглавное звено}

              First := First^.Next; {То звено, что было вторым по счёту, становится заглавным}

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

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

      End;

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

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

       в x содержится информация для добавления}

      Procedure V_Spisok(Pred : U; X : BT);

      Var Vsp : U;

      Begin

          New(Vsp); {Создаем пустое звено}

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