END;【厦门大学 2000 三、2 （8分）】
22．假设链表p和链表q中的结点值都是整数,且按结点值的递增次序链接起来的带表头结点的环形链表。各链表的表头结点的值为max,且链表中其他结点的值都小于max，在程序中取max为9999。在各个链表中，每个结点的值各不相同，但链表p和链表q可能有值相同的结点（表头结点除外）。下面的程序将链表q合并到链表p中，使得合并后的链表是按结点值递增次序链接起来的带表头结点的环形链表，且链表中各个结点的值各不相同。请在划线处填上适当内容，每个框只填一个语句或一个表达式，链表的结点类型如下
TYPE nodeptr=^nodetype； nodetype=RECORD
data：integer； link：nodeptr;
END；
CONST max=9999;
PROCEDURE merge(VAR p:nodeptr;q:nodeptr); VAR r,s: nodeptr; BEGIN r:=p;
WHILE (A)___ DO BEGIN
WHILE r^.link^.data
THEN BEGIN s:=(C)_; (D)_:=s^.link; s^.link:=(E)_; (F)_ _:=s; (G)_; END ELSE BEGIN (H)__; s:=q^.link; (I)__; dispose(s) END END;
dispose(q)
END;【复旦大学 1997 五（18分）】
23．PROC ins__linklist(la:linkisttp; i:integer; b:elemtp);
{la为指向带头结点的单链表的头指针，本算法在表中第i个元素之前插入元素b} p:=(1) ; j:=(2) ;{指针初始化，j为计数器}
WHILE (p<>NIL) AND ((3) ) DO [p:=(4) ; j:=j+1；] {寻找第 i-1 个结点}
IF (p=NIL) OR ((5) )
THEN error (‘No this position’)
ELSE [new(s) ; s↑.data:=b; s↑.next:=p↑.next; p↑.next:=s;] ENDP;{ins-linklist}【燕山大学 1998 四、1（15分）】 24. 已知双链表中结点的类型定义为：
TYPE dpointer=^list;
list=RECORD
data:integer; left,right:dpointer; END;
如下过程将在双链表第i个结点（i>=0）之后插入一个元素为x的结点，请在答案栏给出题目中______处应填入的语句或表达式，使之可以实现上述功能。
PROCEDURE insert(VAR head:dpointer;i,x:integer); VAR s,p:dpointer; j: integer; BEGIN
new(s); s^.data:=x;
IF(i=0)THEN BEGIN s^.right:=head; (1)___ head:=s END{如果i=0,则将s结点插入到表头后返回}
ELSE BEGIN p:=head; (2)_______；{在双链表中查找第i个结点,由p所指向}
WHILE ((p<>NIL) AND (j
IF （p^.right=NIL）
THEN BEGIN p^.right:=s; s^.right:=NIL; (4) __END
ELSE BEGIN s^.right:=p^.right; (5) _;p^.right:=s; (6) END ELSE writeln(‘can not find node!’) END
END;【厦门大学 2002 二 （12分）】
25．阅读以下算法，填充空格，使其成为完整的算法。其功能是在一个非递减的顺序存储线性表中，删除所有值相等的多余元素。
CONST maxlen=30
TYPE sqlisttp=RECORD
elem:ARRAY[1..maxlen] OF integer; last:0..maxlen END;
PROC exam21(VAR L:sqlisttp); j:=1; i:=2;
WHILE (1)______ DO
[ IF L.elem[i]<>L.elem[j] THEN [ (2)_______; (3)______]; i:=i+1 ] (4) ________;
ENDP;【同济大学 2000 二、1 (10分)】
26．在本题的程序中，函数过程Create_link_list(n)建立一个具有n个结点的环形链表;程序过程 josephus(n,i,m)对由Create_link_list(n)所建立的具有n个结点的环形链表按一定的次序逐个输出并删除链表中的所有结点，参数 n(n>0)指明环形链表的结点个数，参数 i(1<=i<=n)指明起始结点，参数 m (m>0)是步长，指明从起始结点或前次被删除并输出的结点之后的第m个结点作为本次被输出并删除的结点。例如，对于下图中具有6个结点的环形链表，在调
用 josephus(6,3,2)后，将输出 5,1,3,6,4,2 请在横线处填上适当内容，每空只填一个语句。
TYPE nodeptr=^nodetype; nodetype=RECORD
data: intrger; link: nodeptr
END; VAR n,i,m: integer;
FUNCTION Create_link_list(n: integer): nodeptr; VAR head,p,q: nodeptr; i:integer; BEGIN head := NIL; IF n>0 THEN
BEGIN new(head); p: =head; FOR i:=1 TO n-1 DO
BEGIN p^.data:=i; new(q); (A)____; (B)____ END； p^.data:=n; (C)___; END;
Creat_link_list:=head
END;
PROCEDURE josephus(n,i,m:integer); VAR p,q:nodeptr; j:integer;
BEGIN p:=Creat_link_list(n);
WHILE i>1 DO BEGIN p:=p^.link; i:=i-1 END; (D)___ ;
WHILE j FOR i:=1 TO m-1 DO p:=p^.link; (E)___; write(q^.data:8); (F)__ ; dispose(q); j:=j+1 END END;【复旦大学 1997 四（12分）】 27．对于给定的线性链表head , 下面的程序过程实现了按结点值非降次序输出链表中的所有结点，在每次输出一个结点时，就把刚输出的结点从链表中删去。请在划线处填上适当的内容，使之成为一个完整的程序过程，每个空框只填一个语句。 TYPE nodeptr =^ nodetype； nodetype = RECORD data : integer；link : nodeptr END; VAR head : nodeptr； PROCEDURE sort_output_delete (head : nodeptr); VAR p,q,r,s: nodeptr; BEGIN WHILE head <> NIL DO BEGIN p:= NIL ；q:= head；r:= q ；s:=q^.link ； WHILE s <> NIL DO BEGIN IF s^.data < q^.data THEN BEGIN (1)__; (2)___ END ； r:= s ； (3)___ END； write(q^.data : 5) ； IF p=NIL THEN (4)___ ELSE (5)____ ； dispose (q) ； END； writeln END；【复旦大学 1996 七（20分） 1995 一（12分）与本题相似】 28．下面函数的功能是在一个按访问频度不增有序的，带头结点的双向链环上检索关键值为x的结点，对该结点访问频度计数，并维护该链环有序。若未找到，则插入该结点。所有结点的频度域初值在建表时都为零。请将程序中四处空缺补写完整。 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; （1）_； 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; （2）______； WHILE q^.freq>p^.pre^.freq DO p:=p^.pre; IF p<>q THEN [ （3）______ ] ]； IF （4）_ THEN [q^.next:=p, q^.pre;=p^.pre; p^.pre^.next:=q; p^.pre:=q] return(q); END;【北京工业大学 1999 五 (12分)】 29．循环链表a和b的结点值为字母，其中a表非递减有序，下面的程序欲构造一个递增有序的循环链表c，其中结点的值为同时在a，b两链表中出现的字母，且c中字母不重复，请补上程序中空缺的部分，并估计算法的时间复杂度。（设a，b的结点数分别为m，n） TYPE link=^node; node=RECORD key:char; next:link END; PROC jj(a,b:link; VAR c:link); VAR p,q,r,s:link; BEGIN new(c);c^.next:=c; q:=a; p:=a^.next; WHILE p<>a DO [（1）___； WHILE p^.key=p^.next^.key DO [q:=p; p=p^.next];｛跳过相同字母｝ r:=b^.next ; （2）_____; WHILE r^.key <>p^.key DO r:=r^.next; IF r<>b THEN [ s:=p; q^.next:=p^.next; （3） ; s^.next:=c^.next; c^.next:=s; c:=s ] ELSE [ q:=p; p:=p^.next ] ]; c:=c^.next； END; 算法时间复杂度为O（4）___ 【北京工业大学 2000 四 (15分)】 30. 以下程序的功能是实现带附加头结点的单链表数据结点逆序连接，请填空完善之。 void reverse(pointer h) /* h为附加头结点指针；类型pointer同算法设计第3题*/ { pointer p,q; p=h->next; h->next=NULL; while((1)________) {q=p; p=p->next; q->next=h->next; h->next=(2)________; } }【西南交通大学 2000 一、9】 31. 下面是用c语言编写的对不带头结点的单链表进行就地逆置的算法，该算法用L返回逆置后的链表的头指针，试在空缺处填入适当的语句。 void reverse（linklist &L）{ p=null；q=L； while（q！=null） { (1) ; q->next=p；p=q；(2)___ ; } (3)_____; }【北京理工大学 2001 九、1 （6分）】 32．下面程序段是逆转单向循环链表的方法，p0 是原链表头指针，逆转后链表头指针仍为p0。 （可以根据需要增加标识符） p:= p0; q0:=NIL; WHILE （1）________ DO BEGIN （2）________; （3）________;（4）______;（5）________ END; p^.next:= q0; p0 ^.next:=p; p0:=p;【中国人民大学 2000 二、1（4分）】 33．一个无头结点的线性链表(不循环)有两个域。数据域data，指针域 next，链首head，下面算法用read(num)读入数据，当num小于0时，输入结束。建立一个数据以递增序组成的链表。 PROC insert( head, x); {在链首为head的表中按递增序插入x} new(r);r＾.data:=x; IF head=NIL THEN[ head:=(1) _____; r＾.next:= (2)________ ] ELSE IF (3)___ THEN [r＾ .next:=head; head:=r] ELSE [p:=head; WHILE (4)___ AND (p＾.next≠NIL ) DO[q:=p; (5)___ ]; IF (6)___ THEN [ q＾ .next:=(7)___; r＾.next:= (8)____; ] ELSE [p＾.next:=(9)____; r＾.next:= (10)___; ] ] ENDP; PROC creat(head); head:= (11)______; read(num); WHILE num>0 DO [ insert(head,num); read(num) ] ENDP;【南京理工大学 1999 三、4（11分）】 34. 一元稀疏多项式以循环单链表按降幂排列，结点有三个域，系数域coef ，指数域exp和指针域 next；现对链表求一阶导数 ，链表的头指针为ha，头结点的exp域为 –1。 derivative(ha) { q=ha ; pa=ha->next; while( (1)_______) { if ( (2)____) { ( (3)__); free(pa); pa= ( (4) _); } else{ pa->coef ( (5) ___); pa->exp( (6)___); q=( (7) __);} pa=( (8)________); } } 【南京理工大学 2000 三、3（10分）】 35.下面是删除单链表L中最大元素所在结点的类PASCAL语言算法，请在横线填上内容，完成其功能。 TYPE pointer =↑node； node=RECORD data:integer; next: pointer END; PROCEDURE delmax (L:pointer); VAR p,q,r:pointer; m:integer; BEGIN r:=L； p:=L↑.next; IF p<>NIL THEN [ m:=p↑.data; (1)________; p:=p↑.next; WHILE p<>NIL DO [ IF (2)________THEN [ (3)________ ; m:=p↑.data; ] (4)________; p:=p↑.next; ] q:=r↑.next; (5)______; dispose(q); ] END;【北京科技大学 1998 二】 36．对单链表中元素按插入方法排序的C语言描述算法如下，其中L为链表头结点指针。请填充算法中标出的空白处，完成其功能。 百度搜索“77cn”或“免费范文网”即可找到本站免费阅读全部范文。收藏本站方便下次阅读，免费范文网，提供经典小说综合文库第二章线性表(2)在线全文阅读。
相关推荐：