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