Автор статьи
Валерия
Эксперт по сдаче вступительных испытаний в ВУЗах
- область ссылки на следующий (PNext) и предыдущий (PPrev) элементы;
- информационной области, содержащей семантическую часть элемента списка;
- идентифицирующего этот элемент ключа.
Содержимое поле PPrev первого элемент всегда равно nil, что указывает на то, что нет элемента предшествующего первому элементу. Содержимое поле PNext последнего элемента тоже всегда равно nil, что указывает на то, что нет элемента, следующего за последним элементом.
В однонаправленном списке поле PPrevотсутствует.
Создание нового списка
Создание нового списка, как следует из принципов программной реализации сцепленного списка, прежде всего состоит в определении указателя на начало списка. Указатель может быть определен в программе как статическая переменная или сам являться элементом некоторой динамической структуры.
В дальнейших примерах указатель на начало списка будет определяться как: PBeg :PTEl;
Занесение в значения указателя значения nil инициализирует список, т.е. объявляет его пустым.
Часто для упрощения алгоритмов используется так же указатель на конец списка, т.е. указатель на последний элемент списка, который будем определять как PEnd :PTEl;
Дальнейшее формирование списка зависит от конкретных требуемых операций, рассмотренных ниже.
Создание нового элемента списка
Для создания нового элемента списка необходимо, прежде всего, зарезервировать память под новый элемент. Резервирование памяти производится с помощью вызова стандартных функций (AllocMem, New, ReAllocMem) работы с менеджером динамической памяти. Объявляется переменная типа PTElи выполняется одна из функций выделения памяти, например:
functionCreateNewElement:PTEl;
begin // Выделение памяти под новый элемент
Result := AllocMem(sizeof(Person)); // Определение значений ссылок области связи
Result.PNext := nil;
Result.PPrev := nil; // Определение значений информационной области
Result.Surname := ‘Умницев’;
Result.Name := ‘Студент’;
Result.Patronymic := ‘Отличников’;
Result.Age := 20;
Result.Birthday := StrToDate(‘1.4.1983’);
Result.Salary := 5000;
end;
Вызов функции выглядит следующим образом:
VarNewElement :PTEl;
beginNewElement := CreateNewElement; end;
О сайте
Ссылка на первоисточник:
https://bafe.edu.kg
Поделитесь в соцсетях: