nbhkdz.com冰点文库

第十六届全国青少年信息学奥林匹克联赛初赛试题PASCAL

时间:2011-12-27


第十六届全国青少年信息学奥林匹克联赛初赛试题 (普及组 Pascal 语言 两小时完成) 单项选择题( 每题有且仅有一个正确选项。) 一、单项选择题(共 20 题,每题 1.5 分,共计 30 分。每题有且仅有一个正确选项。) 1. 2E+03 表示( )。 A.2.03 B.5 C.8 D.2000 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.如果树根算第 1 层,那么一颗 n 层的二叉树最多有( )个结点。 n n n n+1 A. 2 -1 B. 2 C. 2 +1 D. 2 6.提出“存储程序”的计算机工作原理的是( )。 A. 克劳德?香农 B. 戈登?摩尔 C. 查尔斯?巴比奇 D.冯?诺依曼 7.设 X、Y、Z 分别代表三进制下的一个数字,若等式 XY + ZX = XYX 在三进制下成立,那么同样在三进制下,等式 XY * ZX = ( )也成立。 A. YXZ B. ZXY C. XYZ D.XZY 8.Pascal 语言、C 语言和 C++语言都属于( )。 A. 面向对象语言 B. 脚本语言 C. 解释性语言 D.编译性语言 9.前缀表达式“+ 3 * 2 + 5 12 ” 的值是( )。 A. 23 B. 25 C. 37 D. 65 10.主存储器的存取速度比中央处理器(CPU)的工作速度慢的多,从而使得后者的效率受到影响。而根据局部性原理, CPU 所访问的存储单元通常都趋于一个较小的连续区域中。 于是, 为了提高系统整体的执行效率, CPU 中引入了( )。 在 A. 寄存器 B. 高速缓存 C. 闪存 D. 外存 11.一个字长为 8 位的整数的补码是 11111001,则它的原码是( )。 A. 00000111 B. 01111001 C. 11111001 D.10000111 12.基于比较的排序时间复杂度的下限是( ),其中 n 表示待排序的元素个数。 2 A. O(n) B. O(n log n) C. O(log n) D. O(n ) 13.一个自然数在十进制下有 n 位,则它在二进制下的位数与( )最接近。 n A. 5n B. n*log210 C. 10*log2 n D. 10 log2 n 14.在下列 HTML 语句中,可以正确产生一个指向 NOI 官方网站的超链接的是( )。 A. <a url=http://www.noi,cn>欢迎访问 NOI 网站</a> B. <a href=http://www.noi,cn>欢迎访问 NOI 网站</a> C. <a> http://www.noi,cn </a> D. <a name=http://www.noi,cn>欢迎访问 NOI 网站</a> 15.元素 R1、R2、R3、R4、R5 入栈的顺序为 R1、R2、R3、R4、R5。如果第 1 个出栈的是 R3,那么第 5 个出栈的不可 能是( )。 A. R1 B. R2 C. R4 D. R5 16. 双向链表中有两个指针域 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;
1

p^.rlink^.llink ^.rlink = p^.rlink; delete p; D.p^.llink^.rlink = p^.rlink; p^.llink^.rlink^.link = p^.llink; delete p; 17. 一棵二叉树的前序遍历序列是 ABCDEFG,后序遍历序列是 CBFEGDA,则根结点的左子树的结点个数可能是( )。 A.2 B. 3 C. 4 D. 5 18. 关于拓扑排序,下列说法正确的是( )。 A.所有连通的有向图都可以实现拓扑排序 B.对同一个图而言,拓扑排序的结果是唯一的 C.拓扑排序中入度为 0 的结点总会排在入度大于 0 的结点的前面 D.拓扑排序结果序列中的第一个结点一定是入度大于 0 的点 19.完全二叉树的顺序存储方案,是指将完全二叉树的结点从上到下、从左到右依次存放到一个顺序结构的数组中。假 定根结点存放在数组的 1 号位置上,则第 k 号结点的父结点如果存在的话,应当存放在数组中的( )号位置。 A. 2k B. 2k+1 C. k/2 下取整 D. (k+1)/2 20. 全国青少年信息学奥林匹克系列活动的主办单位是( )。 A. 教育部 B. 科技部 C. 共青团中央 D. 中国计算机学会 问题求解( 三、问题求解(共 2 题,每题 5 分,共计 10 分) 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 个条目如上述,则信息串“yyxy xx yyxy xyx xx xyx”的编码是 2. 队列快照是指在某一时刻队列中的元素组成的有序序列。现有 3 个正整数元素依次入队、出队。已知它们的和为 8, 则共有_________种可能的不同的队列快照(不同队列的相同快照只计一次)。例如,"5 1"、"4 2 2"、""都是可能的 队列快照;而"7"不是可能的队列快照,因为剩下的 2 个正整数的和不可能是 1。 阅读程序写结果( )(2 四、阅读程序写结果(共 4 题,每题 8 分,其中第 4 题(1)(2)各 4 分,共计 32 分) 1. var if x<a2 then a1,a2,a3,x:integer; if x<a1 then procedure swap(var a,b:integer); writeln(x,‘ ’,a1, ‘ ’, a3, var ‘ ’,a3) t:integer; else begin writeln(a1,‘ ’,x, ‘ ’, a2, t:=a; ‘ ’,a3) a:=b; else b:=t; if x<a3 then end; writeln(a1,‘ ’,a2, ‘ ’, x, begin ‘ ’,a3) readln(a1,a2,a3); else if a1>a2 then writeln(a1,‘ ’,a2, ‘ ’, a3, swap(a1,a2); ‘ ’,x) if a2>a3 then end. swap(a2,a3); 输入 if a1>a2 then 91 2 20 swap(a1,a2); 77 输出:__________ readln(x);
2

2. Var n,m,i:integer; function rSum(j:integer):integer; var sum:integer; begin sum:=0; while j<>0 do begin sum:=sum*10+(j mod 10); j:=j div 10; end; rSum:=sum; end; begin readln(n,m); for i:=n to m do if i=rSum(i) then write(I,’’); end. 输入:90 120 输出:__________

3. var s:string; i:integer; m1,m2:char; begin readln(s); m1:=’’; m2:=’’; for i:=1 to length(s) do if s[i]>m1 then begin m2:=m1; m1:=s[i]; end else if s[i]>m2 then m2:=s[i]; writeln(ord(m1),’ ’,ord(m2)); end. 输入:Expo 2010 Shanghai China 输出: 提示: 字符 ASCII 码 空格 32 ‘0’ 48 ‘A’ 65 ‘a’ 97

4. 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. (1) 输入:7 输出:__________(4 分) (2) 输入 16 输出:__________(4 分)

3

五、完善程序 1.(哥德巴赫猜想)哥德巴赫猜想是指,任一大于 2 的偶数都可写成两个质数的和。迄今为止,这仍然是一个著名的 世界难题,被誉为数学王冠上的明珠。试编写程序,验证任一大于 2 且不超过 n 的偶数都能写成两个质数之和。 const size=1000; var n,r,I,j,k,ans:integer; p:array[1..size] of integer; tmp:Boolean; begin readln(n); r:=1; p[1]:=2; for i:=3 to n do begin ① ; for j:=1 to r do if I mod ② =0 then begin tmp:=false; break; end; if tmp then begin inc(r); ③ ; end; end; ans:=0; for i:=2 to (n div 2) do begin tmp:=false; for j:=1 to r do for k:=j to r do if i+i= ④ then begin tmp:=true; break; end; if tmp then inc(ans); end; writeln(ans); end. 时表示验证成功,即大于 2 且不超过 2010 的偶数都满足哥德巴赫猜想。 若输入 n 为 2010,则输出 ⑤ 2.(过河问题) 在一个月黑风高的夜晚,有一群人在河的右岸,想通过唯一的一根独木桥走到河的左岸.在伸手不见五指 的黑夜里,过桥时必须借照灯光来照明,不幸的是,他们只有一盏灯.另外,独木桥上最多能承受两个人同时经过,否则将 会坍塌.每个人单独过独木桥都需要一定的时间,不同的人要的时间可能不同.两个人一起过独木桥时,由于只有一盏灯,
4

所以需要的时间是较慢的那个人单独过桥所花费的时间.现在输入 N(2<=N<1000)和这 N 个人单独过桥需要的时间,请计 算总共最少需要多少时间,他们才能全部到达河左岸. 例如,有 3 个人甲、乙、丙,他们单独过桥的时间分别为 1 2 4,则总共最少需要的时间为 7.具体方法是: 甲 乙一起过桥到河的左岸,甲单独回到河的右岸将灯带回,然后甲,丙在一起过桥到河的左岸,总时间为 2+1+4=7. CONST SIZE = 100; INFINITY = 10000; LEFT = true; RIGHT = false; LEFT_TO_RIGHT = true; 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;
5

pos[j] tmp := if tmp ans pos[i] pos[j] end; go := ans;

:= LEFT; max(time[i], time[j]) + _______; < ans then := tmp; := RIGHT; := RIGHT;

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.

6


第20届全国青少年信息学奥林匹克联赛pascal初赛试题及...

第二十届全国青少年信息学奥林匹克联赛初赛 普及组 Pascal 语言试题 竞赛时间:2014 年 10 月 12 日 14:30-16:30 一、单项选择题(共 20 题,每题 1.5 分,...

第十六届全国青少年信息学奥林匹克联赛初赛试题及答案(...

第十六届全国青少年信息学奥林匹克联赛初赛试题及答案(Pascal普及组)_教学案例/设计_教学研究_教育专区。第十六届全国青少年信息学奥林匹克联赛初赛试题及答案(Pascal普...

第十八届全国青少年信息学奥林匹克联赛初赛试卷与答案(...

第十八届全国青少年信息学奥林匹克联赛初赛 普及组 Pascal 语言试题 竞赛时间:2012 年 10 月 13 日 14:30-16:30 一 单项选择题(共二十题,每题 1.5 分,共...

...第二十届全国青少年信息学奥林匹克联赛初赛试题及答...

NOIP(2014)第二十届全国青少年信息学奥林匹克联赛初赛试题及答案(提高组PASCAL)_学科竞赛_高中教育_教育专区。NOIP(2014)第二十届全国青少年信息学奥林匹克联赛初赛...

2016年-第二十二届全国青少年信息学奥林匹克联赛初赛普...

第二十二届全国青少年信息学奥林匹克联赛初赛普及组 Pascal 语言试题 竞赛时间:2016 年 10 月 22 日 14:30-16:30 一、单项选择题(共 20 题,每题 1.5 分,...

2004第十届全国青少年信息学奥林匹克联赛初赛试题及答案

第十届全国青少年信息学奥林匹克联赛初赛试题 二小时完成) (普及组 Pascal 语言 二小时完成)一、选择一个正确答案代码(A/B/C/D/E)填入每题的挂号内(每题 ...

...一届(2015)全国青少年信息学奥林匹克联赛初赛试题(...

第二十一届(2015)全国青少年信息学奥林匹克联赛初赛试题(含答案)_学科竞赛_高中教育_教育专区。第二十一届全国青少年信息学奥林匹克联赛初赛 普及组 Pascal 语言...

...第十三届全国青少年信息学奥林匹克联赛初赛试题

NOIP2007(pascal)第十三届全国青少年信息学奥林匹克联赛初赛试题_学科竞赛_高中教育_教育专区。NOIP2007(pascal)第十三届全国青少年信息学奥林匹克联赛初赛试题 ...

第二十二届全国青少年信息学奥林匹克联赛初赛普及组Pas...

第二十二届全国青少年信息学奥林匹克联赛初赛普及组Pascal试题_学科竞赛_初中教育_教育专区。 文档贡献者 zwjft 贡献于2016-10-24 ...

NOIP2016年第二十二届全国青少年信息学奥林匹克联赛提...

第二十二届全国青少年信息学奥林匹克联赛初赛提高组 Pascal 语言试题 竞赛时间:2016 年 10 月 22 日 14:30~16:30 选手注意: ? 试题纸共有 13 页,答题纸共...