Удаление звена из начала списка
Добавление звена в начало списка
| {Процедура добавления звена в начало списка; в x содержится добавляемая информация}
Procedure V_Nachalo(Var First: U; X: BT);
Var Vsp: U;
Begin
New(Vsp);
Vsp^.Inf:= X;
Vsp^.Next:= First; {То звено, что было заглавным, становится вторым по счёту}
First:= Vsp; {Новое звено становится заглавным}
End;
|
| {Процедура удаления звена из начала списка;
в 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;
|