Главная Случайная страница Контакты | Мы поможем в написании вашей работы! | ||
|
Для того чтобы исключить из списка первый элемент, необходимо установить на него вспомогательный указатель, присвоить указателю на начало списка адрес второго элемента списка, после чего область памяти, занятую первым элементом списка, вернуть в кучу. Данную последовательность операций иллюстрирует рис. 24.
Рис. 24. Исключение узла из начала списка
Procedure Del_First(var first: PList); | { first – указатель на первый узел списка } | ||
var p: PList; | |||
begin | |||
if (first <> nil) then begin | { список не пуст? } | ||
p:=first; | { установка вспомогательного указателя на первый узел списка } | ||
first:=p^.link; | { установка указателя first на второй узел списка } | ||
dispose(p); | { элемент хранения первого узла списка вернуть в кучу } | ||
end; | |||
end; | |||
Дата публикования: 2014-11-26; Прочитано: 247 | Нарушение авторского права страницы | Мы поможем в написании вашей работы!