1、第十三届全国青少年信息学奥林匹克联赛初赛试题（ 普及组 Pascal 语言 二小时完成）一、 单项选择题（共 20题，每题 1.5分，共计 30分。每题有且仅有一个正确答案。）1 在以下各项中，（ ）不是 CPU的组成部分。A控制器 B运算器 C寄存器 D主板2在关系数据库中，存放在数据库中的数据的逻辑结构以（ ）为主。A二叉树 B多叉树 C哈希表 D二维表3在下列各项中，只有（ ）不是计算机存储容量的常用单位。AByte BKB CUB DTB4ASCII 码的含义是（ ）。A二十进制转换码 B美国信息交换标准代码 C数字的二进制编码 D计算机可处理字符的唯一编码5一个完整的计算机系统应包括
2、（ ）。A系统硬件和系统软件 B硬件系统和软件系统 C主机和外部设备 D主机、键盘、显示器和辅助存储器6IT 的含义是（ ）。A通信技术 B信息技术 C网络技术 D信息学7LAN 的含义是（ ）。A因特网 B局域网 C广域网 D城域网8冗余数据是指可以由其它数据导出的数据。例如，数据库中已存放了学生的数学、语文和英语的三科成绩，如果还存放三科成绩的总分，则总分就可以看作冗余数据。冗余数据往往会造成数据的不一致。例如，上面 4个数据如果都是输入的，由于操作错误使总分不等于三科成绩之和，就会产生矛盾。下面关于冗余数据的说法中，正确的是（ ）。A应该在数据库中消除一切冗余数据B用高级语言编写的数据处
3、理系统，通常比用关系数据库编写的系统更容易消除冗余数据C为了提高查询效率，在数据库中可以保留一些冗余数据，但更新时要做相容性检验D做相容性检验会降低效率，可以不理睬数据库中的冗余数据9在下列各软件，不属于 NOIP竞赛（复赛）推荐使用的语言环境有（ ）。Agcc Bg+ CTurbo C DFree Pascal10以下断电后仍能保存数据的有（ ）。A硬盘 B高速缓存 C显存 DRAM11在下列关于计算机语言的说法中，正确的有（ ）。A高级语言比汇编语言更高级，是因为它的程序的运行效率更高B随着 Pascal、C 等高级语言的出现，机器语言和汇编语言已经退出了历史舞台C高级语言比汇编语言程序更
4、容易从一种计算机上移植到另一种计算机上DC 是一种面向对象的高级计算机语言12近 20年来，许多计算机专家都大力推崇递归算法，认为它是解决较复杂问题的强有力的工具。在下列关于递归算法的说法中，正确的是（ ）。A在 1977年前后形成标准的计算机高级语言“FORTRAN77”禁止在程序使用递归，原因之一是该方法可能会占用更多的内存空间B和非递归算法相比，解决同一个问题，递归算法一般运行得更快一些C对于较复杂的问题，用递归方式编程一般比非递归方式更难一些D对于已经定义好的标准数学函数 sin(x)，应用程序中的语句“y=sin(sin(x);”就是一种递归调用13一个无法靠自身的控制终止的循环成为
5、“死循环”，例如，在 C语言程序中，语句“while(1) printf(“*”);”就是一个死循环，运行时它将无休止地打印*号。下面关于死循环的说法中，只有（ ）是正确的。A不存在一种算法，对任何一个程序及相应的输入数据，都可以判断是否会出现死循环，因而，任何编译系统都不做死循环检查B有些编译系统可以检测出死循环C死循环属于语法错误，既然编译系统能检查各种语法错误，当然也应该能检查出死循环D死循环与多进程中出现的“死锁”差不多，而死锁是可以检测的，因而，死循环也可以检测的14在 Pascal语言中，表达式 （23 or 2 xor 5）的值是（ ）。A18 B1 C23 D3215在 Pas
6、cal语言中，判断整数 a等于 0或 b等于 0或 c等于 0的正确的条件表达式是（ ）。Anot (a0) or (c0) and (b0)Cnot (a=0) and (b=0) or (c10)then y:=y+(b*100-a) div (pp4 mod 3*5)elsey:=y+20+(b*100-c) div (pp4 mod 3*5);writeln(x,y);end.注：本例中，给定的输入数据可以避免分母为 0或数组元素下表越界。输入：6 6 5 5 3输出：_2、program j302;var a,b:integer;var x,y:integer;procedure f
7、un(a,b:integer);var k:integer;begin k:=a; a:=b; b:=k; end;begina:=3; b:=6;x:=a; y:=b;fun(x,y);writeln(a,b);end.输出：_3、program j303;var a1:array150 of integer;var i,j,t,t2,n,n2:integer;beginn:=50;for i:=1 to n do a1i:=0;n2:=round(sqrt(n);for i:=2 to n2 doif (a1=0) thenbegint2:=n div i;for j:=2 to t2 d
8、o a1i*j:=1;end;t:=0;for i:=2 to n doif (a1i=0) thenbeginwrite(i:4); inc(t);if (t mod 10=0) then writeln;end;writeln;end.输出：_4、Program j304;Type str1=string100;Str2=string200;VarS1:str1; s2:str2;Function isalpha(c:char):Boolean;Var i:integer;Begini:=ord(c);if (i=65) and (i=97) and (i=48) and (i-1 rev
9、erse(line) 2. exit (dr=tc+s) then chessboard(tr,tc+s,dr,dc,s)else begin boardtr+s-1tc+s:=t; end;if (dr=tr+s) and (dc=tr+s) and (dc=tc+s) then chessboard(tr+s,tc+s,dr,dc,s)else begin boardtr+stc+s:=t; end;end;procedure prt1(n:integer);var I,j:integer;beginfor I:=1 to n do beginfor j:=1 to n do write(
10、boardj:3);writeln;end;end;beginwriteln(input size(4/8/16/64):);readln(size); writeln(input the position of special block(x,y):);readln(dr,dc); boarddrdc:=-1;tile:=1; chessboard(1,1,dr,dc,size); prt1(size);end.NOIP2007年普及组（Pascal 语言）参考答案与评分标准一、单项选择题：（每题 1.5分） 题号 1 2 3 4 5 6 7 8 9 10答案 D D C B B B B C C A题号 11 12 13 14 15 16 17 18 19 20答案 C A A A B D C D A A
