小学信息学奥林匹克竞赛初赛模拟试题(一)

小学信息学奥林匹克竞赛初赛模拟试题(一)（小学乙组初赛，两小时完成）

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

一、

选择题：（选出每题正确的一个答案代码，填在横线上，每题1分，共20分）1.

常量1.7653的类型是（B）。A、整型B、实型C、字符型D、布尔型2.

当要存放一个最大可能是5000000的整数时，变量应该说明为哪种类型比较合适（C）？A、integerB、realC、longintD、word3.

对于描述“A不大于B或A不大于C”，正确的布尔表达式是（D）。A、A>BorA>CB、not(A>B)and(A>C)C、not(A>B)andnot(A>C)D、not(A>B)or(A>C)4.

关于表达式5+trunk(11*random)的值，正确的说法是（B）。A、最小的值是5，最大的值是15B、最小的值是5，最大的值是59C、最小的值是5，最大的值是16D、最小的值是6，最大的值是65.

下面哪一个不是Pascal语言的标准函数（D）？A、strB、valC、absD、mod6.

(15div2>5)orfalse中运算符div，or和>，下列哪组运算次序是正确的（D）。A、>divorB、or>divC、ordiv>D、div>or7.

下面变量中，不合法的变量名是（C）。A、maxB、abs5C、case8.

对于如下说明的数组，将能说明同时存放多少个数？（C）。说明：typemmj=array[5..20]ofreal;Wr:mmj;选项：A、20B、15C、16D、9.

运行下面的程序时会显示出错信息，出错的原因是（A）。Vara:array[1..5]ofinteger;M:1..10;BeginForm:=1to7doa[m]:=m+1;Write(m);End.A、循环过程中m值超过了数组a的下标范围B、说明变量m时，其数据范围超过了数组a的下标范围C、循环变量参与了运算D、integer的范围大大超出了1~5的范围10.

下列逻辑表达式中其值为true的是（A）。A、’THAT’>’THE’B、’A’>’B’C、’QBASIC’<’PASCAL’D、9>=’H’11.

下面程序段运行时循环体执行的总次数是（B）。t1:=’M’;t2:=’Q’;forcx:=t1tot2dos:=s+ord(cx);A、6B、5C.3D12.

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

下列哪个程序段执行后，变量v的值为6(B)。A．P:=5;P:=succ(p);V:=p+1;B.V:=0;w:=1;RepeatV:=v+2;W:=w*v;Untilv>5;C.W:=1;Forv:=1to5doW:=w*v;D.V:=1;w:=1;Whilev>5doBeginV:=v+2;W:=w*v;End;14.

要判断一个实型变量d中存放的是否为整数，下列哪一个表达式是正确的（A）？A、trunc(d)=round(d)B、dmod10=0C、round(d)=dD、d>=32768andd<3276815.

下面排序的程序段，最坏的情况下要交换多少次数据(C)？Form:=1to5doForn:=M+1to6doIfgt[m]>gt[n]thenbeginw:=gt[m];gt[m]:=gt[n];gt[n]:=w;End;A、5B、15C、20D、16.

执行下面程序段后，x，y，z的值分别是(D)。Readln(x,y);readln(z);运行时输入：1020304050607080A、102030B、203040C、10206017.

已知数组连续存放9个数，要找出其中一个数的平均比较次数是（A）。A、4.5B、10C、5D、18.

以下4段程序段中，哪一段执行最快？(B)A．Forf:=1to100doIffmod2=0thenwrite(f);B.Forf:=1to50doWrite(2*f);C.g:=0;forf:=1to50dobeginifg<=100theng:=g*2;write(g);end;D.Forh:=1to4doForf:=1to25doIf2*h*fmod2=0thenwrite(h*f);19.

下列哪个函数能从一个字符串中取得一个子串（A）？A、posB、copyC、lengthD、char20.

对于以下条件语句，其配对关系正确的是（A）。Ifx>0thenify>0thens:=x*yelseify<0thens:=x-y;A、①②③B、③④⑤C、③⑦D、①②⑤二、基础填空题：（将正确的答案填在括号内，每小题4分，共16分）1．骰子是一个正六面体，用1~6这六个数字分别代表六个面，掷一次骰子出现的数可用表达式表示为（）。2．每个实型数要用2个字节的空间来储存，对于如下的数组说明：Varmj,tj:array[‘a’..d’,5..15]ofreal;计算机要在内存中留出多少个字节的存储空间给这两个数组使用？（30个）。3．已知一串明文与对应的密文如下：明文：home密文：fmkc若采用与上述相同的加密算法，则明文pen的密文是（ncl）。4．如图所示，某路段为一车道（不能从旁超车）单行线并且禁止货车通行，另一端因道路施工也禁止直行，只允许小车从左侧小路绕道行驶。现有大小共5辆汽车驶进了该路段，请你为交警叔叔设计一个方案，疏通该路段的交通。我的疏通方案是：（1）往左侧小路行驶的汽车是（按行驶顺序填写）：（C1,C3）。（2）要倒车的汽车是（按行驶顺序填写）：（C2,C4,C5）。三、写运行结果（阅读下列程序或程序段，写出正确的运行结果。每小题5分，共30分）

1.Vara,b,c,r:integer;A1,b1,c1,r1:string;BeginReadln(a,b);c:=adivb;r:=amodb;str(a,a1);str(b,b1);str(c,c1);str(r,r1);Writeln(a1+’+’+b1+’*’+c1+’+’+r1);End.输入：206输出：20+6*3+22.Varn:integer;x:real;BeginRead(n);Ifn<10thenx:=n*4Elsex:=5+(n-10)*38;Writeln(x);End.输入：8输出：3.Varn,s,k:integer;Xm:string;BeginReadln(xm);N:=length(xm);s:=0;Fork:=1tondoIfxm[k]in[’0’..’9S:=s+1;Writeln(’Shuzi:’,s);End.运行时输入：Beijing2008Shuzi:14.Varn,k:integer;S:longint;BeginS:=0;n:=2;k:=1;Whilek<=3doBeginN:=n*k;s:=s+n;K:=k+1;End;writeln(‘s=’,s); end.输出：s=185.Vark,w:integer;V:array[1..200]ofinteger;BeginK:=2;V[1]:=0;v[2]:=1;W:=v[1]+v[2];RepeatK:=K+1;V[k]:=v[k-2]+v[k-1];W:=w+v[k];Untilw>10;Writeln(k,‘->’,w);输出：6.Varc1,c2:char;Tem:integer;P:array[‘a’..’e’]ofinteger;beginforc1:=’a’to‘d’dop[c1]:=100-ord(c1);forc1:=’a’to‘d’doforc2:=succ(c1)tosucc(‘d’)doifp[c1]>p[c2]thenbegintem:=p[c1];p[c1]:=p[c2];p[c2]:=tem;end;forc1:=’a’to‘e’dowrite(p[c1]);writeln;end.输出：

四、完善程序（5小题共12空。每空2分，共24分）1．任意输入一个字符串（长度大于2小于10），打印出由它的字符所组成的图案（不考虑是否有重复字符，但要判断输入字符串的有效性）。输入样例输出样例Youyyyooouuu[程序清单]Programtest1_41;Varb,ln:integer;a:string;Sc:array[1..100]ofreal;Beginrepeatreadln(a);①until(ln>2)and(ln<10);forb:=1to②lndowriteln(a[b],a[b],a[b],a[b]);End.2.学校图书室购买了如下一批图书：书名语文美术课外活动英语笑话百科词典数量10205710单价1282020.535现在要求编写一个程序求出这批图书的总金额。[程序清单]Programtest1_42;Vars1,p:byte;dj,zje:real;Begin①;Forp:=1to5doBeginRead(s1,dj);zje:=②End;Writeln(zje);End.3．有一个数列，第一个数为1，第二个数为2，其后每一个数均是前两个数之和，请以每行10个数的格式从小到大打印此数列，打印的最大数不超过2000。[程序清单]Programtest1_43;Varx,y,z,n:integer;BeginX:=1;y:=2;n:=2;write(x:6,y:6);z:=x+y;while①doBeginIfnmod10=0thenwriteln;Write(z:6);n:=n+1;X:=y;y:=z;②end;End.4．求出满足下列条件的所有两位数：将两位数的个位数字与十位数字进行交换，可以得到一个新的数，要求新数与原数之和小于100。[程序清单]Programtest1_44;VarI,x,y:integer;xs:integer;ys:setof10..200;BeginYs:=[11..99];Fori:=10to①dobeginx:=Idiv10;②;xs:=y*10+x;if③inysthenwrite(i:4);end;Writeln;End.5．用计算机模拟学习选举。全班50位同学要从10位候选人（编号分别1~10）中投票选出5位学习标兵，并把它们的编号和票数按得票由高到低的顺序输出。输入样例输出样例（无需输入）7:105:82:64: