nbhkdz.com冰点文库

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

时间:2011-12-27


第十四届全国青少年信息学奥林匹克联赛初赛试题 ( 普及组 Pascal 语言 二小时完成 ) 一、单项选择题(共 20 题,每题 1.5 分。每题有且仅有一个正确答案。 ) 1.微型计算机中,控制器的基本功能是( ) 。 A.控制机器各个部件协调工作 B.实现算术运算和逻辑运算 C.获取外部信息 D.存放程序和数据 2.设 A=True,B=False,C=True,D=False,以下逻辑运算表达式值为真的是( ) 。 A.(A∧B)∨(C∧D∨﹁A) B.((﹁A∧B) ∨C)∧﹁D C.(B∨C∨D) ∧D∧A D.A∧(D∨﹁C)∧B 3.在下列关于图灵奖的说法中,不正确的是( ) 。 A.图灵奖是美国计算机协会于 1966 年设立的,专门奖励那些对计算机事业作出重要贡献的个人 B.图灵奖有“计算机界诺贝尔奖”之称 C.迄今为止,还没有华裔计算机科学家获此殊荣 D.图灵奖的名称取自计算机科学的先驱、英国科学家阿兰?图灵 4.计算机在工作过程中,若突然停电, )中的信息不会丢失。 ( A.ROM 和 RAM B.CPU C.ROM D.RAM 5.完全二叉树共有 2*N-1 个结点,则它的叶节点数是( ) 。 A.N-1 B.N C.2*N D.2N-1 6.在以下各项中,( )不是操作系统软件。 A.Solaris B.Linux C.Windows Vista D.Sybase 7.设栈 S 的初始状态为空,元素 a,b,c,d,e,f 依次入栈 S,出栈的序列为 b,d,f,e,c,a,则栈 S 的容量至少 应该是( ) 。 A.6 B.5 C.4 D.3 8.与十进制数 28.5625 相等的四进制数是( ) 。 A.123.21 B.131.22 C.130.22 D.130.21 9.设字符串 S=”Olympic” 的非字串的数目是( ) ,S 。 A.28 B.29 C.16 D.17 10.Web2.0 是近年来互联网的热门概念之一,其核心思想是互动与分享。下列网站中, )是典型的 Web 2.0 应用。 ( A.Sina B.Flicker C.Yahoo D.Google 11.递归过程或函数调用时,处理参数和返回地址,通常使用一种称为( )的数据结构。 A.队列 B.多维数组 C.线性表 D.栈 12.(2008)10+(5B)16 的结果是( ) 。 A. (833)16 B. (2089)10 C. (4163)8 D. (100001100011)2 13.二叉树 T,已知其先根遍历是 1 2 4 3 5 7 6(数字为节点的编号,下同) ,中根遍历 2 4 1 5 7 3 6,则该二叉树的后 根遍历是( ) 。 A.4 2 5 7 6 3 1 B.4 2 7 5 6 3 1 C.7 4 2 5 6 3 1 D.4 2 7 6 5 3 1 14.将数组{8,23,4,16,77,-5,53,100}中的元素按从小到大的顺序排列,每次可以交换任意两个元素,最少需 要交换( )次。 A.4 B.5 C.6 D.7 15.对有序数组{ 5,13,19,21,37,56,64,75,88,92,100}进行二分查找,成功查找元素 19 的查找长度(比较 次数)是( ) 。 A.1 B.2 C.3 D.4 16 .面向对象程序设计(Object-Oriented Programming)是一种程序设计的方法论,它将对象作为程序的基本单元,将 数据和程序封装在对象中,以提高软件的重用性、灵活性和扩展性。下面关于面向对象设计的说法中,不正确的是( ) A.面向对象程序设计通常采用自顶向下设计方法进行设计。 B.面向对象程序设计方法具有继承性(inheritance) 、封装性(encapsulation) 、多态性 (polymorphism)等几大特点。 C.支持面向对象特性的语言称为面向对象的编程语言,目前较为流行的有 C++,JAVA,C# 等。 D.面向对象的程序设计的雏形来自于 Simula 语言,后来在 SmallTalk 语言的完善和标准化的过程中得到更多的扩展和
1

对以前思想的重新注解。至今,SmallTalk 语言仍然被视为面向对象语言的基础 17.在 32*32 点阵的“字库”中,汉字“北”与“京”的字模占用字节数之和是( ) 。 A.512 B.256 C.384 D.128 18.设 T 是一棵有 n 个顶点的树,下列说法不正确的是( ) 。 A.T 有 n 条边 B.T 是连通的 C.T 是无环的 D.T 有 n-1 条边 19.下列不属于 NOIP 竞赛推荐使用的语言环境的是( ) 。 A.Dev-C++ B.Visual C++ C.Free Pascal D.Lazarus 20.在 Pascal 程序中,表达式(200 or 10)的值是( ) 。 A.20 B.1 C.220 D.202 二、问题求解(共 2 题,每题 5 分,共计 10 分) 1.书架上有 4 本不同的书 A、B、C、D。其中 A 和 B 是红皮的,C 和 D 是黑皮的。把这 4 本书摆在书架上,满足所 有黑皮的书都排在一起的摆法有_________种。满足 A 必须比 C 靠左,所有红皮的书要摆在一起,所有黑皮的书要摆 放在一起,共有_________种摆法。 2.有 6 个城市,任何两个城市之间都有一条道路连接,6 个城市两两之间的距离如下表所示,则城市 1 到城市 6 的最 短距离为__________________。 城市 1 城市 2 城市 3 城市 4 城市 5 城市 6 城市 1 0 2 3 1 12 15 城市 2 2 0 2 5 3 12 城市 3 3 2 0 3 6 5 城市 4 1 5 3 0 7 9 城市 5 12 3 6 7 0 2 城市 6 15 12 5 9 2 0 三、阅读程序写结果(共 4 题,每题 8 分,共计 32 分) if a>b then foo(c,a,b) 1.VAR i,a,b,c,d:integer; f:array[0..3] of integer; else writeln(a,',',b,',',c); BEGIN end; for i:=0 to 3 do var read(f[i]); a,b,c:integer; a:=f[0]+f[1]+f[2]+f[3]; begin a:=a div f[0]; read(a,b,c); b:=f[0]+f[2]+f[3]; foo(a,b,c); b:=b div a; end. c:=(b*f[1]+a) div f[2]; 输入:3 1 2 d:=f[(b div c) mod 4]; 输出:_________________________ if (f[(a+b+c+d) mod 4]>f[2]) then 3.type TT=array[0..20]of integer; begin prodecure func(var ary:TT;n:integer); a:=a+b; var i,j,x:integer; writeln(a); begin end else i:=0;j:=n-1; begin while i<j do begin c:=c+d; while (i<j) and (ary>0) do inc(i); writeln(c); while (i<j) and (ary[j]<0) do dec(j); end; if i<j then begin x:=ary; END. ary:=ary[j]; ary[j]:=x; 输入:9 19 29 39 inc(i); 输出:__________________________ dec(j); 2.procedure foo(a,b,c:integer); begin end;
2

end; end; var a:TT; i,m:integer; begin m:=10; for i:=0 to m-1 do read(a); func(a,m); for i:=1 to m-1 do write(a,' ');liyilong.net writeln; end. 输入:5 4 -6 -11 6 -59 22 -6 1 10 输出:___________________________________________

4 . procedure solve(first:string;spos_f,epos_f:integer;mid:string;spos_m,ep os_m:integer); var i,root_m:integer; begin if spos_f > epos_f then exit; for i:=spos_m to epos_m do 四.完善程序(前四空,每空 2.5 分,后 6 空,每空 3 分,共 28 分) 1. (字符串替换)给定一个字符串 S(S 仅包含大小写字母) ,下面的程序将 S 中的每个字母用规定的字母替换,并输 出 S 经过替换后的结果。程序的输入是两个字符串,第一个字符串是给定的字符串 S,第二个字符串 S’由 26 个字母 组成,它是 a~z 的任一排列,大小写不定,S’规定了每个字母对应的替换字母:S’中的第一个字母是字母 A 和 a 的 替换字母,即 S 中的 A 用该字母的大写替换,S 中的 a 用该字母的小写替换;S’中的第二个字母是字母 B 和 b 的替 换字母,即 S 中的 B 用该字母的大写替换,S 中的 b 用该字母的小写替换;… …以此类推。 Var change:string; Str:string; Procedure CheckChangeRule; Var i:integer; Begin for i:=1 to 26 do begin if ____①_____ then change[i]:=chr(ord(change[i])-ord('A')+ord('a')); end; end; Procedure ChangeString; Var len,i:integer; begin len:=length(str); for i:=1 to len do begin if ______②______ then begin str[i]:=upcase(change[ord(str[i]-ord('A')+1]);
3

if first[spos_f]=mid[i] then begin root_m:=i; break; end; solve(first,spos_f+1,spos_f+(root_m-spos_m),mid,spos_m,ro ot_m-1); solve(first,spos_f+(root_m-spos_m)+1,epos_f,mid,root_m+1 ,epos_m); write(first[spos_f]); end; var first,mid:string; len:integer; begin readln(len); readln(first); readln(mid); solve(first,1,len,mid,1,len); writeln; end. 输入:7 ABDCEGF BDAGECF 输出:_________________________________

end; else begin _______④_______ end; end; end; begin readln(str); readln(change); CheckChangeRule; _______⑤_______ writeln(str); end. 2. (找第 k 大的数)给定一个长度为 1,000,000 的无序正整数序列,以及另一个数 n(1≤n≤1000000) ,然后以类似快 速排序的方法找到序列中第 n 大的数(关于第 n 大的数:例如序列{1,2,3,4,5,6}中第 3 大的数是 4。 ) VAR a:array[1..1000000] of integer; var i:integer; n,m,ans:integer; begin Procedure swap(var a,b:integer); randomize; var t:integer; m:=1000000; begin for i:=1 to m do read(a[i])); if (a<>b) then begin read(n); t:=a; a:=b; b:=t; ans:=FindKth(1,m,n); end; writeln(a[ans]); end; end. function FindKth(left,right,n:integer):integer; var tmp,value,i,j:integer; begin if left=right then exit(left); tmp:=random(right-left)+left; swap(a[tmp],a[left]); value:=_____①______; i:=left; j:=right; while i<j do begin while (i<j) and (____②_____) do dec(j); if i<j then begin a[i]:=a[j]; inc(i); end else break; while (i<j) and (____③_____) do inc(i); if i<j then begin a[j]:=a[i]; dec(j); end else break; end; ______④_______ if i<n then begin inc(i); exit(FindKth(______⑤______)); end; if i>n then begin dec(i); exit(_____⑥_____); end; exit(i); end;
4


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

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

第十三届全国青少年信息学奥林匹克联赛初赛(普及组Pasc....pdf

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

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

NOIP2008年第十四届全国青少年信息学奥林匹克联赛初赛试题普及组PASCAL_广告/传媒_人文社科_专业资料。NOIP信息奥林匹克辅导 第十四届全国青少年信息学奥林匹克联赛初赛...

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

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

2008第十四届全国青少年信息学奥林匹克联赛初赛试题-普....doc

2008第十四届全国青少年信息学奥林匹克联赛初赛试题-普及组-答案_学科竞赛_高中教育_教育专区。NOIP2008 年普及组(Pascal 语言)参考答案与评分标准 一、单项选择题:...

2008年第十四届全国青少年信息学奥林匹克联赛初赛试题答案.doc

2008年第十四届全国青少年信息学奥林匹克联赛初赛试题答案 - NOIP2008 年普及组(Pascal 语言)参考答案与评分标准(修正) 一、单项选择题: (每题 1.5 分) 1. A...

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

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

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

第十四届全国青少年信息学奥林匹克联赛初赛试题PASCAL_学科竞赛_初中教育_教

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

第十四届全国青少年信息学奥林匹克联赛初赛试题 ( 普及组 Pascal 语言 二

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

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

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

第十五届全国青少年信息学奥林匹克联赛初赛试题及答案(Pascal普及组)_学科竞赛_小学教育_教育专区。第十五届全国青少年信息学奥林匹克联赛初赛试题 ( 普及组 ●●●...

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

第十四届全国青少年信息学奥林匹克联赛初赛试题 - 合肥奥数网 http://hf.aoshu.com 第十四届全国青少年信息学奥林匹克联赛初赛试题 ( 提高组 Pascal 语言 二小时...

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

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

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

全国青少年信息学奥林匹克联赛初赛试题(Pascal)_初三数学_数学_初中教育_教育专区。全国青少年信息学奥林匹克联赛初赛试题(PASCAL) NOIP2005 提高 pascal / 第十一届...

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

第十四届全国青少年信息学奥林匹克联赛初赛试题_IT/计算机_专业资料。全国青少年...A.Dev-C++ B.Visual C++ C.Free Pascal D.Lazarus 20.在 Pascal 程序中,...

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

第十五届全国青少年信息学奥林匹克联赛初赛试题( 普及组 Pascal 语言 二小

第十三届全国青少年信息学奥林匹克联赛初赛(普及组Pasc....doc

第十三届全国青少年信息学奥林匹克联赛初赛试题 ( 普及组 Pascal 语言 二

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

第20届全国青少年信息学奥林匹克联赛pascal初赛试题及答案 - 第二十届全国青少年信息学奥林匹克联赛初赛 普及组 Pascal 语言试题 竞赛时间:2014 年 10 月 12 日 ...

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

第十二届全国青少年信息学奥林匹克联赛初赛试题_学科竞赛_初中教育_教育专区。第十二届全国青少年信息学奥林匹克联赛初赛试题( 提高组 Pascal 语言 二小时完成 )●●...

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

第十五届全国青少年信息学奥林匹克联赛初赛试题( 普及组 Pascal 语言 二小