2007年长沙市小学生计算机奥林匹克竞赛初赛试题和答案

2007年长沙市小学生计算机奥林匹克竞赛初赛试题和答案作者：陈凯兵来源：原创人气：462 评论：0 推荐等级：★★★

录入人：陈凯兵录入时间：2009-3-6 关键字：

（语言：TURBO PASCAL 时间：120分钟）

参赛证号姓名学校总分

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

1、世界上第一台电子计算机于1946年诞生于美国，它是出于（ A ）的需要。

A、军事

B、工业

C、农业

D、教学

2、下列属于计算机存储器的是（ D ）

A、资源管理器

B、CPU

C、打印机

D、硬盘

3、国标码的一个汉字在计算机中占用（B ）个字节。

A、1

B、2

C、4

D、8

4、在windows窗口操作时，能使窗口大小恢复原状的操作是（C ）

A、单击“最小化”按钮

B、单击“关闭”按钮

C、双击窗口标题栏

D、单击“最大化”按钮

5、下列有关电脑病毒的描述中，错误的是（D ）

A、电脑病毒实质是人设计的计算机程序

B、上网下载信息可能会感染电脑病毒

C、电脑病毒发作时会影响电脑的正常工作

D、电脑病毒是宇宙射线对电脑辐射产生的结果

6、下列internet的各功能中，错误的是（A ）

A、程序编译

B、邮件传送

C、远程教学

D、信息查询

7、我们将pascal程序存盘时，不可能保存到计算机的（A ）中。

A、内存

B、硬盘

C、软盘

D、光盘

8、(2004)10+(11)2的结果是（ D ）。

A、(2727)8

B、(FA7)16

C、(2015)10

D、(11111010111)2

9、在Pascal语言环境下，用快捷键组合ALT+F5可以（ C ）

A、放大窗口

B、编译执行

C、查看输出

D、保存程序

10、字符类型的标准定义符是（C ）

A、string

B、chr

C、char

D、str

11、下列变量名当中不正确的是（D ）

A、boy

B、student

C、w123

D、6A

12、在var下，用A:array[10..15] of real定义的A数组包含（ C ）个元素。

A、10

B、15

C、6

D、5

13、表达式round(7.8)*5 div 3 –ord(odd(trunk(25.6)))的值是（ B ）

A、13

B、12

C、11

D、10

14、判断a和b都不等于0的条件表达式正确的是（ A ）

A、not((a=0) or (b=0))

B、a<>0 and b<>0

C、not((a=0) and (b=0))

D、(a<>0) or (b<>0)

15、产生一个随机整数赋给R，要求100≤R≤200，正确的语句是（B ）

A、R:=random(200)+100

B、R:=random(101)+100

C、R:=random(99)+100

D、R:=random(100)+100

16、在字符串’ababcdefacbefdabccbad’中出现最多的字母出现了（C ）次。

A、2

B、4

C、5

D、6

17、把编号为1到13的纸牌唱针摆成一圈，然后从1号纸牌开始顺时针数

1,2,3,……，一圈又一圈，当数到某个数n时，对应的纸牌编号为（B ）

A、n mod 13

B、(n-1) mod 13+1

C、n mod 13+1

D、(n+1) mod 13

18、整数A的值为12345，则A div 10 mod 1000的结果是（ D ）

A、5

B、345

C、34

D、234

19、若s=’#ABCDABCD#’，则pos(‘AB’,insert(‘AC’,copy(s,4,6),3))的值是（ A ）

A、5

B、3

C、2

D、6

20、数据3.14、’A’、’abc’、0、maxint当中有（ B ）个不能作为for循环的初、终值。

A、1

B、2

C、3

D、4

二、问题解答（每小题5分，共10分）

1、把4封信投入到3个邮筒中，共有多少种不同的投法？

答：共有81 种不同的投法。

2、猪八戒有一大堆西瓜，每天吃掉一半，还多吃两个，8天就全部吃完。问：当初猪八戒共有多少个西瓜？

答：当初猪八戒共有1020 个西瓜。

三、阅读程序，写出程序的结果（每小题5分，共20分）

①、var a,b,c,d,e:integer;

begin

a:=79;b:=46;c:=57;d:=10;e:=1;

if (a>c) and (b>c) then

d:=d+e

else if d+10

d:=e+10

else d:=e+a;

writeln(‘d=’,d);

end.

输出：___d=80___________

②、var i,k:integer;

begin

k:=1; i:=1;

while i<2008 do begin

k:=-k; i:=i+1;

end;

writeln(k*i);

end.

输出：____-2008__________

③、var i,j,t:integer;

a:array[0..10] of integer;

begin

for i:=1 to 10 do begin

read(a[i]);a[i]:=a[i]-a[i-1];

end;

for i:=1 to 9 do

for j:=i+1 to 10 do

if a[i]>a[j] then begin

t:=a[i]; a[i]:=a[j]; a[j]:=t

end;

for i:=1 to 10 do write(a[i]:3);

writeln;

end.

输入：8 9 10 3 2 4 6 7 5 1

输出：__-7 -6 -4 -3 1 8 8 8 9 10__

④var i:integer;

s:string;

begin

s:=’you-are-boys-and-girls’;

for i:=5 to 12 do

if s[i]=’-’ then s[i-1]:=’e’;

for i:=10 downto 1 do

if s[i] =’y’ then begin

s[i]:=’Y’;

s:=copy(s,1,8)+’teachers’;

end;

writeln(s);

end.

输出：__You-are-teachers_____

四、完善程序

1、孪生质数：

如果两个质数的差值为2，则称之为“孪生质数”。例如：3和5、5和7、11和13等等。请找出15对孪生质数，每行输出一对，两个质数之间空一格。

【程序清单】

program ex1;

var k,n:integer;

function pan(a:integer):boolean;

var k:integer;

begin

pan:= false ;

for k:=3 to trunk(sqrt(a)) do

if a mod k=0 then exit;

pan:=true;

end;

begin

n:=0; k:=3;

repeat

if pan(k) and pan(k+2) then begin

n:= n+1 ;

writeln( k,’ ‘, k+2 );

end;

k:=k+2;

until n=15;

end.

2、字串接龙：

输入整数n和m（1≤n，m≤10）,再输入n个字符串（每个串长度≤20），规定：如果串X的后m位与串Y的前m位相同，就可将串Y接在串X的后面，并使连接处相同的部分重叠。对于每个串X，能接在它后面的串Y只有一个。现请你将n个串连接成一串。

例如：输入：n,m=3 2 输出：xyzabcdef

abcd

xyzab

cdef

【程序清单】

program ex2;

var a:array[1..10] of string[20];

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

m,n,i,j:integer;

ans,s1,s2:string;

begin

write(‘n,m=’);readln(n,m);

for i:= 2 to n do

if b[i]=0 then begin

s1:=copy(a[i],1,m);

s2:=copy(ans,length(ans)-m+1,m);

if s1=s2 then begin

j:=j+1; delete(a[i],1,m);

b[i]:=1; ans:=ans+a[i];

end;

s1:= copy(a[i], length(a[i])-m+1,m) ;

s2:=copy(ans,1,m);

if s1=s2 then begin

j:=j+1; delete(ans,1,m);

b[i]:=1; ans:= a[i]+ans ;

end;

end;

until j=n ;

writeln(ans);

end.