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

2011年南海区青少年信息学奥林匹克竞赛初赛试题（小学甲组，两小时完成）◆◆请将正确答案在答卷上填写，在本试题卷上答题无效◆◆一、选择题：（选出每题正确的一个答案代码，填在括号内，每题1分，共20分）1.变量定义为：var a:integer;b:real;c:char;d:string;下面合法的选项是（）。

A、a:=bB、b:=aC、c:=dD、d:=a2.与(1110111)对应的十进制数是（）。

2A、117B、120C、119D、1183、表达式28div4mod(-3)+trunc(3.675)的值是（）。

A、5B、4C、3D、24、设有集合运算[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')<ord('A')+ord('z');B、(a>=b)and(a<b)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=4B、a=123b=5C、a=0b=4D、a=0b=58、有表达式a:=b>c，则变量a的数据类型应该是（）。

A、integerB、realC、stringD、boolean9、有如下程序var ch1,ch2,ch3:char;beginreadln(ch1);readln(ch2,ch2);readln(ch3,ch3,ch3);writeln(ch1,ch2,ch3)end.则在键盘输入下面字符后，屏幕的输出结果为（）。

greenredblueA、grbB、ndeC、geuD、greenredblue10、已知有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、56B、1200C、1275D、100012、若说明：var a:array[0..40,2..50]of integer;若此数组中每个元素要占用2B的内存地址，则共需为该数组开辟（）的内存空间。

A、4000BB、3920BC、4018BD、3936B13、下列字符串常量中，最小的是()。

A、FoShanB、NanHaiC、GuangDongD、GuangZhou14、设x是实型变量，则下面哪个不可能为x的值()。

A、’120.25’B、150.15C、32768D、2.5E+215、语句break的作用是（）。

A、退出函数或过程B、结束程序的运行C、结束当前循环D、继续循环16、“校运会”团体操在表演过程中，要求在队伍变换成10行、15行、18行、24行时，队形都能成为长方形。

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

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

for i:=1to4dofor j:=i+1to5doif a[i]>a[j]then begin temp:=a[i];a[i]:=a[j];a[j]:=temp;end;A、5B、10C、4D、818、当a=1,b=3,c=5,d=4时，执行下面一段程序后，x的值为（）。

if(a<b)then if(c<d)then x:=1else if(a<c)then if(b<d)then x:=2else x:=3else x:=6else x=7;A、1B、2C、3D、719、有一条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;beginreadln(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;begintemp:=x;x:=y;y:=temp;end;beginfor i:=1to8do a[i]:=chr(i*2+ord('A')); for i:=1to4doswap(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;beginy:=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;vara,b:array[0..n,0..n]of integer;i,j,s:integer;beginfor i:=1to n dofor j:=1to i doread(a[i,j]);b[1,1]:=a[1,1];for i:=2to n dofor j:=1to i doif b[i-1,j]>b[i-1,j-1]thenb[i,j]:=a[i,j]+b[i-1,j]elseb[i,j]:=a[i,j]+b[i-1,j-1];s:=0;for i:=1to n doif b[n,i]>=s then s:=b[n,i];writeln('s=',s);end.【输入】：912151068【输出】：。

3、program p3;Var s,i,j,n,p:integer;beginreadln(n);s:=0;for i:=1to n dobeginp:=1;for j:=1to i dop:=p*j;s:=s+p;end;writeln('s=',s);end.【输入】：4【输出】：。

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