Элемент списка
данные
Адрес
следующего
элемента
12
Описание списка
Type U = ^ZAP;
ZAP = RECORD
INF : integer; UKZ : U
END;
VAR
PSP, P : U;
13
Упорядоченные списки
Операция сортировки для списков не выполняется: при необходимости списки создаются упорядоченными.
Идея- включение элемента в упорядоченный список
14
Последовательность действий:
1) Найти место для включаемого элемента
Список: |
|
PSP |
2 |
3 |
8 |
|
|
|
|
|
|
Q- элемент |
P- элемент после |
|
|
|
|
|
|
||
|
|
|
|
|
|
||
Включаемый |
|
5 |
|
|
|
включаемого |
|
|
|
|
|
перед |
|||
элемент: |
|
|
|
|
(P^.inf>Vkl^.inf) |
||
|
|
|
|
|
включаемым |
||
|
|
|
|
|
|||
|
|
|
|
|
|||
|
|
|
|
|
|
|
15 |
2) Изменить ссылки:
PSP |
2 |
3 |
8 |
Vkl^.ukz:=P; |
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
5 |
|
|
|
|
|
|
|
|
|
|
|
|
||
|
|
|
|
|
|
||
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
16
PSP |
2 |
Q^.ukz:=Vkl;
3 |
8 |
5 |
17
Особые случаи алгоритма:
1) Вставка в пустой список (PSP=nil) PSP:=Vkl;
2)Включение перед первым элементом (Vkl^.inf<Psp^.Inf)
Vkl^.ukz:=psp;
Psp:=vkl
18
Процедура включения элемента в упорядоченный список
См. методичку
19
Исключение элемента из списка:
q p
PSP |
2 |
3 |
5 |
8 |
q^.ukz:=p^.ukz;
Dispose(p);
20
Особый случай - удаление первого элемента:
p:=psp;
psp:=psp^.ukz;
Dispose(p);
Процедура исключения элемента из упорядоченного списка – в методичке
21