数据结构课件第2章.ppt

2.3.4 双向循环链表的操作实现 1. 定位 双向循环链表的定位可表示为 function get-dl(dl: dlink; i: integer): dlink;  功能： 在双向循环链表dl中， 确定第i个结点的指针，返回该结点的指针，若第i个结点不存在，则返回nil。 处理过程：从头结点开始沿后继链指针逐个后移直至指向第i个结点或指针为空，则分别返回该结点的指针或返回nil。 function get-dl(dl: dlink; i: integer);  var p: dlink; j: integer;  begin p := dl^.next； j:=1;  while pdl and ji do  begin p:= p^.next；  j:=j+1；  end;  if pdl and j=i then result:=p else result:=nil end; 2. 插入 双向循环链表的插入可表示为 procedure ins-dl(dl: dlink; i: integer; b: elemtp) 功能：在双向循环链表dl中的第i个结点之后插入元素b。  处理过程：  （1）生成一个新的结点s， 其元素值为b；  （2）调用get-dl，由参数i得到结点的指针p；  （3）若p不为空，则将s所指向的结点插入到双向循环链表中由p所指向的结点之后，如图 2.15 所示。 图 2.15 双向循环链表插入结点时指针的变化 procedure ins-dl(dl: dlink; i: integer; b: elemtp);  var p, s: dlink;  begin new(s); s^.data:=b;  p:=get-dl(dl, i);  if p=nil then showmessage(no this position) else begin s^.prior:=p;  s^.next:=p^.next;  p^.next^.priou:=s;  p^.next:=pav;  end end; 3. 删除 双向循环链表的删除可表示为 procedure del-dl(dl: dlink; i: integer) 功能： 删除双向循环链表dl中的第i个结点。  处理过程：  （1）调用get-dl， 由参数i得到结点的指针p；  （2）若p不为空，则删除双向循环链表中的由p所指向的结点并释放该结点， 如图2.16 所示。 图 2.16 双向循环链表删除结点时指针的变化 procedure del-dl(dl: dlink; i: integer)；  var p: dlink;  begin p:=get-dl(dl, i);  if p=nil then showmessage(no this position) else begin p^.prior^.next:=p^.next;  p^.next^.prior:=p^.prior;  dispose(p) end end 2.4 线性表的ADT定义及类定义 2.4.1 线性表的ADT定义 根据面向对象程序设计的原则，实现部分与接口部分两者应该分离。接口部分可以用ADT定义即抽象数据类型定义来进行描述。一种数据类型的ADT定义由数据元素、结构及操作三部分组成。 元素： ai同属于一个数据元素类，i=1, 2, …，n n≥0；  结构：对所有的数据元素ai（i=1, 2, …, n－1）存在次序关系ai , ai+1, a1无前驱，an无后继； 操作： 对线性表可执行基本操作为 (1) initiate(L)：初始化操作。可设定一个空的线性表L。  (2) length(L)：求长度函数。函数值为给定线性表L中数据元素的