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

1、小学信息学奥林匹克竞赛初赛模拟试题(一)（小学乙组初赛，两小时完成）请将正确答案在答题卷上填写，在本试题卷上答题无效一、 选择题：（选出每题正确的一个答案代码，填在横线上，每题1分，共20分） 1. 常量1.7653的类型是（ B ）。A、 整型 B、实型 C、字符型 D、布尔型2. 当要存放一个最大可能是5000000的整数时，变量应该说明为哪种类型比较合适（ C ）？ A、integer B、real C、longint D、word3. 对于描述“A不大于B或A不大于C”，正确的布尔表达式是（ D ）。A、A>B or A>C B、not (A>B) and (A>

2、;C)C、not (A>B) and not (A>C) D、not (A>B) or (A>C)4. 关于表达式5+trunk(11*random)的值，正确的说法是（B ）。A、最小的值是5，最大的值是15 B、最小的值是5，最大的值是59C、最小的值是5，最大的值是16 D、最小的值是6，最大的值是615. 下面哪一个不是Pascal语言的标准函数（ D ）？A、str B、val C、 abs D、 mod6. (15 div 2>5) or false中运算符div，or和>，下列哪组运算次序是正确的（D ）。A、 C、7. 下面变量中，不合法的变

3、量名是（ C ）。A、max B、abs5 C、case D、 P_1218. 对于如下说明的数组，将能说明同时存放多少个数？（ C ）。说明：type mmj=array5.20 of real;Wr:mmj;选项：A、 20 B、15 C、16 D、609. 运行下面的程序时会显示出错信息，出错的原因是（ A ）。Var a:array1.5 of integer;M:1.10;BeginFor m:=1 to 7 do am:=m+1;Write(m);End.A、循环过程中m值超过了数组a的下标范围B、说明变量m时，其数据范围超过了数组a的下标范围C、循环变量参与了运算D、intege

4、r的范围大大超出了15的范围10. 下列逻辑表达式中其值为true的是（ A ）。A、THAT>THE B、A>BC、QBASIC<PASCAL D、9>=H11. 下面程序段运行时循环体执行的总次数是（B ）。t1:=M;t2:=Q;for cx:=t1 to t2 do s:=s+ord(cx);A、6 B、5 C.3 D、412. 将一组数1，3，5，7，9依次放入数组S的1，2，3，4，5号元素中，则SS2+1的值是（ C ）。 A、3 B、5 C、7 D、9 13. 下列哪个程序段执行后，变量v的值为6 ( B )。14. 要判断一个实型变量d中存放的是否为整

5、数，下列哪一个表达式是正确的（ A ）？A、trunc(d)=round(d) B、d mod 10=0C、round(d)=d D、d>=32768 and d<3276815. 下面排序的程序段，最坏的情况下要交换多少次数据( C )？For m:=1 to 5 doFor n:=M+1 to 6 doIf gtm>gtn then begin w:=gtm;gtm:=gtn;gtn:=w; End;A、5 B、15 C、20 D、2516. 执行下面程序段后，x，y，z的值分别是(D )。Readln(x,y);readln(z);运行时输入：10 20 30 40 5

6、060 70 80A、 10 20 30 B、20 30 40 C、10 20 60 D、10 20 70 17. 已知数组连续存放9个数，要找出其中一个数的平均比较次数是（ A ）。A、4.5 B、10 C、5 D、918. 以下4段程序段中，哪一段执行最快？ ( B )A、pos B、copy C、length D、char20. 对于以下条件语句，其配对关系正确的是（ A ）。If x>0 then if y>0 then s:=x*y else if y<0 then s:=x-y;A、 B、 C、 D、二、基础填空题：（将正确的答案填在括号内，每小题4分，共16分）

7、1骰子是一个正六面体，用16这六个数字分别代表六个面，掷一次骰子出现的数可用表达式表示为（ ）。2每个实型数要用2个字节的空间来储存，对于如下的数组说明： Var mj,tj:arraya.d,5.15 of real;计算机要在内存中留出多少个字节的存储空间给这两个数组使用？（30个）。 3已知一串明文与对应的密文如下：明文：home 密文：fmkc若采用与上述相同的加密算法，则明文pen的密文是（ ncl ）。4如图所示，某路段为一车道（不能从旁超车）单行线并且禁止货车通行，另一端因道路施工也禁止直行，只允许小车从左侧小路绕道行驶。现有大小共5辆汽车驶进了该路段，请你为交警叔叔设计一个方案

8、，疏通该路段的交通。我的疏通方案是：（1）往左侧小路行驶的汽车是（按行驶顺序填写）：（ C1,C3 ）。 （2）要倒车的汽车是（按行驶顺序填写）：（ C2,C4,C5）。三、写运行结果（阅读下列程序或程序段，写出正确的运行结果。 每小题5分，共30分）四、完善程序（5小题共12空。每空2分，共24分）1任意输入一个字符串（长度大于2小于10），打印出由它的字符所组成的图案（不考虑是否有重复字符，但要判断输入字符串的有效性）。程序清单Program test1_41;Var b,ln:integer; a:string; Sc:array1.100 of real; Begin repeatre

9、adln(a); until (ln>2) and (ln<10);for b:=1 to ln do writeln(ab,ab,ab,ab); End.程序清单Program test1_42;Var s1,p:byte; dj,zje:real;Begin ; For p:=1 to 5 do BeginRead(s1,dj);zje:= End;Writeln(zje);End.3有一个数列，第一个数为1，第二个数为2，其后每一个数均是前两个数之和，请以每行10个数的格式从小到大打印此数列，打印的最大数不超过2000。程序清单Program test1_43;Var x,y

10、,z,n:integer;BeginX:=1;y:=2;n:=2;write(x:6,y:6);z:=x+y;while doBeginIf n mod 10=0 then writeln;Write(z:6);n:=n+1;X:=y;y:=z; end;End.4求出满足下列条件的所有两位数：将两位数的个位数字与十位数字进行交换，可以得到一个新的数，要求新数与原数之和小于100。程序清单Program test1_44;Var I,x,y:integer;xs:integer; ys:set of 10.200;BeginYs:=11.99;For i:=10 to dobeginx:=I

11、div 10; xs:=y*10+x;if in ys then write(i:4);end;Writeln;End.5用计算机模拟学习选举。全班50位同学要从10位候选人（编号分别110）中投票选出程序清单Program test1_45;Var k,j,ph,tem:integer;Ps,bh:array1.10 of integer;Beginrandomize;For k:=1 to 10 do begin psk:=0; end;For k:=1 to 50 doBeginph:=1+round(9*random);psph:= ;End;For k:=1 to 9 doFor j:=k+