2011年南海区青少年信息学奥林匹克竞赛初赛试题(小学甲组)

2011年南海区青少年信息学奥林匹克竞赛初赛试题

（小学甲组，两小时完成）

◆◆请将正确答案在答卷上填写，在本试题卷上答题无效◆◆

一、选择题：（选出每题正确的一个答案代码，填在括号内，每题1分，共20分）

1.变量定义为：var a:integer;b:real;c:char;d:string;下面合法的选项是（）。

A、a:=b

B、b:=a

C、c:=d

D、d:=a

2.与(1110111)

对应的十进制数是（）。

2

A、117

B、120

C、119

D、118

3、表达式28div4mod(-3)+trunc(3.675)的值是（）。

A、5

B、4

C、3

D、2

4、设有集合运算[1,5,6,7]+[2,6,7,8,4]，则正确的结果是（）。

A、[1,2,4,5,8]

B、[6,7]

C、[1,2,4..8]

D、[1,5]

5、下列表达式运算结果为真的是（）。

A、ord('a')+ord('Z')

B、(a>=b)and(a

C、(3>5)or(7>4)and(10>=5)

D、copy('ABCE',2,3)<'BCE'

6、要随机产生一系列5～20（含5和20）范围内的整数，可用的表达式是（）。

A、trunc(5+15*random)

B、16+trunc(5*random)

C、5+trunc(15*random)

D、5+trunc(16*random)

7、变量定义：a,b:integer，执行过程val(‘123d5’,a,b)后，a,b的值分别是多少（）。

A、a=123b=4

B、a=123b=5

C、a=0b=4

D、a=0b=5

8、有表达式a:=b>c，则变量a的数据类型应该是（）。

A、integer

B、real

C、string

D、boolean

9、有如下程序

var ch1,ch2,ch3:char;

begin

readln(ch1);

readln(ch2,ch2);

readln(ch3,ch3,ch3);

writeln(ch1,ch2,ch3)

end.

则在键盘输入下面字符后，屏幕的输出结果为（）。

green

red

blue

A、grb

B、nde

C、geu

D、greenredblue

10、已知有const a=10;b=20;则下面语句错误的是（）

A、write('a+b=',a+b)

B、write(a,'+',b,'=',a+b)

C、write(a+b,'',a-b)

D、write(a+b:0:5,a-b:0:5)

11、右图中是一个堆放铅笔的V形架，如果最上面一层放了50支铅笔，

则一共有（）支铅笔。

A、56

B、1200

C、1275

D、1000

12、若说明：var a:array[0..40,2..50]of integer;若此数组中每个元素要占用2B的内存地址，则共需为该数组开辟（）的内存空间。

A、4000B

B、3920B

C、4018B

D、3936B

13、下列字符串常量中，最小的是()。

A、FoShan

B、NanHai

C、GuangDong

D、GuangZhou

14、设x是实型变量，则下面哪个不可能为x的值()。

A、’120.25’

B、150.15

C、32768

D、2.5E+2

15、语句break的作用是（）。

A、退出函数或过程

B、结束程序的运行

C、结束当前循环

D、继续循环

16、“校运会”团体操在表演过程中，要求在队伍变换成10行、15行、18行、24行时，队形都能成为长方

形。这样，参加团体操表演的最少需要有（）人。

A、180

B、240

C、360

D、540

17、已知数组a[1..5]的值依次是（12，8，5，20，8），则对a用下面的方法进行从小到大排序时数组里的数字进行了（）次交换操作。

for i:=1to4do

for j:=i+1to5do

if a[i]>a[j]then begin temp:=a[i];a[i]:=a[j];a[j]:=temp;end;

A、5

B、10

C、4

D、8

18、当a=1,b=3,c=5,d=4时，执行下面一段程序后，x的值为（）。

if(a

else if(a

else x:=3else x:=6else x=7;

A、1

B、2

C、3

D、7

19、有一条for语句如下：for i:=1to n do b[i]:=a[n-i+1];请问这条语句的功能是：（）。

A、将B数组各元素的值按顺序存放在A数组中；

B、将B数组各元素的值按逆序存放在A数组中；

C、将A数组各元素的值按顺序存放在B数组中；

D、将A数组各元素的值按逆序存放在B数组中；

20、设a:='nanhaioier';b:='gdfsoi'，c为空串，不能使得字符串变量c的值为'gdoier'的一组语句是()

A、c:=copy(b,1,2)+copy(a,7,4);

B、delete(b,3,2);c:=b+copy(a,7,4)

C、delete(a,1,6);delete(b,3,4);c:=b+a;

D、delete(a,1,8);delete(b,3,2);c:=b+a;

二、基础填空题：（将正确的答案填在横线上，第1～2题每题4分，第3～4题每题5分，共18分）

1、已知A,B,C,D,E,F,G七个人中，A会讲英语；B会讲英语和汉语；C会讲英语、意大利语和俄语；D会讲意大利语和德语；E会讲汉语和日语；F会讲俄语、日语和法语；G会讲德语和法语。请将他们的座位安排在圆桌旁，使得每个人都能与他身边的人交谈。请以“A B”开头写出你的安排方案。

2、用1、2、3这3个数字中的1个或多个组成一个三位数，要求不出现两个2相邻，也不出现两个3相邻，这样的三位数的个数为___________。

3、已知公式：

2（x=0）

fun（x）=1（x=1）

fun（x-1）+x*fun（x-2）（x>1）

则fun(4)的值是_______________。

4、下列的算式是按一定规律排列的，那么第100个算式的得数是_________。

4+3，5+6，6+9，7+12，……

三、写运行结果:（每小题6分，共30分）

1、program p1;

var m,n:integer;

st1,st2:string;

begin

readln(m,n);

str(m,st1);

str(n,st2);

st1:=st2+St1+copy(st2,2,1); val(copy(st1,2,4),m);

write(m);

end.

【输入】8228

【输出】。4、program p4;

var a:array[1..8]of char;

i:integer;

procedure swap(var x,y:char);

var temp:char;

begin

temp:=x;

x:=y;

y:=temp;

end;

begin

for i:=1to8do a[i]:=chr(i*2+ord('A')); for i:=1to4do

swap(a[i],a[9-i]);

for i:=1to8do write(a[i]);

end.

【输出】：。

2、program p2;

var i,a,b,c,x,y:integer;

p:array[0..4]of integer;

begin

y:=10;

for i:=0to4do read(p[i]);

a:=(p[0]+p[1])+(p[2]+p[3]+p[4])div7;

b:=p[0]+p[1]div p[4];

x:=p[0]*p[1]div p[2];

y:=y+a+b-p[(p[3]+3)mod4];

writeln(x,',',y);

end.

【输入】65536

【输出】。5、program p5;

const n=3;

var

a,b:array[0..n,0..n]of integer;

i,j,s:integer;

begin

for i:=1to n do

for j:=1to i do

read(a[i,j]);

b[1,1]:=a[1,1];

for i:=2to n do

for j:=1to i do

if b[i-1,j]>b[i-1,j-1]then

b[i,j]:=a[i,j]+b[i-1,j]

else

b[i,j]:=a[i,j]+b[i-1,j-1];

s:=0;

for i:=1to n do

if b[n,i]>=s then s:=b[n,i];

writeln('s=',s);

end.

【输入】：912151068

【输出】：。

3、program p3;

Var s,i,j,n,p:integer;

begin

readln(n);

s:=0;

for i:=1to n do

begin

p:=1;

for j:=1to i do

p:=p*j;

s:=s+p;

end;

writeln('s=',s);

end.

【输入】：4

【输出】：。

四、完善程序（每空2分，共32分）