数据l构W二章填I题?qing)参考答案[6]_跨考网
1Q阅M下算法,填充I格Q其成为完整的法。其功能是在一个非递减的顺序存储线性表中,删除所有值相{的多余元素?/span>
(tng)
CONST maxlen=30
(tng)
TYPE sqlisttp=RECORD
(tng)
elem:ARRAY[1..maxlen] OF integer;
(tng)
last:0..maxlen
(tng)
END;
(tng)
PROC exam21(VAR L:sqlisttp);
(tng)
j:=1; i:=2;
(tng)
WHILE (1)______ DO
(tng)
[ IF L.elem[i]<>L.elem[j] THEN [ (2)_______; (3)______];
(tng)
i:=i+1 ]
(tng)
(4) ________;
(tng)
ENDP;?a target="_blank">同济大学 2000 二?/span>1 (10?/span>)?/span>
(tng)
【参考答案?/span>
(tng)
(1)i<=L.last ?/span>L.last 为元素个?/span>
(tng)
(2)j:=j+1 ∥有g相等的元?/span>
(tng)
(3)L.elem[j]:=L.elem[i] ∥元素前U?/span>
(tng)
(4)L.last:=j ∥元素个?/span>
2Q在本题的程序中Q函数过E?/span>Create_link_list(n)建立一个具?/span>n个结点的环Ş链表;E序q程 josephus(n,i,m)对由Create_link_list(n)所建立的具?/span>n个结点的环Ş链表按一定的ơ序逐个输出q删除链表中的所有结点,参数 n(n>0)指明环Ş链表的结点个敎ͼ参数 i(1<=i<=n)指明起始l点Q参?/span> m (m>0)是步长,指明从v始结Ҏ(gu)前次被删除ƈ输出的结点之后的W?/span>m个结点作为本ơ被输出q删除的l点。例如,对于下图中具?/span>6个结点的环Ş链表Q在调用 josephus(6,3,2)后,输?/span> 5,1,3,6,4,2 请在横线处填上适当内容Q每I只填一个语句?/span>
(tng)
TYPE nodeptr=^nodetype;
(tng)
nodetype=RECORD
(tng)
data: intrger; link: nodeptr
(tng)
END;
(tng)
VAR n,i,m: integer;
(tng)
FUNCTION Create_link_list(n: integer): nodeptr;
(tng)
VAR head,p,q: nodeptr; i:integer;
(tng)
BEGIN head := NIL;
(tng)
IF n>0 THEN
(tng)
BEGIN new(head); p: =head;
(tng)
FOR i:=1 TO n-1 DO
(tng)
BEGIN p^.data:=i; new(q); (A)____; (B)____ ENDQ?/span>
(tng)
p^.data:=n; (C)___;
(tng)
END;
(tng)
Creat_link_list:=head
(tng)
END;
PROCEDURE josephus(n,i,m:integer);
(tng)
VAR p,q:nodeptr; j:integer;
(tng)
BEGIN p:=Creat_link_list(n);
(tng)
WHILE i>1 DO BEGIN p:=p^.link; i:=i-1 END;
(tng)
(D)___ ;
(tng)
WHILE j<n DO
(tng)
BEGIN
(tng)
FOR i:=1 TO m-1 DO p:=p^.link;
(tng)
(E)___; write(q^.data:8); (F)__ ;
(tng)
dispose(q); j:=j+1
(tng)
END
(tng)
END;?a target="_blank">复旦大学 1997 四(12分)(j)?/span>
(tng)
【参考答案?/span>
(tng)
(A)p^.link:=q;∥拉上链Q前驱指向后l?/span>
(tng)
(B)p:=q;∥新的前?/span>
(tng)
(C)p^.link:=head;∥Ş成@环链?/span>
(tng)
(D)j:=0; ∥计数器Q记被删l点
(tng)
(E)q:=p^.link∥记下被删结?/span>
(tng)
(F)p^.link=q^.link ∥删除结?/span>
2022考研初复试已l接q尾壎ͼ考研学子全面q入2023届备?/b>Q跨考ؓ(f)23考研的考生准备?0大课包全E准备、全q复?fn)备考计划、目标院校专业辅对{全真复试模拟练?fn)和全程针对性指|2023考研的小伙伴针也已经开始择校和复习(fn)?jin),跨考考研畅学5.0版本全新升Q无Z在校在家都可以更自如的完成你的考研复习(fn)Q?/a>暑假集训?/span>带来?jin)院校专业初步选择Q明方向;考研备考全q规划,核心(j)知识点入门;个性化制定备考方案,助你赢在赯U,早出发一点离成功更q一点!
点击右侧咨询?/strong>直接前往?jin)解更?/strong>
考研院校专业选择和考研复习(fn)计划 | |||
2023备考学?/td> | 2023U上U下随时学习(fn) | 34所自划UK校考研复试分数U汇?/td> | |
2022考研复试最全信息整?/a> | 全国各招生院校考研复试分数U汇?/a> | ||
2023全日制封闭训l?/span> | 全国各招生院校考研调剂信息汇?/a> | ||
2023考研先知 | 考研考试U目有哪些? | 如何正确看待考研分数U? | |
不同院校相同专业如何选择更适合自己?/a> | 从就业说考研如何择专业? | ||
手把手教你如何选专业? | 高校研究生教育各学科门类排行?/a> |
相关推荐
跨考考研评
班型 | 定向班型 | 开班时?/td> | 高定?/td> | 标准?/td> | 评介绍 | 咨询 |
U季集训 | 冲刺?/td> | 9.10-12.20 | 168000 | 24800?/td> | 班面授+专业??+专业译֮向辅?协议加强评(高定?+专属规划{疑(高定?+_化答?复试资源(高定?+复试译(高定?+复试指导(高定?+复试班主?v1服务(高定?+复试面授密训(高定?+复试1v1(高定? | |
2023集训畅学 | 非定向(政英?数政qQ?/td> | 每月20?/td> | 22800?协议? | 13800?/td> | 先行阶在U课E?基础阶在U课E?强化阶在U课E?真题阶在U课E?冲刺阶在U课E?专业NҎ(gu)一对一评+班主dE督学服?全程规划体系+全程试体系+全程_化答?择校择专业能力定位体p?全年关键环节指导体系+初试加强?初试专属服务+复试全科标准班服?/td> |