Реализация основных операций над односвязным циклическим списком
Включение элемента в начало циклического списка:
proceduretCircleList.InsertHead(v:tValue);
var
NewItem: pItem;
begin
NewItem:= New(pItem); // выделение памяти под новый элемент списка
NewItem^.Value:= v;
if Empty
then begin // включение в пустой список
NewItem^.Next:= NewItem;
fHead:= NewItem; end
elsebegin// включение в непустой список
NewItem^.Next:= fHead^.Next;
fHead^.Next:=NewItem
end;
Inc(fSize);// увеличение числа элементов списка на 1
end;// procedure tCircleList.InsertHead
Включение элемента в конец циклического списка. При реализации метода можно использовать следующий прием – включить элемент в начало списка, а затем перенести указатель последнего элемента на включенный (следующий за ним) элемент:
proceduretCircleList.InsertRear(v: tValue);
begin
InsertHead(v); // включение элемента в начало
// Перенос указателя последнего элемента на следующийэлемент:
fHead:= fHead^.Next;
end; // procedure tCircleList.InsertRear
Исключение элемента из начала циклического спискавыполняется по той же схеме, что и исключение элемента из стека или очереди. Если исключается единственный элемент списка, то после исключения список должен стать пустым.
functiontCircleList.DeleteHead: tValue;
var
DisItem: pItem;
begin
DisItem:= fHead^.Next; // исключаемый элемент - первый
DeleteHead:= DisItem^.Value; // чтение первого элемента списка
iffHead=DisItem// если в списке был один элемент,
thenfHead:=nil// то после исключения список пуст,
elsefHead^.Next:= DisItem^.Next;// иначе первым становится второй эл-т.
Dispose(DisItem); // удаление из памяти исключаемого элемента
Dec(fSize);// уменьшение числа элементов списка на 1
end;// function tCircleList.DeleteHead
Исключение элемента из конца циклического списка. Поскольку список является циклическим, то можно применить следующий прием. Сначала передвинуть указатель последнего элемента спискаfHeadна предшествующий ему элемент (предварительно определив указатель на этот элемент). При этом бывший последний элемент (который и нужно исключить) становится первым. Этот элемент можно исключить из списка с использованием метода исключения из началаDeleteHead.
function tCircleList.DeleteRear: tValue;
var
Item: pItem;
begin
// Перемещение указателя Item на предпоследний элемент списка
Item:= fHead;
while Item^.Next<>fHead do Item:=Item^.Next;
fHead:= Item;// сдвиг fHead на предпоследний элемент
DeleteRear:= DeleteHead;
end; // function tCircleList.DeleteRear
Операции исключения элементов из списка tCircleList.DeleteHeadиtCircleList.DeleteRearнеприменимы к пустому списку, поэтому перед их выполнением необходимо анализировать признак «список пуст».
Сцепление циклического списка с другим циклическим списком CList2(подключение спискаCList2справа).
При реализации этой операции в виде метода класса tCircleListв методConcatциклического списка необходимо передавать не указатель на первый элемент второго списка, а указатель на сам подсоединяемый список (CList2). При этом в методе нужно избежать прямого обращения к полямfHeadиfSizeклассаCList2. Для обеспечения доступа к этим полям по чтению и записи в классеtCircleListсвойстваHeadиSizeдолжны быть доступны не только по чтению, но и по записи.
Метод класса tCircleList, реализующий сцепление описываемого списка с другим списком, реализуется следующим образом:
procedure tCircleList.Concat(var CList2: tCircleList);
var
Head2,// указатель на начало второго списка
Item:pItem;// указатель на элемент списка
begin
Head2:=CList2.Head;// получение указателя на начало второго списка
Item:=fHead^.Next;// сохранение указателя на начало общего списка
fHead^.Next:=Head2^.Next;// включение списка с указ. Head2 справа
fHead:=Head2;// перемещение fHead на последний элемент
fHead^.Next:=Item;// восстановление связи с первым элементом
fSize:=fSize+CList2.Size;// вычисление размера общего списка
CList2.Head := nil; CList2.Size := 0; // список CList2 становится пустым
end;//tCircleList.Concat
Если в приведенном выше методе исключить операцию перемещения указателя fHeadна последний элемент включенного списка (fHead:= Head2), то списокCList2будет включен в списокtCircleListслева.