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

 1. 请在下列���法的横�U�上填入适当的语句。�?a target="_blank">清华大学 1994 �?/span> �Q?/span>15分）�?/span>

　　FUNCTION inclusion(ha,hb:linklisttp):boolean;

　　{�?/span>ha�?/span>hb为头指针的单链表分别表示有序�?/span>A�?/span>B�Q�本���法判别�?/span>A是否包含在表B内，若是�Q�则�q�回�?/span>true”，否则�q�回�?/span>false�?/span>}

　　BEGIN

　　pa:=ha^.next; pb:=hb^.next; �Q?/span>1�Q?/span> ;

　　WHILE�Q?/span>2�Q?/span> DO

　　IF pa^.data=pb^.data THEN�Q?/span>3�Q?/span> ELSE�Q?/span>4�Q?/span> ;

　　�Q?/span>5�Q?/span>

　　END;

　　【参考答案�?/span>

　　(1) IF pa=NIL THEN return(true);

　　(2) pb<>NIL AND pa^.data>=pb^.data

　　(3) return(inclusion(pa,pb));

　　(4) pb:=pb^.next;

　　(5) return(false);

　2�Q�完善算法：已知单链表结点类型�ؓ�Q?/span>

　　TYPE ptr=^node�Q?/span>

　　node=RECORD

　　data�Q?/span>integer�Q?/span> next�Q?/span>ptr

　　END�Q?/span>

　　�q�程create建立�?/span>head为头指针的单链表�?/span>

　　PROCEDURE create ( (1) )�Q?/span>

　　VAR p,q�Q?/span>ptr�Q?/span> k�Q?/span>integer�Q?/span>

　　BEGIN

　　new�Q?/span>head�Q�； q:=head�Q?/span>read�Q?/span>k�Q�；

　　WHILE k>0 DO

　　BEGIN

　　(2); (3); (4); (5);

　　read�Q?/span>k�Q?/span>

　　END;

　　q^.next�Q?/span>=NIL;

　　END;�?a target="_blank">北京师范大学 1999 三�?/span>

　　【参考答案�?/span>

　　(1) VAR head:ptr (2) new(p) (3) p^.data:=k  (4) q^.next:=p (5) q:=p(带头�l�点)