金华市小学第二十二届信息学奥赛试题.doc

金华市第二十二届小学信息学奥赛试题
（说明：答案均要求写在答题纸上•小学组• Pascal语言•满分100分•考试时间120分钟）
题号
一（30分）
二（14分）
三（28分）
四（28分）
合计（100分）
一、单项选择题（本题共30分，每题1.5分，20小题）。
1．随着中国网络技术的迅速提高，我国计算机领域里的名人越来越多，下列哪个名人是阿里巴巴网站创始人？( )
A. 马化腾 B. 张朝阳 C. 马云 D. 李彦宏
2．在电脑领域，“闪客”是指（ ）。
A.Disco高手 B.Flash高手 C.PS高手 D.游戏高手
3．在Excel中在一个单元格中输入数据为1.678E+05,它与（ ）相等。
A.1.67805 B.1.6785 C.6.678 D.167800
4. 城域网的英文缩写是( )。
A.LAN B.MAN C.WAN D.FAN
5. 时下流行的微博（Microblog）中有许多新潮用语，其中“脖领儿”指的是（ ）。
A. 微博一族中的“领袖人物”，微博关注率、点击率双高，粉丝众多
B. 微博一族中的“刺儿头微博文字以讥讽、拍砖、恶搞等为主
C. 含金量颇高、很有名望的微博客
D. 微博的先行者
6. 计算机硬盘正在工作时应特别注意避免（ ）。
A.噪声 B.震动 C.潮湿 D.日光
7. 计算机中所有信息的存储都采用（ ）。
A.十进制 B.十六进制 C.ASCII码 D.二进制
8. Word在正常启动之后会自动打开一个名为（ ）的文档。
A.1.DOC B.1.TXT C.DOC1.DOC D.文档1
9. 设a,b,c,d,e均为整型变量，有下面程序段
a:=1 ; b: =2;e:=5;
readln (a,b);
read(c,d);
readln(e);
若从键盘上输入 ：3 ←┘
4 6 7 ←┘
8 9 10 ←┘ (注：←┘表示回车)
则a,b,c,d的值为：（ ）。
A． 3 4 6 7 8 B. 1 2 3 4 6 C. 3 4 8 9 10 D. 1 2 4 6 5
10. 二进制数10101010转换为十进制数和十六进制数后分别是（ ）。
A.170 和 AAH B.180 和 55H C.190 和 99H D.186 和 AAH
11. windows中“磁盘碎片整理程序”的主要作用是（ ）。
A.修复损坏的磁盘 B.缩小磁盘空间 C.提高访问速度 D.扩大磁盘空间
12. 我们通常所说的"水晶头"是指（ ）。
A. RJ-45连接器 B. RJ-11连接器　 C. 网卡接口 D. 电话线接口
13. 在下列字符中，其ASCII码值最大的一个是（ ）。
A. 8 B. 9 C. a D. b
14. 一台计算机的内存容量为256M，表示的是( )。
A. 256M字节 B. 256M字长 C. 256M比特 D. 256M字
15. 已知队列(13，2，11，34，41，77，5，7，18，26，15)，第一个进入队列的元素为13，则第五个出队列的元素是（ ）。
A.5 B.41 C.77 D.13
16. 与十进制数28.375相等的八进制数是（ ）。
A．34.2 B．35.2 C．34.3 D．35.3
17. 表达式7 div -3 + (-18 mod -4 )div 2的运算结果为（ ）。
A.-3 B.3 C.1 D.-1
18. 设栈S的初始状态为空，元素a, b, c, d, e 依次入栈，以下出栈序列不可能出现的有（ ）。
A. a, b, c, e, d B. b, c, a, e, d C. a, e, c, b, d D. d, c e, b, a
19. 在Pascal程序中，表达式（200 or 10）的值是（ ）。
A．20 B．1 C．220 D．202
20. 下面表达式的结果值为-10的是：( )。
A．trunc(－9.9) B． trunc(－10－0.1) C.－round(－9.9) D.－round(trunc(－10－0.1))
二、问题求解（本题共14分，2个小题，每题7分）
1. A、B、C、D、E五位同学各自从不同的途径打听到金华地区小学五年级信息奥赛获得第一名的那位同学的情况（具体列表如下）
A打听到:
B打听到:
C打听到:
D打听到:
E打听到:
姓李,是女同学,年龄13岁,义乌人
姓张,是男同学,年龄11岁,金华人
姓陈,是女同学,年龄13岁,义乌人
姓黄,是男同学,年龄11岁,永康人
姓张,是男同学,年龄12岁,义乌人
实际上获得第一名的那位同学姓什么、性别、年龄、哪里人这四项情况真的在上表中已有,而五位同学所打听到的情况,每人都仅有一项是正确的.
请你据此推断这位获第一名的同学?
__________________________________________________________________________________
2. 上午8点08分,小明骑自行车从家里出发,8分钟后,爸爸骑摩托车去追他,在离家4公里的地方追上了他,然后爸爸立刻回家,到家后又立刻回头去追小明,再追上他的时候,离家恰好是8公里.问这时是几点几分?
___________________________________________________________________________________

三、写出下列程序的运行结果。（本题共28分，每题7分,4小题）
2．program jhs2;
var n:integer;
function count(n:integer):integer;
begin
if n=1 then count:=0 else
if n mod 2=0 then count:=count(n div 2)+1 else
count:=count(n*3+1)+1;
end;
begin
readln(n);
writeln(count(n));
end.
输入3

输出：___ _______

1. program jhs1;
　　var
　　i,j:integer;
　　a,b:array[1..5] of integer;
　　begin
　　 for i:=1 to 5 do
　 　begin
　 　a[i]:=2*i+1;
　　 b[i]:=i
　　 end;
　　 for i:=1 to 5 do
　　 for j:=1 to 5 do
　　 if a[i]<>b[j]
　　 then write(a[i]:4)
end.

输出：

4、program jhs4;
var i,j,s:integer;
b:array[0..5]of integer;
begin
s:=0;
for i:=1 to 5 do b[i]:=i+1;
j:=2;
while j>0 do
begin
j:=5;
while(j>0)and(b[j]=10+j-5) do
j:=j-1;
if j>0 then
begin
s:=s+1;
b[j]:=b[j]+1;
for i:=j+1 to 5 do
b[i]:=b[j]+i-j;
end;
end;
writeln(s);
end.
输出：_________________________
3．program jhs3;
　var
　　a,b,c : integer;
　　procedure p (var x:integer; y:integer);
　　var
　　 temp:integer;
　　 begin
　　 temp:=x div y+c;
　　 x:=temp;
　　 writeln(x:4,y:4,temp:4)
　　 end;
　　 begin
　　 a:=8;b:=2;c:=5;
　 　p(a,b);
　　 writeln(a:4,b:4,c:4)
　　end.
输出：

_______________________________

四、完善程序（请在序号处填入空缺的语句，使程序完成，本题共28分，每空4分，7空。）
1．下面程序段打印101—200之间所有既能被3整除也能被8整除的数，请填空完成。
x:=101;
while x<=200 do
begin
if _____________①_
then write(x:3);
_____________②_______________
end;
2．输出图形, 请填空完成。如:
输入: 7 4 8 9 1 5
输出: 7 4 8 9 1 5
5 7 4 8 9 1
1 5 7 4 8 9
9 1 5 7 4 8
8 9 1 5 7 4
4 8 9 1 5 7
Program jhs5;
var i,j:integer;
a:array[1..6] of integer;
b:array[1..6, 1..6] of integer;
begin
write(‘input the array a’);
for i:=1 to 6 do read(a[i]);
for i:=1 to 6 do
begin
for j:=1 to 6 do b[i,j]:=____________③__________;
for j:=1 to i-1 do b[i,j]:=__________④_________ ;
end;
for i:=1 to 6 do
begin
for j:=1 to 6 do write(b[i,j]:3);
writeln
end;
end.
3.输入10个整数，把这10个数按从大到小的顺序排列。
4
金华市第二十二届小学信息学奥赛试题• 2013年10月13日• 金华
program jhs6;
const n=10;
var
a:array[1..10] of integer;
i,j,t:integer;
begin
writeln('input',n,'integer number:');
for i:=1 to n do_______⑤________;
for i:=1 to n-1 do
for j:=1 to_____⑥_______ do
if_________⑦_______then
begin
t:=a[j];
a[j]:=a[j+1];
a[j+1]:=t;
end;
for i:=1 to n do write(a[i]:5);
end.