2007年狮山镇信息学奥林匹克竞赛试题(四年级组).doc

2007年狮山镇小学信息学奥林匹克竞赛试题（四年级组，两小时完成）请将正确答案在答卷上填写，在本试题卷上答题无效一、选择题：（选出每题中正确的一个答案代码，填在横线上，每题1分，共15分）1、在结构化程序设计中所说的程序的三种基本结构是指（ ）。 A） 主函数、函数、过程 B） 顺序、选择、循环C） 程序首部、说明部分、语句部分 D） WHILE、REPEAT、FOR2、下列表达式中正确的是 ( )。 A) 8/2 mod 2 B) (10) and (3 2) C) a+2 D) 2+false3、当n为任意正奇数时，值总为true的表达式是( )。 A) n mod 2= B) n div 2=1 C) n-(n div 2)= D) n mod 2=14、表达式Chr(Ord(A )+4)的值是 ( )。A) C B) D C) E D)F5、将一组数1,3,5,7,9依次存放入数组P的1,2,3,4,5号元素中，则Pp1+1的值是（ ）。A、3 B、5 C、7 D、96、下列表达式值为5的是( )。A) pred(8 div 2) B) abs(round(23/4)C) succ(trunc(22/5)D) (8 mod 5)*3+1) div 37、 二进制数(1100)2对应的十进制数是 。A. 8 B. 12 C. 13 D. 158、 表达式length(BCDBCD)的值是（ ）。A、BCDBCD B、BCDBC C、6 D、89、不能作为FOR语句循环控制变量的是下列哪种类型变量（ ）。 A) 整型 B) 布尔型 C) 实型 D) 字符型10、至少被执行一次的循环语句是（ ）。A) FOR语句 B) REPEAT-UNTIL语句C) WHILE语句D) FOR、REPEAT-UNTIL和WHILE语句11、设m，n均为整数类型变量，且两者的数值均不大于1000。下面语句 m:=m+n; n:=m-n; m:=m-n; 执行后，产生的结果是（ ）。 A）m，n的值保持不变 B）m，n的值进行了交换 C）m，n的值均为原来M的值 D）m，n的值均为原来N的值12、已知有说明 const a=1; b=2; c=3; d=4; var w,x,y,z:integer; 执行语句 x:=a; x:=c; y:=a+2; z:=b; w:=d-a+b; 后，其值相等的变量是（ ）。A) x,y B) x,z C) x,w D) y,z13、程序段： for i:=3 TO 15 do writeln(A); 输出字符的个数是（ ）。 A) 12 B) 13 C)15 D) 1814、有下面程序段： a:=false; b:=true; x:=15; if a then x:=x-10 else if b then x:= x-5 else x:=25; 假设所有变量均已说明，程序运行后x的值是（ ）。 A) 5 B) 10 C) 15 D) 25 15、 下列关于数组的叙述，不正确的是（ ）。A、数组元素可以是字符B、可以用表达式表示数组中的下标C、一个NN的二维数组,其元素个数与两个有N个元素的一维数组相同D、数组元素存放的都是同一种类型的数据二、基础填空题：（将正确的答案填在括号内，每小题4分，共16分）1、现有五个长方形,边长如下表所示：长方形1长方形2长方形3长方形4长方形5长87689宽34543若用数组A、分别存放每个长方形的长和宽，从号单元开始连续存放（如用A1、B1放存第一个长方形的长和宽），则计算第x个长方形的面积的语句是 。2、chr和ord是一对字符函数，你能否利用它，将一个大写字母转换成小写字母。假设这个大写字母的变量名为 ch，请写出这个表达式： 。3、设A1.n中元素不相同。若iAj，则( Ai ，Aj )为A的一个逆序对。例如数组A3,2,8,6,1 其中（3,2）为一个逆序对，现在问数组A中一共有 个逆序对。4、给定一串整数数列7,2,6,9,8,3,5,9,2，求出这个数列中的递增子序列的最大长度。（递增子序列是指：这个序列中后一个数必需大于前一个数，例如：7 ，9是一个递增序列，它的长度为2）。三、写运行结果:（每小题5分，共25分）1、var h,f,c,r:integer; Begin Readln(h,f); c:=(4*h-f) div 2; R:=h-c; Writeln(c); Writeln(r); End.输入： 20 62输出： 2、Var k:char; st:string; Len:integer;Begin For k:= b to f do st:=st+k; For k:= fdownto b do st:=st+k; Len:=length(st); Writeln(len); Writeln(st);End.输出：3、Var x,a,b,c:integer; begin readln(x); a:=x div 100; b:=x div 10 mod 10; c:=x mod 10; writeln(c);writeln(b); writeln(a);end.输入：159输出：5、var n,data,i,z,f,d:integer; Begin Readln(n); For i:=1 to n do Begin Read(data); If data mod 2=0 then z:=z+1; If (data mod 2=0) and (data mod 3=0) then d:=d+1; End; Writeln(z); Writeln(d);End.输入：1011 45 43 26 12 22 18 15 24 36 输出：4、var a,b,n longint;beginreadln(n);a:=0;b:=0;repeata:=a+1;b:=b+a;until a=n;writeln(b);end.输入：13输出：四、完善程序:（每空3题，共24分）1、用键盘依次输入n个字母，统计其中一共有几个大写字母。Var n,i,total:integer; Ch:char;Begin Readln(n); For i:=1 to n do Begin Read(ch)； If 1 then total:=total+1; End; 2 ; End.2、由键盘依次输入一批整数，求这批整数中正整数的平均值。Var s,h,n,t:real;Begin h:=0; t:=0； readln(n); Repeat 3 If s0 then Begin h:=s+h; 4 ; end; n:=n-1; Until n=0 ; Writeln(h/t:0:2);End.3、根据学生的成绩给予相应的分数等级，对应关系如下： 90至100 为A级；80至89 为B级；60至79 为C级；0至60 为D级；其它为无效分数。现有一批学生的分数，请根据他们的分数，给出相应的等级。若为无效无数，则输出 ERROR。Var n,i,score:integer;Begin 5 ; For i:=1 to n do Begin Readln(score); If 6 then Begin Case 7 of 8 : ch:= A; 8 : ch:= B; 7,6: ch:= C; Else: ch:= D; End; Writeln(score,ch); End Else writeln(score,ERROR);End;End.五 编程题：（第1小题8分，第2小题12分，共20分）第一小题 超市自动计费器超市自动计费器主要功能是统计出顾客选购的商品的总价值；你能帮忙设计一个这样的计费系统吗？输入格式：第一行仅一个整数N，表示顾客选购的商品数；第二行有N个整数，表示每件商品的价格；输出格式：输出