NOIP2011-初级试题(江西赛区).doc

第17届全国青少年信息学（计算机）奥林匹克分区联赛（江西赛区）初级组初赛试题试题说明：本试卷中包含了QBASIC和Pascal两种语言程序，是专门为选择不同参赛语言的选手定制的。第一大题和第二大题是所有选手必须完成的，而在做第三大题和第四大题时，选手请根据自己所报的参赛语言，只需完成一种指定语言的题目。请考生注意，所有试题的答案要求全部做在答题纸上。一、基础知识单项选择题（共10题，每小题3分，共计30分）1. 按照计算机应用的分类标准来划分，办公自动化（简称OA）属于( )。A) 科学计算B) 辅助设计C) 实时控制D) 信息处理2. 用于存储当前正在运行的程序的存储器是( )。A) 内存B) 硬盘C) U盘D) DVD-ROM3. 计算机所能识别并执行的全部指令的集合，称为计算机的( )。A) 程序B) 二进制代码C) 软件D) 指令系统4. 与十六进制整数42等价的八进制整数是( )。A) 42B) 66C) 102D) 1205. 计算机中的英文单词缩写CAM所代表的中文含义是( )。A) 计算机辅助设计B) 计算机辅助制造C) 计算机辅助教学D) 计算机辅助测试6. 在使用Windows时，能够弹出一个对话框的菜单操作是( )。A) 选择了带向右边的三角形箭头的菜单项B) 选择了带省略号的菜单项C) 选择了颜色为灰色的菜单项D) 选择了带感叹号的菜单项7. Internet是全球最具影响力的计算机互联网络，它的前身是( )。A) ARPAnetB) EthernetC)NovellD) ISDN8. 计算机中普遍使用的字符编码是( )。A) 拼音码B) 补码C) ASCII码D) BCD码9. 数值型数据在计算机内部表示时，它的符号位（即正号或者负号）用( )表示。A) 01B) 0或1C)+D) -10. 计算机中防火墙软件所起的作用是( )。A) 防止火灾蔓延B) 防止计算机死机C) 防止使用者误删数据D) 防止网络攻击二、问题求解（共2题，每小题5分，共计10分）1.鸡和兔一共100只，鸡的脚比兔的脚少70只，问鸡和兔各多少只？（此题不用编程，直接将答案写在答题纸上）2.有一个数列5、55、555、5555、，把它前面的97个数相加，在得到的结果中，由最右边三位数字构成的整数是多少？（此题不用编程，直接将答案写在答题纸上）三、阅读程序写结果（共4题，每小题8分，共计32分）1. BASIC语言 Pascal语言 第 8 页 共 8 页REM Test31DEFINT A-Ba = 15b = 4a = a + bb = a - ba = a - bPRINT a; ; bENDprogram Test31;var a,b: integer;begin a:= 15; b:= 4; a:= a + b; b:= a - b; a:= a - b; writeln(a, ,b)end.本题的运行结果是：( 1 )2. BASIC语言 Pascal语言 REM Test32INPUT n&x$ = LTRIM$(STR$(n&)m = LEN(x$)IF m 8 THEN x$ = STRING$(8 - m, 0) + x$END IFPRINT x$ENDprogram Test32;var x:string; m:integer; n:longint;begin read(n); str(n, x); m:=length(x); if m8 then begin repeat insert(0,x,1); m:=m+1 until m=8 end; writeln(x)end.当程序运行时，如果输入数据13579，则本题的运行结果是：( 2 )3. BASIC语言 Pascal语言 REM Test33DEFINT A-C, I, Ta = 9b = 6c = 5DO i = i + 1 t = a * iLOOP UNTIL t MOD b = 0 AND t MOD c = 0PRINT tENDprogram Test33;var a, b, c, i, t : integer;begin i:=0; a:=9; b:=6; c:=5; repeat i:=i+1; t:=a*i; until (t mod b=0) and (t mod c=0); writeln(t)end.本题的运行结果是：( 3 )4. BASIC语言 Pascal语言 REM Test34DIM a(8)CLSFOR i = 1 TO 8 f = i MOD 2 IF f = 0 THEN a(i) = 0 ELSE a(i) = 1 FOR j = 1 TO i IF f = 0 THEN a(i) = a(i) + j ELSE a(i) = a(i) * j END IF NEXT jNEXT iFOR i = 1 TO 8 PRINT a(i);NEXT iENDprogram Test34;var i, j, f: integer; a: array1.8 of integer;begin for i:=1 to 8 do begin f:=i mod 2; if f=0 then ai:=0 else ai:=1; for j:=1 to i do if f=0 then ai:=ai+j else ai:=ai*j; end; for i:=1 to 8 do write(ai, )end.本题的运行结果是：( 4 )四、完善程序（共7空，每空4分，共计28分）1.从键盘上读入8个整数到一维数组x中，然后按照元素位置的顺序，将数组x中的全部元素首尾对调后保存到另一个数组y中，并输出y数组。例如：假设x数组中的元素依次为1,3,5,7,2,4,6,8，则完成位置首尾对调之后，y数组中的元素应该是8,6,4,2,7,5,3,1。请将下面的程序补充完整。BASIC语言 Pascal语言 REM Test41DIM x(8) AS INTEGERDIM y(8) AS INTEGERFOR i = 1 TO 8 1 NEXT iFOR i = 1 TO 8 y(i) = 2 NEXT iFOR i = 1 TO 8 PRINT y(i);NEXT iPRINTENDprogram test41;const n=8;var x,y :array1.n of integer; i: integer;begin for i:=1 to n do 1 ; for i:=1 to n do yi:= 2 ; for i:=1 to n do write(yi, ); writelnend.2.从键盘上任意输入一个0至99之间的整数（包括0和99），要求在屏幕上显示出与输入的整数相对应的汉语拼音表示。例如：如果输入两位整数42，则显示跟42相对应的汉语拼音表示“si shi er”；如果输入一位整数5，则屏幕显示与之对应的“wu”。请将下面的程序补充完整。BASIC语言 Pascal语言 REM Test42DIM py(0 TO 9) AS STRINGDIM m AS INTEGERDIM n AS INTEGERDIM s AS INTEGERDIM i AS INTEGERFOR i = 0 TO 9 READ py(i)NEXT iDO INPUT n=; nLOOP WHILE 3 IF n 10 THEN PRINT py(n)ELSE m = 4 PRINT py(m); shi ; s = n - m * 10 IF s = 0 THEN PRINTELSE 5 END IFEND IFENDDATA ling, yi, er, san, siDATA wu, liu, qi, ba, jiuprogram Test42;var py: array0.9 of string; m, n, s, i: integer;begin py0:=ling; py1:=yi; py2:=er; py3:=san; py4:=si; py5:=wu; py6:=liu; py7:=qi; py8:=ba; py9:=jiu; repeat write(n=); read(n) until 3 ; if n10 then writeln(pyn) else begin m:= 4 ; write(pym, shi ); s:=n-m*10; if s=0 then writeln else 5 endend.3. 直接插入排序是一种简单的排序方法，其基本思想是：把数组A1.n中待排序的n个元素看成是一个有序表和一个无序表。在排序开始前，有序表中只有第一个元素A1，而无序表中则包含了剩余的n-1个元素A2An。在进行直接插入排序时，每次都从无序表中取出第一个元素，把它插入到有序表中的适当位置，使之成为新的有序表，这样经过n-1次的插入之后，无序表就变成了空表，此时有序表中包含了全部的n个有序的元素，至此排序结束。下面以从小到大的升序排序为例，介绍如何在第i次（1in-1）操作中，把无序表Ai+1An中的第一个元素Ai+1插入到有序表A1Ai中的适当位置。首先将Aj+1的值保存到临时变量x中，然后从有序表的表尾开始比较，依次向前让每一个元素Aj（1ji）都与x进行比较。当x 0 AND x 0) and (xaj) do begin aj+1:=aj; j:=j-1; end; 7 ; end; for i:=1 to n do write(ai, ); writelnend.市县区（镇或街道）：_学校：_考场号：_ 座