数据�l�构�W�二章填�I�题及参考答案[7]_跨考网

复习紧张�Q�焦头烂额？逆风轻袭�Q�来跨考秋季集训营�Q�帮你寻�Ҏ(gu��)���Q�定�Ҏ(gu��)���Q?/span> 了解一�?>

1�Q�对于给定的�U�性链�?/span>head , 下面的程序过�E�实��C��按结点值非降次序输出链表中的所有结点，在每�ơ输��Z��个结�Ҏ(gu��)���Q�就把刚输出的结点从链表中删厅R��请在划�U�处填上适当的内容，使之成�ؓ一个完整的�E�序�q�程�Q�每个空框只填一个语句�?/span>

 

　　TYPE nodeptr =^ nodetype�Q?/span>

 

　　nodetype = RECORD

 

　　data : integer�Q?/span>link : nodeptr

 

　　END;

 

　　VAR head : nodeptr�Q?/span>

 

　　PROCEDURE sort_output_delete (head : nodeptr);

 

　　VAR p,q,r,s: nodeptr;

 

　　BEGIN WHILE head <> NIL DO

 

　　BEGIN p:= NIL �Q?/span>q:= head�Q?/span>r:= q �Q?/span>s:=q^.link �Q?/span>

 

　　WHILE s <> NIL DO

 

　　BEGIN IF s^.data < q^.data THEN BEGIN (1)__; (2)___ END �Q?/span>

 

　　r:= s �Q?/span> (3)___

 

　　END�Q?/span>

 

　　write(q^.data : 5) �Q?/span>

 

　　IF p=NIL THEN (4)___ ELSE (5)____ �Q?/span>

 

　　dispose (q) �Q?/span>

 

　　END�Q?/span>

writeln

 

　　END�Q��?a target="_blank">复旦大学 1996 七（20分） 1995 一�Q?/span>12分）与本题相伹{�?/span>

 

　　【参考答案�?/span>

 

　　(1)p:=r;�?/span>r指向工作指针s的前驱，p指向最���值的前驱�?/span>

 

　　(2)q:=s;�?/span>q指向最���值结点，s是工作指针�?/span>

 

　　(3)s:=s^.link∥工作指针后�U�R�?/span>

 

　　(4)head:=head^.next;∥第一个结点值最����?/span>

 

　　(5)p^link:=q^.link;∥跨�q�被删结点（卛_��除一�l�点�Q��?/span>

 

　　2�Q�下面函数的功能是在一个按讉K��频度不增有序的，带头�l�点的双向链环上���索关键��gؓx的结点，对该�l�点讉K��频度计数�Q��ƈ�l�护该链环有序。若未找刎ͼ�则插入该�l�点。所有结点的频度域初值在�����旉���为零。请���程序中四处�I�缺补写完整�?/span>

 

　　TYPE

 

　　link=^node

 

　　node=RECORD

 

　　key:char; freq:integer; pre,next:link;

 

　　END;

 

　　VAR l:link;

 

　　FUNCTION loc(l:link;x:char):link;

 

　　VAR p,q:link;

　BEGIN

 

　　p:=l^.next; �Q?/span>1�Q?/span>_�Q?/span>

 

　　WHILE p^.key<>x DO p:=p^.next;

 

　　IF p=l THEN [ new(q); q^.key:=x; q^.freq:=0 ]

 

　　ELSE {扑ֈ�}

 

　　[ p^.freq:=p^.freq+1; q:=p; �Q?/span>2�Q?/span>______�Q?/span>

 

　　WHILE q^.freq>p^.pre^.freq DO p:=p^.pre;

 

　　IF p<>q THEN [ �Q?/span>3�Q?/span>______ ]

 

　　]�Q?/span>

 

　　IF �Q?/span>4�Q?/span>_ THEN [q^.next:=p, q^.pre;=p^.pre; p^.pre^.next:=q; p^.pre:=q]

 

　　return(q);

 

　　END;�?a target="_blank">北京工业大学 1999 �?/span> (12�?/span>)�?/span>

 

　　【参考答案�?/span>

 

　　(1) l^.key:=x;∥头�l�点l�q�时��L(f��ng)��视哨作用�?/span>

 

　　(2) l^.freq:=p^.freq ∥头�l�点��L(f��ng)��视哨作用�?/span>

 

　　(3) q->pre->next=q->next; q->next->pre=q->pre; ∥先��?/span>q�l�点从链表上摘下�?/span>

 

　　q^.next:=p; q^.pre:=p^.pre; p^.pre->next:=q; p^.pre:=q; ∥结�?/span>q插入�l�点p前�?/span>

 

　　(4) q^.freq=0 ∥链表中无��gؓx的结点，���新建结�Ҏ(gu��)��入到链表最后（头结点前�Q��?/span>