4.4.1. Включение узла в начало списка
Одна из самых простых операций по модификации списка – включение нового узла в его начало (рис. 22): элемент хранения типа listразмещается в памяти и указатель на него присваивается некоторой вспомогательной переменнойp, затем устанавливается связь между вставленным узлом и списком, после чего указатель на первый элемент списка получает новое значение.
Рис. 22. Включение узла в начало списка
|
Procedure Ins_First( var first: PList ); var p: PList; begin new( p ); readln( p^.info ); |
{ first – указатель на первый узел списка }
{ создание узла списка } { заполнение информационного поля узла } | ||
|
p^.link:=first; first:=p; |
{ установка связи между вставленным узлом и списком } { новое значение указателя на первый узел } | ||
|
end; |
| ||
4.4.2. Создание списка из n узлов за счет добавления
узлов в начало списка
Используя операцию включения элемента в начало списка, можно сформировать список из n элементов: начиная с пустого списка, следует n раз выделить память для узлов списка и последовательно добавить узлы в начало списка. Эти операции можно реализовать с помощью любого итерационного цикла. Порядок следования узлов получается обратным, т.е. первым в списке оказывается элемент, который был добавлен последним.
|
Procedure Create1( var first: PList; n: byte ); var p: PList; i: byte; begin first:=nil; |
{ first – указатель на первый узел списка, n – количество узлов в списке }
{ создание пустого списка }
| |
|
for i:=1 to n do begin |
| |
|
new( p ); |
{ создание узла списка } | |
|
readln(p^.info); |
{ заполнение информационного поля узла } | |
|
p^.link:=first; |
{ установка связи между вставленным узлом и списком } | |
|
first:=p; |
{ новое значение указателя на первый узел } | |
|
end; end; |
| |
Заметим, что создание первого узла списка и включение его в пустой список (“перед” несуществующим узлом) выполняется точно так же, как включение в непустой список любого другого узла (см. рис. 23).
Рис. 23. Включение узла в пустой список
4.4.3. Создание списка из n узлов за счет добавления
узлов в конец списка
Первый узел создается отдельно (т.к. включить узел «за» несуществующим узлом невозможно), а остальные (n-1) узлов создаются и включаются в хвост списка одинаковым образом. При этом удобно использовать вспомогательный указатель на последний добавленный узел. Значение этого указателя изменяется в процессе создания списка, значение указателя на первый узел списка не изменяется после создания первого узла. Порядок следования узлов в списке получается прямым, т.к. первым является тот узел, который был включен в список первым.
|
Procedure Create2( var first: PList; n: byte ); var p, last: PList; i: byte; |
{ first – указатель на первый узел списка, n – количество узлов в списке }
{ last – указатель на последний узел списка } | |
|
begin if n=0 then first:=nil else begin |
{ создание пустого списка } | |
|
new( first ); |
{ создание первого узла списка } | |
|
readln( first^.info ); |
{ заполнение информационного поля первого узла } | |
|
first^.link:=nil; |
{ первый узел пока является в списке единственным } | |
|
last:=first; |
{ установка указателя на последний вставленный узел} | |
|
for i:=2 to n do begin |
{ создание остальных (n-1) узлов списка } | |
|
new( p ); |
{ создание узла списка } | |
|
readln( p^.info ); |
{ заполнение информационного поля узла } | |
|
last^.link:=p; |
{ установка связи между списком и вставленным узлом } | |
|
last:=p; |
{ новое значение указателя на последний узел } | |
|
end; end; end; |
| |