当前位置:首页 >> IT/计算机 >>

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


2007 年南海区青少年信息学奥林匹克竞赛初赛试题
(小学甲组,两小时完成) ◆◆请将正确答案在答题卷上填写,在本试题卷上答题无效◆◆
一、 选择题:(选出每题正确的一个答案代码,填在横线上,每题 1 分,共 20 分) 选择题: 1. 要将实型变量 b 中的小数部分取出来,赋给一个变量 a 时,下列哪个表达式是正确的 ( )。 A、a:=round(b) B、a:=int(b) C、a:=b-trunc(b) D、a:=trunc(b) 与(10010.101)2 对应的十进制数是( )。 A、39.75 B、18.625 C、34.625 D、18.75 对有 18 个元素的有序表作二分(折半)查找,要查找的数其实是在 A[3]中,那么查到 该数的比较序列的下标为( )。 A、 1、2、3 B、 9、5、2、3 C、 9、4、3 D、 9、4、2、3 表达式 4+3 MOD 8*3 的运算结果为( )。 A、13 B、16 C、19 D、21 已知堆栈中连续存放有 5 个数, 即依次将 1,3,5,7,9 放入一个堆栈中, 然后将这些数出 栈,它的出栈顺序是( )。 A、3 5 7 9 1 B、1 3 5 7 9 C、9 7 5 3 1 D、1 9 3 7 5 对于以下的程序段,关系表达式 pice[t1]>pice[t2]被计算的次数是( )。 for t1:=1 to 6 do for t2:=t1+1 to 7 do if pice[t1]>pice[t2] then begin w:=pice[t1];pice[t1]:=pice[t2];pice[t2]:=w end; A、 20 B、 42 C、 21 D、 13 下列表达式运算结果为真的是( )。 A、 Ord(‘a’)+ord(‘Z’)<ord(‘A’)+ord(‘z’); B、 ( 3>5) or ( 7>4) and ( 10>=5) C、 (a>=b) and (a<b) D、 copy(‘ABCE’,2,3)< ‘BCE’ 数组 value 中连续存放 15 个数, 采用顺序查找法查找一个数的平均比较次数是 ( ) 。 A、 16 9. B、7.5 C、 8 D、15

2. 3.

4. 5.

6.

7.

8.

一个程序中有如下的函数说明: function fn(n:integer):integer; begin f:=f(n-1)+2; end; 假设 f(1)=0,则 f(100)的值为( )。 A、 200 B、 98 C、 101 D、198 10. 执行过程 val(‘12.53’,a ,b)后 b 的值为( ) A、12.53 B、1 C、0 D、5 11. 要随机产生一系列 5~20 范围内的整数,可用的表达式是( )。 A、trunc(5+15*random) B、16+trunc(5*random) C、5+trunc(15*random) D、5+trunc(16*random) 12. 在字符串 ‘xiaoxue’ , x 为首字符, 中 以 长度不小于 2 的不同子串的个数是 ( A、2 B、4 C、8 D、10

) 。

13. 下列关于 Pascal 中字符串的叙述,正确的是 ( )。 A、字符串中不能包含数字字符 B、引用字符串中的字符时,不能使用下标变量 C、字符串不是一种数据类型 D、字符串是一种压缩型的字符数组 14. 在长度为 n 的顺序存储的线性表中,删除第 i 个元素(1≤i≤n)时,需要从前向后依 次前移( )个元素。 A、n-i B、n-i+1 C、n-i-1 D、i 15. 要将字符变量 ch 中的字符转换为可计算的数字,正式的表达式是( )。 A、ord(ch)-48 B、ord(ch)-47 C、asc(ch)-48 D、chr(ch) 16. 十进制数 127 转换成十六进制数是( )。 A、 F7 B、 7F C、 E7 D、715 17. 将一组数 1,3,5,7,9 依次存放入数组 P 的 1,2,3,4,5 号元素中,则 P[p[p[2]]-1]的值 是( )。 A、3 B、5 C、7 D、9 18. 英文小写字母 d 的 ASCII 码为 100,英文大写字母 D 的 ASCII 码为( )。 A、 50 B、 66 C、 52 D、 68 19. 要判断一个字符变量 ch 中的值是不是数字字符, 可用如下的逻辑表达式表示 ( ) 。 A、ch in [‘0’..‘9’] B、ch in [0..9] C、ord(ch)>=48 D、asc(ch)>48 and asc(ch)<50 20. 已知每个 integer、real 和 char 类型的数分别需要用 2、4 和 1 个字节的空间存放,则 以下程序的说明需要在内存中开辟多少字节的空间?( )。 var nl:array [1..50,1..2] of integer; tz:real; xm:array [3..10] of char; A、212 B、112 C、220 D、136

二、基础填空题:(将正确的答案填在横线上,第 1~2 题每小题 4 分,第 3~4 题每小 基础填空题: 题 5 分,共 18 分) 1.一个口袋内装有 5 个小球另一个口袋内装有 4 个小球,所有这些小球的颜色各不相 同,现从两个口袋内各取一个小球,有 种不同的取法。 2.假设有一组数,以下列的形式存放在 A 数组中: 1 3 4 5 5 6 2 2 6 4 6 3 3 4 8 6 2 6 6 6 3 2 3 2 5 2 1 5 3 4 如果这一数组的最小下标为(1,1), 即第一个下标变量为 A[1,1], 若已知: X=2,Y=3,Z=1, 则 A[A[Y,4]-1 ,A[X+Z,Y+Z]])的值为 。 3.班主任为他们班准备了一些球类体育器材。他打算:为每两位同学准备一个乒乓球, 为每三位同学准备一个足球,为每四位同学准备一个篮球,共买了 52 个球。问他们班共有 位同学。 4.有 6 个人在一个水龙头前排队接水,他们的编号为 1 至 6 号,假如每个人接水的时 间分别为 15、26、10、30、8、11(单位:秒),请按排一个排队队列,使得 n 个人的平均 等待时间最小。(平均等待时间:指每个人等待的时间之和的平均值。) 这个队列是: (以编号给出队列)

三、写运行结果:(共 5 题, 每小题 6 分,共 30 分) 写运行结果
1. program ex1; ; Var i,s,max:integer; A:array[1..10] of integer; Begin For i:=1 to 10 do read(a[i]); Max:=a[1]; s:=a[1]; For i:=2 to 10 do Begin If s<0 then s:=0; s:=s+a[i]; If s>max then max:=s; End; Writeln(‘max=’,max); End. 输入:-1 16 24 6 7 8 –18 -6 15 34 输出: 3. Program ex3; Var s,n:integer; funtion pp(n:integer):integer; Begin If n=1 then pp:=1 Else pp:=n*n+pp(n-1); End; Begin Readln(n); S:=pp(n); Writeln(‘s=’,s); End. 输入:10 输出: 5. program ex5; var s:string; k,I,len,g:integer; a:array[1..300]of integer; begin readln(s); 2. program ex2; ; Var a,n,m:integer; Begin Readln(n,m); If n>m then a:=m+1 else a:= n+1; Repeat a := a-1; Until (m mod a=0) and (n mod a=0); writeln(a); End. 输入: 45 36 输出:

4. program ex4; ; var n,t1: longint; , : ; procedure sub1(x:longint; var : ; t:integer); : ; begin repeat t:=t+x mod 10; x:=x div 10; : ; : until x=0 end; ; begin readln(n); sub1(n,t1); , ; write(t1); ; end. . 输入:48375 输出: k:=i+1; while(k<=len)and(s[k]<>s[i]) do inc(k); a[i]:=k-i-1; end; for I:=1 to len do if a[i]>0 then write(a[I]:3); writeln; end. 输入:CDCABBADBB

len:=length(s); a[len] :=0;
For I:=1 to len-1 do begin

四、完善程序(每空 2 分,共 32 分)
1.求两个数的最大公约数和最小公倍数。 输入样例: 12 15 输出样例: Yueshu=3 Beishu=60 [程序清单] Var m,n,i,s,t:longint; Begin Readln(n,m); If ① then begin t:=n; n:=m; m:=t; end; ② s:=m*i; While ③ do Begin ④ S:=m*i; End; ⑤ Writeln(‘Beishu=’, s); End. 2.已知 faibonacci 数列的前几个数分别为 0,1,1,2,3,5,8,……,编程输出此数列的前 n(n>=2)项。 (每行输出五项,每项场宽为 6) 。 输入样例: 10 输出样例: 0 1 1 2 3 5 8 13 21 34 [程序清单] Var n,p1,p2,t,f:integer; Begin Readln(n); P1:=0; p2:=1; t:=2; Write(0:6,1:6); While ① do Begin If ② then writeln; ③ Write( f : 6 ); ④ p1:=p2; ⑤ End; End.

3.有 A,B,C,D,E 五位候选人参加班长竞选,全班同学投票,得票最高者将被选为班长。已知 全班人数不超过 60 人,现要设计一个计票程序,计算各位候选人的得票数,并输出班长 的编号。 输入样例:ABAD*CBACBB (被选编号序列,废票用*表示) 输出样例:B (被选出的班长编号) [程序清单] Var ps:array[‘A’..‘E’] of integer; ms,k,rs:integer; Phs:string; Bz,C:char; Begin Readln(phs); Rs:=length(phs); For c:=‘A’to ‘E’do ① ; For k:=1 to rs do If phs[k] in ② then Ps[phs[k]]:= ③ ; ④ :=0; For c:=‘A’to ‘E’ do If ⑤ then begin ms:=ps[c];bz:= ⑥ end; writeln(bz) end.


相关文章:
2007年南海区青少年信息学奥林匹克竞赛初赛试题(小学甲....doc
2007 年南海区青少年信息学奥林匹克竞赛初赛试题(小学甲组,两小时完成) ◆◆
2007年南海区青少年信息学竞赛复赛题(小学甲组).doc
2007年南海区青少年信息学竞赛复赛题(小学甲组)_学科竞赛_小学教育_教育专区。NHOI’2007 小学甲组复赛题 2007 年南海区青少年信息学奥林匹克竞赛复赛试题 (小学甲组...
2007年南海区青少年信息学奥林匹克竞赛初赛试题(小学甲组).doc
2007年南海区青少年信息学奥林匹克竞赛初赛试题(小学甲组)_IT/计算机_专业
2008年南海区青少年信息学奥林匹克竞赛初赛参考答案(小....doc
2008 年南海区青少年信息学奥林匹克竞赛初赛参考答案及评分标准 (小学甲组) 一、 选择题: (每小题 1 分,共 20 分)题号 答案 题号 答案 1 D 11 D 2 C...
2008年南海区青少年信息学奥林匹克竞赛初赛试题(小学甲组).doc
2008 年南海区青少年信息学奥林匹克竞赛初赛试题(小学甲组,两小时完成) 一、
2008年南海区青少年信息学奥林匹克竞赛初赛试题(小学甲组).doc
2008 年南海区青少年信息学奥林匹克竞赛初赛试题(小学甲组,两小时完成) ◆◆
2011年南海区青少年信息学奥林匹克竞赛初赛试题(小学甲组).pdf
2011 年南海区青少年信息学奥林匹克竞赛初赛试题(小学甲组,两小时完成) ◆
2007年南海区青少年信息学奥林匹克竞赛答案(小学乙组).doc
2007年南海区青少年信息学奥林匹克竞赛答案(小学乙组) - 2007 年南海区青少年信息学奥林匹克竞赛初赛答题卷 (小学乙组) 一、 选择填空: (每题 1 分,共 20 ...
2011年南海区青少年信息学奥林匹克竞赛初赛参考答案(小....pdf
2011 年南海区青少年信息学奥林匹克竞赛初赛参考答案 (小学甲组) 一、单项选择题(本题共 20 题,每题 1 分,共计 20 分) 1 2 3 4 5 6 7 B C B C ...
2011年南海区青少年信息学奥林匹克竞赛初赛试题(小学甲组).doc
2011 年南海区青少年信息学奥林匹克竞赛初赛试题(小学甲组,两小时完成) ◆
2008年南海区青少年信息学奥林匹克竞赛初赛试题(小学乙组).doc
2008 年南海区青少年信息学奥林匹克竞赛初赛试题(小学乙组,两小时完成) ◆◆
2015年南海区青少年信息学奥林匹克竞赛试题(小学甲组).pdf
2015年南海区青少年信息学奥林匹克竞赛试题(小学甲组) - NHOI2015 小学甲组题 2015 年南海区青少年信息学奥林匹克竞赛试题 (小学甲组) 注意事项: 1. 2. 3. 4....
2014年南海区青少年信息学奥林匹克竞赛试题(小学甲组).txt
2014年南海区青少年信息学奥林匹克竞赛试题(小学甲组)_数学_小学教育_教育专区。NHOI2014小学甲组题 2014年南海区青少年信息学奥林匹克竞赛试题 (小学甲组) 注意事项:...
2013年南海区青少年信息学竞赛试题(小学甲组) 解题报告.doc
2013年南海区青少年信息学竞赛试题(小学甲组) 解题报告_学科竞赛_小学教育_教育专区。NHOI’2013 小学甲组试题 2013 年南海区青少年信息学奥林匹克竞赛试题 (小学甲组...
2010年南海区青少年信息学奥林匹克竞赛初赛试题(小学甲组).doc
2010 年南海区青少年信息学奥林匹克竞赛初赛试题(小学甲组,两小时完成) ◆
2011年南海区青少年信息学奥林匹克竞赛初赛试题(小学乙组).doc
2011年南海区青少年信息学奥林匹克竞赛初赛试题(小学乙组)_学科竞赛_初中教育_...2007年南海区青少年信息... 6页 免费 2009年南海区青少年信息... 4页 ...
2005年南海区青少年信息学奥林匹克竞赛初赛试题(小学甲组).doc
2005 年南海区青少年信息学奥林匹克竞赛初赛试题(小学甲组,两小时完成) ◆
2009年南海区青少年信息学奥林匹克竞赛初赛试题(小学甲....doc
2009年南海区青少年信息学奥林匹克竞赛初赛试题(小学甲组,A4)_学科竞赛_小
2014年南海区青少年信息学奥林匹克竞赛试题(小学甲组).doc
2014年南海区青少年信息学奥林匹克竞赛试题(小学甲组)_学科竞赛_小学教育_教育专区。NHOI2014 小学甲组题 2014 年南海区青少年信息学奥林匹克竞赛试题 (小学甲组) ...
2015年南海区青少年信息学奥林匹克竞赛试题(小学甲组).pdf
2015年南海区青少年信息学奥林匹克竞赛试题(小学甲组)_学科竞赛_小学教育_教育专区。2015年南海区青少年信息学奥林匹克竞赛试题(小学甲组) ...
更多相关标签: