 |
Главная Случайная страница Контакты | Мы поможем в написании вашей работы! | |
Узлов в начало списка
|
|
Используя операцию включения элемента в начало списка, можно сформировать список из 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. Включение узла в пустой список
Дата публикования: 2014-11-26; Прочитано: 205 | Нарушение авторского права страницы | Мы поможем в написании вашей работы!
