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

        в 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

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