为什么没人回复，难道这里的人都不会嘛。

数据结构习题解析
李春葆　
清华大学出版社

循环链就是PT链的当前尾指针指向表头，解约瑟夫时有用。
链接代码：将head的尾指针指向表头
Procedure Connect(head: Link);
Var
  p: Link;
Begin
  p := head;
  While p^.Next <> Nil Do p := p^.Next;
  p^.Next := head;
End;
双向链表：是将后项的第二个指针指向前一个。
代码：
Procedure Two(head: Link);
Begin
  If (head^.Next <> Nil) And (head <> Nil) Then Begin
    head^.next^.prev := head;
    Two(head^.next);
  End;
End;