Question

2008年小学生程序设计友谊赛解题报告

2008年长沙市小学生计算机奥林匹克竞赛初赛试题及参考答案
急！急！急！

Answer 1

2008年长沙市小学生计算机奥林匹克竞赛初赛试题
作者：陈凯兵 来源：原创 人气：968 评论：0 推荐等级：★★★★★
录入人：陈 凯兵 录入时间：2008-4-30 关键字：
2008年长沙市小学生计算机奥林匹克竞赛初赛试题

（语言：Turbo Pascal 时间：90分钟）

参赛证号 姓名 学校 总分

一、单项选择题（每小题 2 分，共40分）

1、被称为“现代计算机之父”的是（ ）

A、图灵 B、冯.诺依曼 C、比尔.盖茨 D、巴贝奇

2、计算机在工作时突然停电，则（ ）中的信息全部丢失，来电之后也不能恢复。

A、ROM和RAM B、ROM C、RAM D、硬盘

3、扫描仪、绘图仪、触摸屏、音箱当中有（ ）中具有输出功能。

A、1 B、2 C、3 D、4

4、计算机能为我们做很多工作，下列缩写CAD、CAM、CAI分别对应的是（ ）

A、计算机辅助设计/辅助制造/辅助教学 B、计算机辅助制造/辅助设计/辅助教学

C、计算机辅助教学/辅助设计/辅助制造 D、计算机辅助设计/辅助教学/辅助制造

5、二进制数00100100与00010100的和是（ ）

A、00101000 B、00111100 C、00110100 D、00111000

6、程序设计的三种基本结构是（ ）

A、主程序、函数、过程 B、顺序、选择、循环

C、程序首部、说明总分、执行部分 D、for、while、repeat

7、在Windows中，“回收站”是（ ）的一块区域。

A、硬盘 B、内存 C、软盘 D、光盘

8、在Turbo Pascal语言环境下，快捷组合键Ctrl+F的功能是（ ）

A、下拉File子菜单 B、保存程序 C、关闭窗口 D、新开窗口

9、互联网上最常用的浏览器称为（ ）

A、word B、QQ C、IE　　D、TCP/IP

10、某计算机的硬盘有100G,等于（ ）字节。

A、100 B、100×1000 C、100×1024×1024 D、100×1024×1024×1024

11、下列数据类型中不是构造类型的是（ ）

A、集合类型 B、数组类型 C、文件类型 D、枚举类型

12、Integer类型的数据范围是（ ）

A、-32767～32767 B、0～32767 C、-32768～32767 D、0～65535

13、下列表达式的值为FALSE的是（ ）

A、Odd(True(7.49)) B、Round((Abs(-9.5)))<10

C、Not(‘9’<’100’) D、Ord(Chr(Pred(8)))>=7

14、R：＝Random(100)+1产生一个随机数R，R的取值范围是（ ）

A、0<=R<=100 B、0<R<=100 C、1<=R<100 D、1<=R<=101

15、判断变量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)/100 B、Round(n/100)*100

C、Trunc(n*100)/100 D、Trunc(n/100)*100

17、设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、69 D、101

20、设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;

begin

for I:=1 to 5 do begin

for j:=2 to I do

if I mod 2=0 then

write(‘A’)

else write(‘B’);

writeln;

end;

end.

输出：

（2） var I,j,n:integer;

b:array[1..10] of 0..2;

begin

n:=2008;j:=0;

while n>0 do begin

j:=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;

Begin

S:=’olympic games 2008’;

S:=’ ’+s;len:=length(s);

For i:=1 to len do begin

Ch:=s[len];

If (ch>=’0’) and(ch<=’9’) then begin

Delete(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);

Begin

a:=3*a;b:=4*b;c:=a-b+c;

end;

begin

a:=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: ;

begin

for 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 do

if < then n:=I;

b:abs(a[n]-s);

for I;=1 to 10 do

if 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!=1

2!=2

3!=6

Const max=80;

Var I,j,k,n,r:integer;

a,b:array[1..max] of integer;

Begin

Write(‘n=’);readln(n);

a[1]:=1;writeln(‘1!=’,1);

For j:=1 to do begin

b:=a;

for k:=1 to do

for i:=1 to max do begin

r:= ;

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.

答案：
一、单选题

BCCAD BAACD DCBBA ADCBD

二、填空题

1、10

2、A，C，B

三、读程序写结果

（1）

A
BB
AAA
BBBB

（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)=B

2、

（1）n-1

（2）j

（3）a[i]+b[i]

（4）a[i+1]

（5）a[k]=0