Студопедия.Орг Главная | Случайная страница | Контакты | Мы поможем в написании вашей работы!  
 

Исключение из списка узла за тем узлом, на



Который предварительно установлен указатель

Исключение из списка элемента за тем элементом, на который предварительно установлен указатель, выполняется с использованием вспомогательного указателя на исключаемый элемент. Последовательность операций исключения иллюстрируется рис. 27. После выполнения операции исключения значение указателя на первый элемент списка не изменяется. Значение указателя на тот элемент, за которым выполнено исключение, также не изменяется.


Рис. 27. Исключение узла за тем узлом, на который предварительно установлен указатель

Procedure Del(first, p: PList); { first – указатель на первый узел списка,
  p – предварительно установленный указатель}
var q: PList; { q – указатель на исключаемый узел }
begin  
if (first <> nil) and (p <> nil) and { указатель p действительно установлен?}
(p^.link <> nil) then { указатель p не указывает на последний узел в списке? }
begin  
q:=p^.link; { установить указатель q на узел, следующий за элементом p^ }
p^.link:=q^.link; { изменить поле связи узла, за которым выполняется исключение }
dispose (q); { элемент хранения исключаемого узла списка вернуть в кучу }
end;  
end;  
             




Дата публикования: 2014-11-26; Прочитано: 272 | Нарушение авторского права страницы | Мы поможем в написании вашей работы!



studopedia.org - Студопедия.Орг - 2014-2025 год. Студопедия не является автором материалов, которые размещены. Но предоставляет возможность бесплатного использования (0.392 с)...