Кольцевые двусвязные списки, Организация и основные операции над кольцевыми двусвязными списками Опции

[User88]

Здравствуйте, смотрел FAQ и набирал в поиске, но не нашел алгоритмов организации и реализации основных операций над кольцевыми двусвязными списками, может быть у кого-нибудь найдется этот материал, а то все никак не разберусь, заранее спасибо.

[volvo]

не совсем... Ты запутался, по-моему, с указателями... Вот так:

Procedure Add(X : Telem; Var L : TList);
Var
  P : TList;
Begin
  if L=nil then begin
    L:=New(TList);
    L^.Next:=L;
    L^.Prev:=L;
    L^.Data:=X;
  end
  else begin
    P:=New(TList);
    P^.Data:=X;
    P^.prev := L^.prev; { <--- Предыдущее для вновь добавленного значения }
    P^.next := L;       { <--- Следующее для вновь добавленного - всегда начало списка }
    L^.prev^.next := P; { <--- Обновляем "бывший" последний элемент }
    L^.prev := P;       { <--- Предыдущий для первого элемента }
  end;
End;