Основы программирования на языке Turbo Pascal. Беляева И.В. - 251 стр.

UptoLike

ВУЗ: 

УлГТУ | Ульяновск

Составители: 

Рубрика: 

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

Страницы