(NEW)厦门大学845数据结构历年考研真题汇编.pdf

目　录 2011年厦门大学845数据结构考研真题 2009年厦门大学845数据结构考研真题 2008年厦门大学845数据结构考研真题 2006年厦门大学496数据结构考研真题 2005年厦门大学496数据结构考研真题 （A ） 2004年厦门大学496数据结构考研真题 2002年厦门大学496数据结构考研真题 2001年厦门大学496数据结构考研真题 （不完整） 2011年厦门大学845数据结构考研真题 2009年厦门大学845数据结构考研真题 2008年厦门大学845数据结构考研真题 2006年厦门大学496数据结构考研真题 2005年厦门大学496数据结构考研真题 （A） 2004年厦门大学496数据结构考研真题 2002年厦门大学496数据结构考研真题 2001年厦门大学496数据结构考研真题 （不 完整） 厦门大学2001年研究生入学考试 数据结构试题 （部分、附答案） 一、程序阅读题 （本题10分） 下面的算法为读入一段正文，统计所出现的字符，并计算它们出现 的频数。每遇到一个字符，就从链表的根到链头扫描链表，如果在链表 中该字符被找到，它的频数就增加1，否则就插入该字符的一个节点到 表头，相应频数为1。当输入字符为” ＃”时，程序结束。请在空白处填 入适当的内容。 Program list(input,output); Type ref ^word; 　 Word record 　 Key: char; 　 Cont: integer; 　 Next: ref; 　 end; var k:char; Sentinel, root: ref; Procedure search ([1]) var w:ref; Begin 　 w: root; 　 sentinel^key: x; 　 while w^.keyx do 　 [2]; 　 if [3] 　 then w^count: w^.count+1 　 else begin w: root; [4]; 　 with root^ do 　 begin key: x;count: 1;next: w 　 end 　 end End; Procedure display(w:ref); 　 begin while wsentinel do 　 begin writeln(w^.key,w^.count); w: w^.next; 　 end 　 End; Begin new(sentinel); with sentinel^ do begin 　 key: #; 　 count: 0; 　 next: nil end; root: sentinel; while k# do begin 　 search(k,root); 　 read(k); end; display [5]; End. 答案： ［1］：x:char,var root:ref ［2 ］：w: w^.next ［3 ］：w^.key: x ［4 ］：new(root) ［5］：(root) 二、算法题 （本题9分） 广义表GL （a1,a2,……an ）,其中ak(k 1,2,3…..n)或是单个数据元素 （原子），或仍然是一个广义表。给定如下有关广义表的类型定义： type tagtype 0..1; glist ^gnode; link:glist;case tag:tagtyoe of 0(data:integ