数据结构课件第4节.ppt

procedure Tcq.prt;  var ip, i, ix, iy, ix0, iy0: integer; rect1: Trect;  \s: string［25］;  begin rect1:=rect(0, 0, 400, 100);  yhsjform.PaintBox1.Canvas.Brush.Color:=clBtnFace;  yhsjform.PaintBox1.Canvas.FillRect(rect1);  yhsjform.PaintBox1.Canvas.pen.Color:=clblack;  yhsjform.PaintBox1.Canvas.pen.width:=1;  yhsjform.PaintBox1.Canvas.font.Color:=clred;  yhsjform.PaintBox1.Canvas.font.size:=15;  if frontrear then begin ip:=front; while ip rear do begin s:= inttostr(elem［ip］);  yhsjform.PaintBox1.Canvas.textout(ip*30, 10, s);  ip:=(ip+1) mod n;  end end end;  procedure TyhsjForm.ButxygClick(Sender: TObject);  var a, b: integer;  begin if not q1.full then begin if (q1.getf=1) and (q1.gets=1) then 处理过程为（见图4.9）：  （1） 生成一个元素值为el的新结点：  （2） 将该结点从队尾插入队列。  程序如下： procedure enque (var q: lquetp, el: elemtp);  var p: link;  begin new(p); p^.data:=el; p^next:=NIL;  q.rear^next:=p; q.rear:=p;  end; 2． 出队列操作 链队列的出队操作可表示为 function dlque (var q: lquetp ): elemtp;  其中，参数q表示指定的链队列，其类型为lquetp。该操作是一个函数，其返回值表示从队列中取出的队头元素。  操作的功能为： 若链队列q非空，则从q中取出队头元素并返回该元素， 否则返回空元素NULL。 图 4.10 链队列出队操作示意图 若链队列q为空， 则返回空元素NULL， 否则：  （1） 删除队头元素， 即使头结点中的指针指向队头的下一个结点。  （2） 若删除后成为空队列， 则使头尾指针值相同。  （3） 取删除结点的值作为返回值， 并释放该结点。  程序如下：  function dlque (var q: lquetp ): elemtp;  var s: link; el: elemtp;  begin if q.front＝q.rear then result:= NULL else  begin s:=q.front^next; q.front^next:=s^.next;  if s^.next=nil then q.rear:= q.front;  el:=s^.data; dispose(s); result:=el end end; 3. 其他操作 初始化操作： 设置一个空的链队列， 由q表示之。  处理过程： 生成一个头结点， 并使q的头尾指针均指向它。 procedure init (var q: lquetp );  begin new(q.front); q.rear:= q.front;  q.front^.next:=nil;  end; 求长度操作： 返回链队列q中所含元素的个数。 function size (q: lquetp ): integer;  var p: link; i: integer;  begin p:= q.front^.next