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

2007年南海区青少年信息学奥林匹克竞赛初赛试题（小学乙组，两小时完成）

◆

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

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

当(A>=B)and(B>=C)的取值为true时，则表达式A<C的值是（）。A、trueB、falseC、1D、02.

如果要用变量TiZhong来存放体重数据，则该变量应说明为下面哪一种类型？（）A、integerB、booleanC、charD、real3.

与(10010100)2对应的无符号十进制数是（）。A、128B、148C、186D、2364.

表达式4+3MOD8*3的运算结果为（）。A、13B、16C、19D、215.

已知堆栈中连续存放有5个数，即依次将1,3,5,7,9放入一个堆栈中，然后将这些数出栈，它的出栈顺序是（）。A、35791B、13579C、97531D、193756.

表达式length(‘BCDBCD’)-abs(-2)的值是（）。A、10BCDBCDB、-10BCDBCDC、16D、47.

对于以下的程序段，变量max的值在循环体中被改变的次数是（）。max:=0;fort1:=1to6dobeginifw>maxthenmax:=w;readln(w)end;（输入的数是：254530805079）A、6B、5C、3D、28.

要随机产生一系列5～20范围内的整数，可用的表达式是（）。A、trunc(5+15*random)B、16+trunc(5*random)C、5+trunc(15*random)D、5+trunc(16*random)9.

执行过程val(‘12.53’A、12.53B、1C、0D、510.

下列关于队列的叙述，错误的是（）。A、可以用数组实现队列操作B、可以通过读数语句，将堆栈存放到队列中C、队列操作的特点是“先进先出，后进后出”D、队列的元素可以是任何类型11.

把一个大于1的自然数N分成两个不为0的自然数之和(3+5与5+3看作是同一种分法)，一共有多少种分法？用Pascal语言表达为（）。A、Ndiv2B、2*N-1C、2*(n+1)-1D、2*N+112.

下列关于数组的叙述，正确的是（）。A、下标是数组元素B、数组中的下标不能是表达式C、一个N×N的二维数组A,其元素个数与2个有N个元素的一维数组B相同D、数组元素存放的都是同一种类型的数据13.

将一组数1,3,5,7,9依次存放入数组P的1,2,3,4,5号元素中，则P[p[2]+1]的值是（）。A、3B、5C、7D、914.

十进制数127转换成二进制数是（）。A、11111111B、01111111C、10000000D、1111111015.

英文字母A的ASCII码为65,英文大写字母D的ASCII码为（）。A、50B、66C、52D、6816.

当要将实型变量b中的数四舍五入取整数，并赋值给一个整型变量a时，下列哪个语句是正确的（）。A、a:=trunc(b)B、a:=int(b)C、a:=b-trunc(b)D、a:=round(b)17.

在字符串‘ababacbabcbdecced’中出现次数最多的字母出现了（）次。A、6B、5C、4D、318.

当程序执行语句“readln(A,B,C)”时，至少要从键盘输入数据的个数是（）。A、2个B、3个C、5个D、不用输入。19.

下列逻辑表达式中其值为false的是（）。A、‘a’<‘R’B、‘THERE’>‘THE’C、‘1’<=‘H’20.

已知每个integer类型的数需要用2个字节的空间存放，则以下说明的数组需要在内存中开辟多少字节的空间？（）varnl:array[1..2,11..50]ofinteger;A、100B、160C、200D、84

二、基础填空题：（将正确的答案填在横线上，第1～2题每小题4分，第3～4题每小题5分，共18分）1．已知数组value中连续存放着15个数，如果采用顺序查找法，则查找一个数的平均比较次数是。2．假设有一组数，以下列的形式存放在二维数组A中：134556226463348626663232521534如果这一数组的最小下标为(1,1)，即第一个下标变量为A[1,1]，若已知：X=2,Y=3,Z=1，则A[A[Y,4]-1,A[Z,X]]的值为。3．3只空瓶可以换一瓶汽水，小明买了10瓶汽水，他最多可以喝到瓶汽水。4．已知一组数存在这样的规律：从第二个数开始，每个数都是前一个数的3倍多1。如果用f（n）表示第n个数，那么该数与前一个数的关系可表示为：f(n)=(n>=2).

三、写运行结果:（每小题6分，共30分）1．programex1;Vari,max:integer;A:array[1..10]ofinteger;BeginFori:=1to10doread(a[i]);Max:=a[1];Fori:=2to10doIfa[i]>maxthenmax:=a[i];Writeln(max);End.输入：-11624678–18-61534输出：4．programex4;varzs,cj:real;rs:1..100;beginzs:=0;forrs:=1to5dobeginread(cj);zs:=zs+cjend;writeln(‘pj=’,zs/5:1:1);end.输入：9576836990输出：

2．programex2;varst,new1:string;x,len:integer;beginreadln(st);readln(x);len:=length(st);new1:=copy(st,len-x+1,x)+copy(st,1,len-x);writeln(new1);end.输入：CDCABBADBB5输出：

5．programex5;vark,p:integer;pen:array[1..20]ofreal;pen2:real;beginfork:=1to5doread(pen[k]);fork:=1to4doforp:=k+1to5doifpen[k]>pen[p]thenbeginpen2:=pen[k];pen[k]:=pen[p];pen[p]:=pen2endfork:=1to5dowrite(pen[k]:0:2,‘’);end.

输入：5.434.4613.464312.590输出：

3、programex3;Varx,s,n,t1:longint;beginreadln(n);x:=n;s:=0;repeats:=s+xmod10;x:=xdiv10;untilx=0;write(s);end.输入：48375输出：

四、完善程序（每空2分，共22分）1．输出1～100中所有的素数。[程序清单]Vari，j:integer;F:Boolean;BeginFori:=2to100doBegin①Forj:=2to②doIf③thenbeginf:=false;break;end;If④thenwrite(i,’’);End;End.2．编程求出所有的不超过6位数的完全平方数。每行输出6个。每个数占8位场宽。(注：4是2的平方，所以4是一个完全平方数。)Vari,t:longint;BeginWrite(1:8);①Fori:=2to999doBegint:=t+1;②If③thenwriteln;End;End.3．算算一串