原创力文档- 1、原创力文档（book118）网站文档一经付费（服务费），不意味着购买了该文档的版权，仅供个人/单位学习、研究之用，不得用于商业用途，未经授权，严禁复制、发行、汇编、翻译或者网络传播等，侵权必究。。
- 2、本站所有内容均由合作方或网友上传，本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺！文档内容仅供研究参考，付费前请自行鉴别。如您付费，意味着您自己接受本站规则且自行承担风险，本站不退款、不进行额外附加服务；查看《如何避免下载的几个坑》。如果您已付费下载过本站文档，您可以点击 这里二次下载。
- 3、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等，请点击“版权申诉”（推荐），也可以打举报电话：400-050-0827(电话支持时间：9:00-18:30)。
- 4、该文档为VIP文档，如果想要下载，成为VIP会员后，下载免费。
- 5、成为VIP后，下载本文档将扣除1次下载权益。下载后，不支持退款、换文档。如有疑问请联系我们。
- 6、成为VIP后，您将拥有八大权益，权益包括：VIP文档下载权益、阅读免打扰、文档格式转换、高级专利检索、专属身份标志、高级客服、多端互通、版权登记。
- 7、VIP文档为合作方或网友上传，每下载1次， 网站将根据用户上传文档的质量评分、类型等，对文档贡献者给予高额补贴、流量扶持。如果你也想贡献VIP文档。上传文档
厦门大学 2001 年数据结构考研试题及参考答案
Word=recordkcy: char;
Cont: .integer;Nex:t: :ref;
cnd;
飞ar k:char;
Scntincl5 root: rcf;
P:rocc:dLuc search ([l]var w:ref;
Bc:巨
w:＝root;
scntinclAkcy:＝x;
whilc w人Kcy，x do
[2];
.if [3]
thcn w^count:＝W入COLlLlt+lclsc
bcgin
w:=root;
[4L
with root^ dobcgin
kc:y:=X;COLl□t:=l;L1C:Xt:=W
end
end
End;
Procedure displ::i.y(w:ref儿
bcgin
已whilc w＞scntinCl dobe它in
已
writcln(w^．Kcy,w^．,coun t
w:=w人．ncxt;end
End;
Bcgln
new(scntincl
`uith scntincl^ dobegin
kc:y:=#;.CO Llnt:=0;nc.xt:=nil
end;
root:=seLlt.iLlel;
仁whilc k＇#＇dobe巳in
仁
scnrch(k,root);read(k);
end;
display [5];End.
答案： (1] ．x:cbarvrrr root:rc:f
[2] w:=w八next
[3] w.,..kcy:=.x
[4] new(root
[5] (root
--、 算法堰（本题9分）
广义表GL= (al;a2;..,...an) ，其中ak(k=1;2;3..,..n}或是单个数据元紫
（原子），或仍然是一个广义表口给定如卜．有关丿＇一义表的类型定义：
type
tagtypc:=0..1;glist=Ag□odc:;
link:glist;casc:tag:tagtyoc: of
O(data:lntc:gcr);1(sLl.b11st:glisq;
end;
缩写一个过程或函数计算一个广义表的所有兀紊节点数据之机，例如对广义表(3(24)，（6,3))数据与之和为23a
答案：可以石出曰该存储结构为首尾存储结构，求广义表GL=(rtl;il
2心.an)的各数据域值之和本质上戟是地历广义表）I.对迫历的数据域求和口这里可及用递归程序来实现口对给定指向的广义表GL=(rtl;a2,......an)的指针L，广义表GL的各数据域值之和f(L}为
f(L)=0（丐L为空时
f(L)=l+ f(L人Link)（ L人tng=O时｝
f(L}= f(LALink)+ f(LAsL1blist) （节L人tag=1时）故求广义表GL的各数据域值之和的递归哟数如卜．：Function f(L:glist}:intcgcr;
bcgin
.if L=N.il
tbe11 f:=0else
if L八tng=O
then f:=l+f(L入1ink
clSC f:=f(LAJi
文档评论（0）