当前位置:首页 >> 学科竞赛 >> 1999年—2011年信息学奥赛提高组初赛试题PASCAL(附答案

1999年—2011年信息学奥赛提高组初赛试题PASCAL(附答案


历届全国青少年 信息学奥林匹克联赛 初赛试题
(提高组 Pascal 语言)

目录
第十七届全国青少年信息学奥林匹克联赛初赛试题 ............... 4 第十六届全国青少年信息学奥林匹克联赛初赛试题 ............. 14 第十五届全国青少年信息学奥林匹克联赛初赛试题 ............. 25 第十四届全

国青少年信息学奥林匹克联赛初赛试题 ............. 35 第十三届全国青少年信息学奥林匹克联赛初赛试题 ............. 43 第十二届全国青少年信息学奥林匹克联赛初赛试题 ............. 52 第十一届全国青少年信息学奥林匹克联赛初赛试题 ............. 62 第十届全国青少年信息学奥林匹克联赛初赛试题 ................. 70 第九届全国青少年信息学奥林匹克联赛初赛试题 ................. 78 第八届全国青少年信息学奥林匹克联赛初赛试题 ................. 86 第七届全国青少年信息学奥林匹克联赛初赛试题 ................. 93 第六届全国青少年信息学奥林匹克联赛初赛试题 ............... 101 第五届全国青少年信息学奥林匹克联赛初赛试题 ............... 107 CCF NOIP 提高组(Pascal)参考答案与评分标准 .............114

第十七届全国青少年信息学奥林匹克联赛初赛试题
( 普及组 Pascal 语言 两小时完成 )
●● 全部试题答案均要求写在答卷纸上,写在试卷纸上一律无效 ●● 一、单项选择题(共 20 题,每题 1.5 分,共计 30 分。每题有且仅有一个正确选项。 ) 1、在二进制下,1101001 + ( A、1011 B、1101 ) = 1110110。 C、1010 D、1111

2、字符“0”的 ASCII 码为 48,则字符“9”的 ASCII 码为( A、39 B、57 C、120

) 。

D、视具体的计算机而定 )张大小为 2MB 的数码照片。 C、4000 D、16000

3、一片容量为 8GB 的 SD 卡能存储大约( A、1600 B、2000

4、摩尔定律(Moore's law)是由英特尔创始人之一戈登·摩尔(Gordon Moore)提出 来的。根据摩尔定律,在过去几十年以及在可预测的未来几年,单块集成电路的集成度大约 每( A、1 )个月翻一番。 B、6 C、18 D、36

5、 无向完全图是图中每对顶点之间都恰有一条边的简单图。 已知无向完全图 G 有 7 个顶点, 则它共有( A、7 6、寄存器是( A、硬盘 )条边。 B、21 )的重要组成部分。 B、高速缓存 C、内存 D、中央处理器(CPU) C、42 D、49

7、如果根结点的深度记为 1,则一棵恰有 2011 个叶结点的二叉树的深度最少是( A、10 B、11 C、12 D、13

) 。

8、体育课的铃声响了,同学们都陆续地奔向操场,按老师的要求从高到矮站成一排。每个同 学按顺序来到操场时,都从排尾走向排头,找到第一个比自己高的同学,并站在他的后面。 这种站队的方法类似于( A、快速排序 A、7 )算法。 C、冒泡排序 C、25
CCF NOIP2011 初赛 普及组 Pascal 4

B、插入排序 B、13

D、归并排序 )位。 D、不能确定

9、一个正整数在二进制下有 100 位,则它在十六进制下有(

10、有人认为,在个人电脑送修前,将文件放入回收站中就是已经将其删除了。这种想法是 ( ) 。 A、正确的,将文件放入回收站意味着彻底删除、无法恢复 B、不正确的,只有将回收站清空后,才意味着彻底删除、无法恢复 C、不正确的,即使将回收站清空,文件只是被标记为删除,仍可能通过恢复软件找回 D、不正确的,只要在硬盘上出现过的文件,永远不可能被彻底删除 11、广度优先搜索时,需要用到的数据结构是( A、链表 B、队列 C、栈 ) 。 D、散列表

12、在使用高级语言编写程序时,一般提到的“空间复杂度”中的“空间”是指( A、程序运行时理论上所占的内存空间 B、程序运行时理论上所占的数组空间 C、程序运行时理论上所占的硬盘空间 D、程序源文件理论上所占的硬盘空间

) 。

13、在含有 n 个元素的双向链表中查询是否存在关键字为 k 的元素,最坏情况下运行的时 间复杂度是( A、O(1) ) 。 B、O(log n) C、O(n) D、O(n log n)

14、生物特征识别,是利用人体本身的生物特征进行身份认证的一种技术。目前,指纹识别、 虹膜识别、人脸识别等技术已广泛应用于政府、银行、安全防卫等领域。以下不属于生物特 征识别技术及其应用的是( ) 。

A、指静脉验证

B、步态验证

C、ATM 机密码验证 D、声音验证

15、 现有一段文言文, 要通过二进制哈夫曼编码进行压缩。 简单起见, 假设这段文言文只由 4 个汉字“之”、 “乎”、 “者”、 “也”组成, 它们出现的次数分别为 700、 600、 300、 200。 那么,“也”字的编码长度是( A、1 B、2 ) 。 C 、3 ) 。 D、4

16、关于汇编语言,下列说法错误的是( A、是一种与具体硬件相关的程序设计语言

B、在编写复杂程序时,相对于高级语言而言代码量较大,且不易调试
CCF NOIP2011 初赛 普及组 Pascal 5

C、可以直接访问寄存器、内存单元、以及 I/O 端口 D、随着高级语言的诞生,如今已完全被淘汰,不再使用 17、 ( )是一种选优搜索法,按选优条件向前搜索,以达到目标。当探索到某一步时,发

现原先选择并不优或达不到目标,就退回一步重新选择。 A、回溯法 18、1956 年( B、枚举法 C、动态规划 D、贪心法

)授予肖克利(William Shockley) 、巴丁(John Bardeen)和布拉

顿(Walter Brattain) ,以表彰他们对半导体的研究和晶体管效应的发现。 A、诺贝尔物理学奖 B、约翰·冯·诺依曼奖 C、图灵奖 D、高德纳奖(Donald E. Knuth Prize) 19、对一个有向图而言,如果每个节点都存在到达其他任何节点的路径,那么就称它是强连 通的。例如,右图就是一个强连通图。事实上,在删掉边( A、a B、b C、c D、d )后,它依然是强连通的。

20、从 ENIAC 到当前最先进的计算机,冯·诺依曼体系结构始终 占有重要的地位。冯·诺依曼体系结构的核心内容是( A、采用开关电路 C、采用存储程序和程序控制原理 ) 。

B、采用半导体器件 D、采用键盘输入

二、问题求解(共 2 题,每题 5 分,共计 10 分) 1、每份考卷都有一个 8 位二进制序列号。当且仅当一个序列号含有偶数个 1 时,它才是有 效的。例如,00000000、01010011 都是有效的序列号,而 11111110 不是。那么,有效 的序列号共有________个。

2、定义字符串的基本操作为:删除一个字符、插入一个字符和将一个字符修改成另一个字符 这三种操作。将字符串 A 变成字符串 B 的最少操作步数,称为字符串 A 到字符串 B 的编 辑距离。字符串"ABCDEFG"到字符串"BADECG"的编辑距离为________。 三、阅读程序写结果(共 4 题,每题 8 分,共计 32 分) 1、 Var

CCF NOIP2011 初赛 普及组 Pascal 6

n, m, i, ans : Integer; Begin Readln(n, m); ans := 0; i := n; While i <= m Do Begin ans := ans + i; Inc(i); End; Writeln(ans); End. 输入:10 20 输出:__________________ 2、 Var map, tel : String; i : Integer; Begin map := '22233344455566677778889999'; Readln(tel); For i := 1 To Length(tel) Do If (tel[i] >= '0') AND (tel[i] <= '9') Then Write(tel[i]) Else If (tel[i] >= 'A') AND (tel[i] <= 'Z') Then Write(map[Ord(tel[i]) - Ord('A') + 1]); End. 输入:CCF-NOIP-2011 输出:__________________ 3、 Const SIZE = 100; Var n, i, sum, x : Integer;

CCF NOIP2011 初赛 普及组 Pascal 7

a : Array[1..SIZE] Of Integer; Begin Readln(n); FillChar(a, SizeOf(a), 0); For i := 1 To n Do Begin Read(x); Inc(a[x]); End; i := 0; sum := 0; While sum < (n DIV 2 + 1) Do Begin Inc(i); sum := sum + a[i]; End; Writeln(i); End. 输入: 11 4 5 6 6 4 3 3 2 3 2 1 输出:__________________

CCF NOIP2011 初赛 普及组 Pascal 8

4、 Var n, m : Integer; Function solve(n, m : Integer) : Integer; Var i, sum : Integer; Begin If m = 1 Then Begin solve := 1; Exit; End; sum := 0; For i := 1 To n - 1 Do sum := sum + solve(i, m - 1); solve := sum; End; Begin Readln(n, m); Writeln(solve(n, m)); End. 输入:7 4 输出:__________________ 四、完善程序(前 11 空,每空 2 分,后 2 空,每空 3 分,共计 28 分) 1、 (子矩阵)输入一个 n1*m1 的矩阵 a,和 n2*m2 的矩阵 b,问 a 中是否存在子矩阵和 b 相等。若存在,输出所有子矩阵左上角的坐标;若不存在输出“There is no answer” 。 Const SIZE = 50; Var n1, m1, n2, m2, i, j, k1, k2 : Integer; a, b : Array[1..SIZE, 1..SIZE] Of Integer; good, haveAns : Boolean; Begin Readln(n1, m1); For i := 1 To n1 Do For j := 1 To m1 Do Read(a[i][j]); Readln(n2, m2);
CCF NOIP2011 初赛 普及组 Pascal 9

For i := 1 To n2 Do For j := 1 To m2 Do ① ;

haveAns := FALSE; For i := 1 To n1 - n2 + 1 Do For j := 1 To Begin ② Do

③ ; For k1 := 1 To n2 Do For k2 := 1 To ④ Do If a[i + k1 - 1][j + k2 - 1] <> b[k1][k2] Then good := FALSE; If good Then Begin Writeln(i, ' ', j); ⑤ ; End; End; If NOT haveAns Then Writeln('There is no answer'); End. 2、 (大整数开方)输入一个正整数 n(1≤n<10100) ,试用二分法计算它的平方根的整数部 分。 Const SIZE = 200; Type hugeint = Record len : Integer; num : Array[1..SIZE] Of Integer; End; //len 表示大整数的位数;num[1]表示个位、num[2]表示十位,以此类推 Var s : String; i : Integer; target, left, middle, right : hugeint; Function times(a, b : hugeint) : hugeint; // 计算大整数 a 和 b 的乘积 Var

CCF NOIP2011 初赛 普及组 Pascal 10

i, j : Integer; ans : hugeint; Begin FillChar(ans, SizeOf(ans), 0); For i := 1 To a.len Do For j := 1 To b.len Do ① := ans.num[i + j - 1] + a.num[i] * b.num[j]; For i := 1 To a.len + b.len Do Begin ans.num[i + 1] := ans.num[i + 1] + ans.num[i] DIV 10; ② ; If ans.num[a.len + b.len] > 0 Then ans.len := a.len + b.len Else ans.len := a.len + b.len - 1; End; times := ans; End; Function add(a, b : hugeint) : hugeint; // 计算大整数 a 和 b 的和 Var i : Integer; ans : hugeint; Begin FillChar(ans.num, SizeOf(ans.num), 0); If a.len > b.len Then ans.len := a.len Else ans.len := b.len; For i := 1 To ans.len Do Begin ans.num[i] := ③ ; ans.num[i + 1] := ans.num[i + 1] + ans.num[i] DIV 10; ans.num[i] := ans.num[i] MOD 10; End; If ans.num[ans.len + 1] > 0 Then Inc(ans.len); add := ans; End; Function average(a, b : hugeint) : hugeint; // 计算大整数 a 和 b 的平均数的整数部分 Var i : Integer; ans : hugeint; Begin ans := add(a, b);
CCF NOIP2011 初赛 普及组 Pascal 11

For i := ans.len DownTo 2 Do Begin ans.num[i - 1] := ans.num[i - 1] + ( ans.num[i] := ans.num[i] DIV 2; End; ans.num[1] := ans.num[1] DIV 2; If ans.num[ans.len] = 0 Then Dec(ans.len); average := ans; End; Function plustwo(a : hugeint) : hugeint; // 计算大整数 a 加 2 后的结果 Var i : Integer; ans : hugeint; Begin ans := a; ans.num[1] := ans.num[1] + 2; i := 1; While (i <= ans.len) AND (ans.num[i] >= 10) Do Begin ans.num[i + 1] := ans.num[i + 1] + ans.num[i] DIV 10; ans.num[i] := ans.num[i] MOD 10; Inc(i); End; If ans.num[ans.len + 1] > 0 Then ⑤ ; plustwo := ans; End; Function over(a, b : hugeint) : Boolean; // 若大整数 a > b 则返回 1, 否则返回 0 Var i : Integer; Begin If ( ⑥ ) Then Begin over := FALSE; Exit; End; If a.len > b.len Then Begin over := TRUE; Exit; End;
CCF NOIP2011 初赛 普及组 Pascal 12



) * 10;

For i := a.len DownTo 1 Do Begin If a.num[i] < b.num[i] Then Begin over := FALSE; Exit; End; If a.num[i] > b.num[i] Then Begin over := TRUE; Exit; End; End; over := FALSE; End; Begin Readln(s); FillChar(target.num, SizeOf(target.num), 0); target.len := Length(s); For i := 1 To target.len Do target.num[i] := Ord(s[target.len - i + 1]) FillChar(left.num, SizeOf(left.num), 0); left.len := 1; left.num[1] := 1; right := target; Repeat middle := average(left, right); If over( ⑧ ) Then right := middle Else left := middle; Until over(plustwo(left), right); For i := left.len DownTo 1 Do Write(left.num[i]); Writeln; End. ⑦ ;

CCF NOIP2011 初赛 普及组 Pascal 13

江苏省新海高级中学

第十六届全国青少年信息学奥林匹克联赛初赛试题
( 提高组 Pascal 语言 二小时完成 )

●● 全部试题答案均要求写在答卷纸上,写在试卷纸上一律无效 ●●
一、单项选择题 1.与 16 进制数 A1.2 等值的 10 进制数是 ( )A.101.2 B.111.4 C.161.125 D.177.25 2.一个字节(byte)由( )个二进制组成。 A.8 B.16 C.32 D.以上都有可能 )。

3.以下逻辑表达式的值恒为真的是( A.P∨(┓P∧Q)∨(┓P∧┓Q)

B.Q∨(┓P∧Q)∨(P∧┓Q)

C.P∨Q∨(P∧┓Q)∨(┓P∧Q) D.P∨┓Q∨(P∧┓Q)∨(┓P∧┓Q) 4.Linux 下可执行文件的默认扩展名是( )。 A. exe B. com C. dll D.以上都不是

5.如果在某个进制下等式 7*7=41 成立,那么在该进制下等式 12*12=( )也成立。 A. 100 B. 144 C. 164 D. 196 6.提出“存储程序”的计算机工作原理的是( )。 A. 克劳德?香农 B.戈登?摩尔 C.查尔斯?巴比奇 D.冯?诺依曼 7.前缀表达式“+ 3 * 2 + 5 12 ” 的值是( )。A. 23 B. 25 C. 37 D. 65

8.主存储器的存取速度比中央处理器(CPU)的工作速度慢的多,从而使得后者的效率受到影响。而 根据局部性原理,CPU 所访问的存储单元通常都趋于一个较小的连续区域中。于是,为了提高系 统整体的执行效率,在 CPU 中引入了( )。A.寄存器 B.高速缓存 C.闪存 D.外存

9.完全二叉树的顺序存储方案,是指将完全二叉树的结点从上到下、从左到右依次存放到一个顺 序结构的数组中。假定根结点存放在数组的 1 号位置上,则第 k 号结点的父结点如果存在的话, 应当存放在数组中的( )号位置。 A. 2k B. 2k+1 C. k/2 下取整 D. (k+1)/2

10.以下竞赛活动中历史最悠久的是( 二、不定项选择题

)。A. NOIP B.NOI C. IOI D. APIO

1.元素 R1、R2、R3、R4、R5 入栈的顺序为 R1、R2、R3、R4、R5。如果第 1 个出栈的是 R3,那么 第 5 个出栈的可能是( A.R1 )。 B.R2 C.R4 D.R5

14

江苏省新海高级中学

2. Pascal 语言,C 语言和 C++语言都属于( 编译性语言

)。A.高级语言

B.自然语言

C.解释性语言

D.

3. 原地排序是指在排序过程中(除了存储待排序元素以外的)辅助空间的大小与数据规模无关的 排序算法。以下属于原地排序的有( 序 D.选择排序 )。 )。A.冒泡排序 B.插入排序 C.基数排

4. 在整数的补码表示法中,以下说法正确的是( 对值相同

A.只有负整数的编码最高位为 1 B.在编码的位数确定后,所能表示的最小整数和最大整数的绝 C.整数 0 只有一个唯一的编码 D.两个用补码表示的数相加时,若在最高位产生进位,则表示运 算溢出 5. 一颗二叉树的前序遍历序列是 ABCDEFG,后序遍历序列是 CBFEGDA,则根结点的左子树的结点 个数可能是( )。 A.0 B. 2 C. 4 )。 D. 6

6. 在下列 HTML 语句中,可以正确产生一个指向 NOI 官方网站的超链接的是( A.<a url=”h t t p : / / w w w . n o i . c n”>欢迎访问 NOI 网站</a> B.<a href=”h t t p : / / w w w . n o i . c n”>欢迎访问 NOI 网站</a> C.<a>h t t p : / / w w w . n o i . c n</a> D.<a name”h t t p : / / w w w . n o i . c n”>欢迎访问 NOI 网站</a> 7. 关于拓扑排序,下列说法正确的是( A.所有连通的有向图都可以实现拓扑排序 B.对同一个图而言,拓扑排序的结构是唯一的 C.拓扑排序中入度为 0 的结点总会排在入度大于 0 的结点的前面 D.拓扑排序结果序列中的第一个结点一定是入度大于 0 的点 )。

8. 一个平面的法线是指与该平面垂直的直线。过点(1,1,1)、(0,3,0)、(2,0,0)的平面的法线 是( )。 A.过点(1,1,1)、(2,3,3)的直线 B.过点(1,1,1)、(3,2,1)的直线 C.过点(0,3,0)、(-3,1,1)的直线 D.过点(2,0,0)、(5,2,1)的直线 9.双向链表中有两个指针域 llink 和 rlink,分别指向该结点的前驱及后继。设 p 指向链表中的 一个结点,他的左右结点均为非空。现要求删除结点 p,则下列语句序列中正确的是( A.p->rlink->llink=p->rlink; p->llink->rlink=p->llink; delete p; B.p->llink->rlink=p->rlink; p->rlink->llink = p->llink; delete p; C.p->rlink->llink = p->llink; p->rlink->llink ->rlink = p->rlink; delete p; D.p->llink->rlink = p->rlink; p->llink->rlink->link = p->llink; delete p; )。

15

江苏省新海高级中学

10. 今年(2010 年)发生的事件有(

)。

A.惠普实验室研究员 Vinay Deolalikar 自称证明了 P≠NP B.英特尔公司收购计算机安全软件公司迈克菲(McAfee) C.苹果公司发布 iPhone 4 手机 D.微软公司发布 Windows 7 操作系统 三、问题求解 1.LZW 编码是一种自适应词典编码。在编码的过程中,开始时只有一部基础构造元素的编码词典, 如果在编码的过程中遇到一个新的词条,则该词条及一个新的编码会被追加到词典中,并用于后 继信息的编码。 举例说明,考虑一个待编码的信息串:“xyx yy yy xyx”。初始词典只有 3 个条目, 第一个为 x,编码为 1;第二个为 y,编码为 2;第三个为空格,编码为 3;于是串“xyx”的编码 为 1-2-1(其中-为编码分隔符),加上后面的一个空格就是 1-2-1-3。但由于有了一个空格,我 们就知道前面的“xyx”是一个单词,而由于该单词没有在词典中,我们就可以自适应的把这个词 条添加到词典里,编码为 4,然后按照新的词典对后继信息进行编码,以此类推。于是,最后得 到编码:1-2-1-3-2-2-3-5-3-4。 我们可以看到,信息被压缩了。压缩好的信息传递到接受方,接收方也只要根据基础词 典就可以完成对该序列的完全恢复。解码过程是编码过程的逆操作。现在已知初始词典的 3 个条 目如上述,接收端收到的编码信息为 2-2-1-2-3-1-1-3-4-3-1-2-1-3-5-3-6,则解码后的信息串 是”____________”。 2.无向图 G 有 7 个顶点,若不存在由奇数条边构成的简单回路,则它至多有__________条边。 3.记 T 为一队列,初始时为空,现有 n 个总和不超过 32 的正整数依次入列。如果无论这些数具体 为何值,都能找到一种出队的方式,使得存在某个时刻队列 T 中的数之和恰好为 9,那么 n 的最 小值是___________。 四、阅读程序写结果

1. const size = 10; var i, j, cnt, n, m : integer; data : array[1..size] of integer; begin readln(n, m); for i := 1 to n do read(data[i]); for i := 1 to n do begin cnt := 0; for j := 1 to n do if (data[i] < data[j]) or ((data[j] = data[i]) and (j < i)) then inc(cnt);

16

江苏省新海高级中学

if cnt = m then writeln(data[i]); end; end. 输入 5 2 96 -8 0 16 87 输出:__________ 2. const size = 100; var na, nb, i, j, k : integer; a, b : array[1..size] of integer; begin readln(na); for i := 1 to na do read(a[i]); readln(nb); for i := 1 to nb do read(b[i]); i := 1; j := 1; while (i <= na) and (j <= nb) do begin if a[i] <= b[j] then begin write(a[i],' '); inc(i); end else begin write(b[j], ' '); inc(j); end; end; if i <= na then for k := i to na do write(a[k], ' '); if j <= nb then for k := j to nb do write(b[k], ' '); end. 输入

17

江苏省新海高级中学

5 1 3 5 7 9 4 2 6 10 14 输出:__________ 3. const num = 5; var n: integer; function r(n : integer) : integer; var i : integer; begin if n <= num then begin r := n; exit; end; for i :=1 to num do if r(n-i) < 0 then begin r:=i; exit; end; r:=-1; end; begin readln(n); writeln(r(n)); end. 输入 16 输出:__________ 4. const size=100; var n,m,x,y,i :integer; r: array[1.. size] of integer; map : array[1..size, 1..size] of boolean; found : boolean; function successful : boolean;

18

江苏省新海高级中学

var i : integer; begin for i :=1 to n do if not map[r[i]][r[i mod n + 1]] then begin successful := false; exit; end; successful :=true; end; procedure swap(var a, b : integer); var t : integer; begin t := a; a := b; b := t; end; procedure perm(left, right : integer); var i : integer; begin if found then exit; if left > right then begin if successful then begin for i := 1 to n do writeln(r[i], ' '); found := true; end; exit; end; for i:= left to right do begin swap(r[left], r[i]); perm(left + 1, right); swap(r[left], r[i]); end; end; begin readln(n, m);

19

江苏省新海高级中学

fillchar(map, sizeof(map), false); for i := 1 to m do begin readln(x, y); map[x][y] := true; map[y][x] := true; end; for i := 1 to n do r[i] := i; found := false; perm(1, n); if not found then writeln('No soloution'); end. 输入: 9 12 1 2 2 3 3 4 4 5 5 6 6 1 1 7 2 7 3 8 4 8 5 9 6 9 输出:__________ 五、完善程序
1.(过河问题) 在一个月黑风高的夜晚,有一群人在河的右岸,想通过唯一的一根独木桥走到河的左岸.在伸 手不见五指的黑夜里,过桥时必须借照灯光来照明,不幸的是,他们只有一盏灯.另外,独木桥上最多能承受两 个人同时经过,否则将会坍塌.每个人单独过独木桥都需要一定的时间,不同的人要的时间可能不同.两个人 一起过独木桥时,由于只有一盏灯,所以需要的时间是较慢的那个人单独过桥所花费的时间.现在输入 N(2<=N<1000)和这 N 个人单独过桥需要的时间,请计算总共最少需要多少时间,他们才能全部到达河左岸. 例如,有 3 个人甲、乙、丙,他们单独过桥的时间分别为 1 为 7.具体方法是:甲 的左岸,总时间为 2+1+4=7. 2 4,则总共最少需要的时间 乙一起过桥到河的左岸,甲单独回到河的右岸将灯带回,然后甲,丙在一起过桥到河

const SIZE = 100; INFINITY = 10000; LEFT = true; RIGHT = false; LEFT_TO_RIGHT = true;

20

江苏省新海高级中学

RIGHT_TO_LEFT = false; var n, i : integer; time : array[1..Size] of integer; pos :array[1..Size] of Boolean; function max(a, b :integer) : integer; begin if a > b then max := a else max := b; end; function go(stage : boolean) : integer; var i, j, num, tmp, ans : integer; begin if (stage = RIGHT_TO_LEFT) then begin num := 0; ans :=0; for i := 1 to n do if pos[i] = Rignt then begin inc(num); if time[i] > ans then ans := time[i]; end; if __________ then begin go := ans; exit; end; ans := INFINITY; for i := 1 to n – 1 do if pos[i] = RIGHT then for j := i+1 to n do if pos[j] = RIGHT then begin pos[i] := LEFT; pos[j] := LEFT; tmp := max(time[i], time[j]) + _______; if tmp < ans then ans := tmp; pos[i] := RIGHT;

21

江苏省新海高级中学

pos[j] := RIGHT; end; go := ans; end else if (stage = LEFT_TO_RIGHT) then begin ans := INFINITY; for i := 1 to n do if _______ then begin pos[i] := RIGHT; tmp := ________; if tmp < ans then ans := tmp; _________; end; go := ans; end else go := 0; end; begin readln(n); for i := 1 to n do begin read(time[i]); pos[i] := RIGHT; end; writeln(go(RIGHT_TO_LEFT)); end. 2.(烽火传递)烽火台又称烽燧,是重要的军事防御设施,一般建在险要处或交通要道上。 一旦有敌情发生,白天燃烧柴草,通过浓烟表达信息;夜晚燃烧干柴,以火光传递军情。在 某两座城市之间有 n 个烽火台,每个烽火台发出信号都有一定的代价。为了使情报准确地 传递,在连续 m 个烽火台中至少要有一个发出信号。现输入 n、m 和每个烽火台发出信号的 代价,请计算总共最少花费多少代价,才能使敌军来袭之时,情报能在这两座城市之间准确 传递。 例如,有 5 个烽火台,它们发出信号的代价依次为 1、2、5、6、2,且 m 为 3,则总 共最少花费的代价为 4,即由第 2 个和第 5 个烽火台发出信号。 const SIZE= 100; var n. m, r, i : integer; value, heap, pos, home, opt : array[l..SIZEl of integer; //heap [i]表示用顺序数组存储的堆 heap 中第 i 个元素的值
22

江苏省新海高级中学

//pos [i]表示 opt [i]在堆 heap 中的位置,即 heap lpos [i]] =opt [i] //home [i]表示 heap [i]在序列 opt 中的位置,即 opt [home [i]] =heap [i] procedure swap (i, j : integer)j //交换堆中的第 i 个和第 j 个元素 var tmp : integer; begin pos [home [i]] :=j; pos [home[j]] :=i; tmp :=heap [i]; heap [i] :=heap [j]; heap [j] :=tmp; tmp :=home [i]; home [i] :=home[j]; home [j] := tmp; end; procedure add (k : integer) ; //在堆中插入 opt[k] var i : integer; begin inc (r) ; heap [r] := ① pos [k] := r; ② while (i > 1) and (heap[i] < heap[i div _2]) do begin swap (i, i div 2); i := i div 2; end;