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

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

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

参赛证号姓名学校总分

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

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

A、军事

B、工业

C、农业

D、教学

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

A、资源管理器

B、CPU

C、打印机

D、硬盘

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

A、1

B、2

C、4

D、8

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

A、单击“最小化”按钮

B、单击“关闭”按钮

C、双击窗口标题栏

D、单击“最大化”按钮

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

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

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

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

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

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

A、程序编译

B、邮件传送

C、远程教学

D、信息查询

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

A、内存

B、硬盘

C、软盘

D、光盘

8、(2004)

10+(11)

2

的结果是（）。

A、(2727)

8 B、(FA7)

16

C、

(2015)

10 D、(11111010111)

2

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

A、放大窗口

B、编译执行

C、查看输出

D、保存程序

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

A、string

B、chr

C、char

D、str

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

A、boy

B、student

C、w123

D、6A

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

A、10

B、15

C、6

D、5

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

A、13

B、12

C、11

D、10

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

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，正确的语句是（）

A、R:=random(200)+100

B、R:=random(101)+100

C、R:=random(99)+100

D、R:=random(100)+100

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

A、2

B、4

C、5

D、6

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

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

、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的结果是（）

A、5

B、345

C、34

D、234

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

值是（）

A、5

B、3

C、2

D、6

20、数据3.14、’A’、’abc’、0、maxint当中有（）个不能作为for

循环的初、终值。

A、1

B、2

C、3

D、4

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

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

答：共有种不同的投法。

2、猪八戒有一大堆西瓜，每天吃掉一半，还多吃两个，8天就全部吃完。

问：当初猪八戒共有多少个西瓜？

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

三、阅读程序，写出程序的结果（每小题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.

输出：______________

②、var i,k:integer;

begin

k:=1; i:=1;

while i<2008 do begin

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

end;

writeln(k*i);

end.

输出：______________

③、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

输出：______________

④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.

输出：______________

四、完善程序

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

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

if then exit;

pan:=true;

end;

begin

n:=0; k:=3;

repeat

if pan(k) and then begin

n:= ;

writeln( );

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:= to n do

if b[i]=0 then begin

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

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

if then begin

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

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

end;

s1:= ;

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

if s1=s2 then begin

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

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

end;

end;

until ;

writeln(ans);

end.

2006年长沙市小学生计算机奥林匹克竞赛初赛试题- 2007年6月27日

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

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

参赛证号姓名学校总分

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

1、下列不属于计算机硬件的是（）

A、扫描仪

B、操作系统

C、CPU

D、软盘

2、在Windows资源管理器窗口中，如果文件夹没有展开，文件夹图标前会有（）

A、＋

B、/

C、*

D、-

3、游戏软件属于计算机的（）

A、系统软件

B、应用软件

C、高级软

件 D、低级软件

4、连接在Internet的任何一台计算机，都有自己的（）

A、网页

B、域名

C、IP地址

D、Email地址

5、在计算机存储容量的表示中，6MB相当于（）

A、6000KB

B、6144B

C、6144KB

D、6000B

6、一个INTEGER类型的整数在内存中占（）个字节。

A、1

B、4

C、2

D、6

7、在Pascal语言环境下，快捷键组合CTRL+F9的功能是（）

A、保存程序

B、编译执行

C、关闭窗口

D、查看结果

8、下列数据作为程序中的常量，错误的是（）

A、3.1415926

B、MAXINT

C、’JSJJS’

D、1/2

9、每一个Pascal程序中必须包含（）

A、变量说明，语句

B、语句

C、类型定义、变量说明、语句

D、常量说明，变量说明，语句

10、十进制数与二进制数混合的等式：100＋10＝1110，其中三个数依次是

（）

A、二进制、十进制、二进制

B、十进制、二进制、十进制

C、二进制、十进制、十进制

D、十进制、二进制、二进制

11、下列表达式中，错误的是（）。

A、-9 div (-10)

B、

ABS(a-2)/5

C、’天才’=’99%的汗水’+’1%的灵感’

D、a+b>c and b+c>a

12、表达式round(5.8) div 3*5 mod 3-ord(trunc(5.8)<6)的值是

（）

A、0

B、1

C、-1

D、2

13、执行X:=random(100)*random(10)-500，X取值的范围是（）

A、-500<=X<=1000

B、-500<=X<=500

C、-500<=X<=391

D、-499<=X<=391

14、X为实数，执行X:=-1；writeln(X)之后，屏幕显示（）

A、-1

B、

1.0000000000E-1

C、-1.0000000000E+00

D、-1.000000000

15、下列能够把整数6转换为字符’6’的表达式是（）

A、CHR(6-ORD(0))

B、CHR(6+ORD(0))

C、CHR(6)-ORD(’0’)

D、CHR(6+ORD(’0’))

16、S=’###ABABCDAB###’，X=POS(‘A’,COPY(S,5,9))，则X的值是

（）

A、3

B、2

C、4

D、6

17、在Var下说明数组变量，下列说明正确的是（）

A、a:Array[100..1] of real;

B、

a:Array[1.5..10.5] of real;

C、a:Array[’B’..’a’] of real;

D、

a:Array[1..SQR(5)] of real;

18、x初值为-1，下列语句描述：若ch是大写字母，则x置1，否则x清0.有错的是（）

A、case ch of

B、

if ch>’A’ then

’A’..’Z’:x:=1; if ch<’Z ’ then

end; x:=1

else x:=0;

C、x:=ord((ch>=’A’) and (ch<=’Z’));

D、if (ch>=’A’) and (ch<=’Z’)

Then x:=1 else x:=0; 19、执行下列程序段，循环次数是（）；

x:=3;y:=5;

FOR i:=x TO y DO BEGIN

x:=1;y:=6;

END;

A、3次

B、7次

C、5

次 D、6次

20、X=3.14E4，执行语句STR(X:0:2,S)之后，S的值是（）

A、’3.14’

B、’0’

C、’3140.00’

D、’31400.00’

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

1、星光学校来了一位新老师，三个同学猜测新老师教什么科目，步美说：“不是教语文，也不是教数学”；元太说：“不是教数学，一定是教英语”；光彦说：“不是教英语，一定是教数学”。柯南去证实后说：“你们三人中有一人全猜对了，一人全猜错了，还有一人只猜对了一半。”问：新老师究竟教什么科目？

答：新老师所教的科目是。

2、有个楼梯共10级，上楼时每步可以跨1级、2级或者3级。问：共有多少种上楼梯的方法？

答：一共有种上楼梯的方法。

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

①、var a,b,c:integer;

function js(a,b:integer;ch:char):integer;

begin

if ch=’-’ then js:=a-b else js:=a*b

end;

begin

a:=210;b:=3;c:=15;

writeln(js(a,js(b,c,’*’),’-‘));

end.

结果：______ _____

②、var p:array[’A’..’Z’] of integer;

s:string;

ch:char;

i,j:integer;

begin

s:=’YAZABCABYXXZZ#’;

i:=1;

while s[i]<>’# do begin

p[s[i]]:= p[s[i]]+1;i:=i+1

end;

s:=’’;

for ch:=’Z’ downto ’A’ do

for j:=1 to p[ch] do s:=s+ch;

writeln(s);

结果：__ __

③、var n,s,t,k,I:integer;

begin

n:=99;s:=0;t:=0;k:=1;

for i:=1 to n do begin

t:=t+k*i;

s:=s+t;

k:=-k;

end;

writlen(’s=’,s);

end.

结果：___ ___________

④var a:array[1..10,1..10] of integer;

n,c,x,y,t:integer;

begin

n:=5;t:=0;

for c:=-(n-1) to n-1 do begin

if c<=0 then begin x:=1;y:=x-c end

else begin y:=1;x:=y+c end;

while (x<=n) and (y<=n) do begin

t:=t+1;a[x,y]:=t;

x:=x+1;y:=y+1

end;

end;

for x:=1 to n do begin

for y:=1 to n do write(a[x,y]:3);

writeln;

end;

end.

结果：______________

四、完善程序

1、五角星数：

如果一个五位数等于它的每一位数字的5次方之和，则称之为“五角星数”。如：54748＝55＋45＋75＋45＋85，所以54748是一个五角星数。请找出所有的五角星数并计算它们的总和。

（一个数的5次方＝该数自乘5次。如：75＝7*7*7*7*7

【程序清单】

var v:integer;

i,j,t,w,s:longint;

begin

for i:=10000 to 99999 do begin

t:=0;j:=I;

for v:=1 to 5 do begin

w:= ;j:= ;

t:= ;

end;

if then begin

s:= ;writeln(i)

end;

end;

writeln(’Sum=’,s)

end.

2、猜数游戏

电脑随机产生4个不同的数字（不显示），让你们猜：你由键盘输入4个数字后，电脑就显示两个整数S1和S2，其中S1表示几个数字的位置被猜对，S2表示你猜对了几个数字。

例如：电脑依次产生：0168，如果你输入：2068，则S1=2，S2＝3.

电脑让你反复的猜，直到你完全猜对这一组数字为止。最后输出你猜的总次数。

【程序清单】

var ok:array[0..9] of boolean;

a:array[1..4] of integer;

b,i,t,s1,s2:integer;

begin

randomize;

for i:=1 to 4 do begin

repeat

a[i]:=random(10);

until ;

ok[a[i]]:= ;

end;

repeat

writeln(’Please Guess:’);

t:=t+1;s1:=0;s2:=0;

for i:=1 to 4 do begin

read(b);

if then s1:=s1+1;

if then s2:=s2+1;

end;readln;

writeln(s1,s2:10);

until ;

writeln(’Good! Total=’,t);

end.