2008年长沙市小学生计算机奥林匹克竞赛初赛试题

  • 格式:doc
  • 大小:50.50 KB
  • 文档页数:6

2008年长沙市小学生计算机奥林匹克竞赛初赛试题(语言:Turbo Pascal 时间:90分钟)参赛证号姓名学校总分一、单项选择题(每小题 2 分,共40分)1、被称为“现代计算机之父”的是()A、图灵B、冯.诺依曼C、比尔.盖茨D、巴贝奇2、计算机在工作时突然停电,则()中的信息全部丢失,来电之后也不能恢复。

A、ROM和RAMB、ROMC、RAMD、硬盘3、扫描仪、绘图仪、触摸屏、音箱当中有()中具有输出功能。

A、1B、2C、3D、44、计算机能为我们做很多工作,下列缩写CAD、CAM、CAI分别对应的是()A、计算机辅助设计/辅助制造/辅助教学B、计算机辅助制造/辅助设计/辅助教学C、计算机辅助教学/辅助设计/辅助制造D、计算机辅助设计/辅助教学/辅助制造5、二进制数00100100与00010100的和是()A、00101000B、00111100C、00110100D、001110006、程序设计的三种基本结构是()A、主程序、函数、过程B、顺序、选择、循环C、程序首部、说明总分、执行部分D、for、while、repeat7、在Windows中,“回收站”是()的一块区域。

A、硬盘B、内存C、软盘D、光盘8、在Turbo Pascal语言环境下,快捷组合键Ctrl+F的功能是()A、下拉File子菜单B、保存程序C、关闭窗口D、新开窗口9、互联网上最常用的浏览器称为()A、wordB、QQC、IE D、TCP/IP10、某计算机的硬盘有100G,等于()字节。

A、100B、100×1000C、100×1024×1024D、100×1024×1024×102411、下列数据类型中不是构造类型的是()A、集合类型B、数组类型C、文件类型D、枚举类型12、Integer类型的数据范围是()A、-32767~32767B、0~32767C、-32768~32767D、0~6553513、下列表达式的值为FALSE的是()A、Odd(True(7.49))B、Round((Abs(-9.5)))<10C、Not(‘9’<’100’)D、Ord(Chr(Pred(8)))>=714、R:=Random(100)+1产生一个随机数R,R的取值范围是()A、0<=R<=100B、0<R<=100C、1<=R<100D、1<=R<=10115、判断变量ch的值是否为小写字母,下列表达式正确的是()A、not(ch<’a’)or(ch>’z’B、’a’<=ch<=’z’C、(ch>=a)and(ch<=z)D、ch>=’a’ and ch<=’z’16、设n是实型变量,下列表达式能使n四舍五入保留两位小的是()A、Round(n*100)/100B、Round(n/100)*100C、Trunc(n*100)/100D、Trunc(n/100)*10017、设a、b、c都是整型变量,由键盘输入如下三行数据1 2 3 回车4 5 6 回车7 8 9 回车下列语句组中不能使a=1、b=7的是()A、Readln(a,b,b,b,b,b,b,c,c);B、Readln(a);Readln;Readln(b);C、Readln(a,c,c,c);Read(b);D、Readln(a,c,c);Readln(b,c,c);18、设有变量说明VAR I,j:integer;x,y:Real;a,b:Boolean;c:Char;下列赋值语句中正确的是()A、i:=i+x;B、b:=Ord(c>’c’);C、a:=i=j;D、i:=x mod y;19、表达式Chr(Ord(‘A’)+4))的值是()A、’D’B、‘E’C、69D、10120、设a[1]=1,a[2]=2,a[3]=3,a[4]=4,a[5]=5,a[6]=6,且i=1,j=2,k=3,m=4下列变量的值等于3的是()A、a[i*j]B、a[a[k-i]+3]C、a[m div j]D、a[a[j+k-2]]二、问题解答(每小题5分,共10分)1、马路上有编号为1~9的9盏路灯,为了节约用电,现要关掉其中的三盏灯,但两端的灯不能关,也不能同时关掉相邻的灯。

问:符合要求的关灯方法共有多少种?答:共有种。

2、A、B、C三人中一位是工人,一位是教师,一位是律师。

已知:C仅比律师年龄大,A和教师不同岁,B比教师年龄小。

问:A、B、C分别是什么身分?答:是工人,是教师,是律师。

三、阅读程序,写出程序的结果(每小题5分,共20分)(1)var I,j:integer;beginfor I:=1 to 5 do beginfor j:=2 to I doif I mod 2=0 thenwrite(‘A’)else write(‘B’);writeln;end;end.输出:(2)var I,j,n:integer;b:array[1..10] of 0..2;beginn:=2008;j:=0;while n>0 do beginj:=j+1;b[j]:=n mod 3; n:=n div 3;end;for i:=j downto 1 do write(b[i]);writeln;end. 输出:(3)var s:string;I,len:integer;BeginS:=’olympic games 2008’;S:=’ ’+s;len:=length(s);For i:=1 to len do beginCh:=s[len];If (ch>=’0’) and(ch<=’9’) then beginDelete(s,len,1);insert(ch,s1);End;If (s[i]=’ ’) and (i<>len) then s[i]:=’-’;End;Writeln(s);End.输出:(4) var a,b,x:integer;Procedure ms(a,b:integer;var c:integer);Begina:=3*a;b:=4*b;c:=a-b+c;end;begina:=1;b:=2;x:=3;ms(a,b,x);writeln(a,b:5,x:5);end.输出:四、完善程序(每空3分,共30分)1、最佳评分值:输入10个评委对某项目的评分值(正整数),计算出他们评分的平均值,然后找出最佳评分值,即:最接近平均值的那些数(这些数可能大于、也可能小于平均值)。

Var I,n:integer;b,s:real;a: ;beginfor i:=1 to 10 do read(a[i]);s:= ;for i:=2 to 10 do s:=s+a[i];s:=s/10;n:=1;for i:=2 to 10 doif < then n:=I;b:abs(a[n]-s);for I;=1 to 10 doif then write(a[i]:3);writeln;end.2、高精度阶乘:正整数A的阶乘,数学中定义为:A!=1×2×3×……×A,如:3!=1×2×3.现在输入一个正整数n(n<=50),要求计算出1~n的每一个整数的阶乘的高精度结果(即:结果为全部有效数字)。

下面的程序中采用加法代替乘法的方法计算阶乘,如:3!=2!×3=2!×2!×2!。

输出格式:每行打印一个数的阶乘如:输入:n=3输出:1!=12!=23!=6Const max=80;Var I,j,k,n,r:integer;a,b:array[1..max] of integer;BeginWrite(‘n=’);readln(n);a[1]:=1;writeln(‘1!=’,1);For j:=1 to do beginb:=a;for k:=1 to dofor i:=1 to max do beginr:= ;if r>=10 then :=a[i+1]+1;a[i]:=r mod 10;end;k:=max;while do k:=k-1;write(j+1,’!=’);for i:=k downto 1 do write(a[i]);writeln;end;end.2008年长沙市小学生信息学奥赛初赛答案一、单选题BCCAD BAACD DCBBA ADCBD二、填空题1、10简析:关掉一只灯的方法有7种,关第二只、第三只灯时要分类讨论,情况较为复杂,换一个角度,从反面入手考虑。

因每一种关灯的方法唯一对应着一种满足题设条件的亮灯与暗灯的排列,于是问题转化为在6只亮灯中插入3只暗灯,且任何两只暗灯不相邻、且暗灯不在两端,即从6只亮灯所形成的5个间隙中选3个插入3只暗灯,其方法有=10种。

故满足条件的关灯的方法共有10种。

2、A,C,B三、读程序写结果(1)ABBAAABBBB(2)2202101(3)2008-olympic-games(4)1 2 -2四、程序填空1、(1)array[1..10] of integer(2)a[1](3)abs(a[i]-s)(4)abs(a[n]-s)(5)abs(a[i]-s)=B2、(1)n-1 (2)j(3)a[i]+b[i] (4)a[i+1] (5)a[k]=0。