2011年东莞小学生计算机程序设计活动镇区选拔赛笔试题

2011年东莞市小学生计算机程序设计活动
镇区选拔赛笔试试题
（考试时间120分钟，满分100分）
●●所有提交的答案都以写在答卷纸上的为准，写在试卷上的一律无效●●
一、选择题：请选出各题正确答案的代码（A/B/C/D）（每题1.5分，共30分）
1、下面各项不是存储设备的是（）。

A .D V D B. C D C. C P U D. R O M
2、linux是一种( )。

A . 操作系统 B. 程序设计语言 C. 杀毒软件 D. 网络浏览器
3、下列各种排序算法中，速度最快的排序的算法是（）。

A . 选择排序 B. 冒泡排序 C. 快速排序 D.插入排序
4、超级计算机及其应用的发展为我国走科技强国之路提供了坚实的基础和保证，在国际TOP500组织公布的最新排行榜上，我国千万亿次超级计算机系统雄踞第一，它是（）
A. 美洲虎
B. 天河一号
C. 曙光一号
D. 星云
5、定义V AR X:INTEGER，则X的表示整数的范围是( )
A. -32768-32767
B. 0-65536
C. 0-35535
D. -32767~32768
6、产生1-100之间的随机整数，且包含1、100两个整数的表达式是（）。

A. RANDOM(100)
B. RANDOM(101)
C. 1+RANDOM(100)
D. 1+RANDOM(101)
7、智能手机已成为手机市场的主流，对于智能手机的描述错误的是（）。

A . 具备无线接入互联网的能力
B.具有PDA的功能，包括PIM，日程记事，任务安排，多媒体应用，浏览网页
C. 具有开放性的操作系统，可以安装更多的应用程序，使智能手机的功能可以得到无限扩展。

D.功能强大，但软件兼容性差，目前不支持安装第三方软件
8、如果说web1.0的本质是联合，那么WEB2.0的本质就是互动与分享, 它让网民更多地参与信息产品的创造、传播和分享。

下列网站中，能体现WEB2.0此特点的是（）。

A.微博
B.FP
C. 百度
D. Google
9、表达式12 DIV 5+13 MOD 6 的值是（）
A. 1
B. 3
C. 5
D. 7
10、设有以下说明：
V AR
A1,A2,A3:INTEGER;
B1,B2,B3:INTEGER;
则下列中合法的赋值语句是（）
（A）A3:=A1/B2 (B）B1:=A1 AND A2
（C）B2:=A1<A2 (D）B3:=A1<A2<A3
11、下列关系表达式，结果为TRUE的是（）
A. 'A'<'a'
B. 'China'='china'
C. 'China'>'USA'
D. 'A'='a'
12、据江民科技反病毒中心统计数据显示，2010年全年共截获计算机病毒（样本）数1080余万个，下列关于计算机病毒的说法不正确的是（）
A. 保持计算机清洁卫生可预防计算机病毒入侵
B. 本质上是一种程序
C. 网络是计算机传播病毒传播的主要方式
D. 可以通过杀毒软件进行清除
13、把两位数的整数X十位和个位调换，下面表达式正确的是（）。

A.X div 10+ X mod 10
B. (X mod 10)*10+ X mod 10
C.(X div 10)*10 +X mod 10
D. (X mod 10)*10+ X div 10
14、存储器容量1M分别表示2的（）次方字节。

A.10
B.20
C.30
D.40
15、用选择排序对5个数进行排序，需要进行（）多少次关健字比较。

A. 5
B. 10
C. 15
D. 20
16、下列函数值是整型的是（）。

A.chr（99）
B. odd（99）
C.succ（false）
D. ord（false）
17、二进制数0.1对应的十进制数是：（）
A. 0.1
B.0.3
C.0.5
D.0.7
18、下列设备中属于软件的是______。

A．WPS、UCDOS、Windows B．CPU、RAM
C．存储器、打印机D．键盘和显示器
19、数组下标的数据类型要求是有序类型，以下数据类型不能作为数组下标的是（）。

（A）integer型；（B）real型；（C）boolean型；（D）char型
20、质因数都在集合{2, 3, 5, 7}中的数称为“丑数”，比如20=2*2*5，数20的质因数都在给所的集
合中，第二十小的丑数是（）：
A.24
B.25
C.27
D.28
二、简答题（每题5分，共10分）
1.右图是一局7行3列的扫雷。

其中星号代表已经被准确推断出来的雷，
空格和含字母的格子都还没有被推出来，有数字的格子代表它周围的格
子里一共有几个雷（是指左、左上、上、右上、右、右下、下、左下8个
方向格中的地雷数），则A、B、C代表的格子里共有_____个雷。

2．2014足球世界杯将在巴西举行，将有32支球队参加，共分成八个小组，每个小组四支球队，进行单循环比赛，这样每个小组会进行6场比赛，根据规则，每支球队胜一场得3分、平一场得1分、负一场得0分，积分排在前两名的进入下一轮淘汰赛。

在积分相同的情况下，净胜球(总进球减去总失球)较多的球队排名靠前，如果净胜球仍然相同，总进球较多的球队排名靠前，…，如果这样还是不能分出先后顺序的话，那么就只能通过抽签来决定小组的名次了。

如果中国队经过努力拼搏进入到2014世界杯小组赛，可能进入下一轮淘汰赛的最低分数是分。

三、阅读程序写结果（共4题，每题8分，共计32分）
1. program p301;
var
u:array[1..4] of longint;
i,a,b:longint;
begin
for i:=1 to 3 do read(u[i]);
a:=(u[1]+u[2]+u[3])*2;
b:=(u[1]+u[2]+u[3])*u[1] mod 26+4;
if b>13 then a:=a*100+b
else b:=b*100+a;
writeln(b);
end.
输入： 3 1 5
输出：________
2．program 302;
var
s,i,t:longint;
st:string;
begin
s:=1;
for i:=1 to 23 do s:=s*2;
str(s,st);
t:=pos('8',st);
while t<>0 do
begin
write(t,' ');
st[t]:='0';
t:=pos('8',st)
end;
end.
输出：
3. program p303;
var
l,r,i,now,ans,k:longint;
begin
readln(l,r);
ans:=0;
for i:=l to r do
begin
now:=i;
while now>0 do
begin
k:=now mod 10;
if k mod 2 =0 then inc(ans);
now:=now div 10;
end;
end;
writeln(ans);
end.
输入： 1 30
输出：
4. program p304;
var
a,b:array[1..100] of longint;
k,s,now,i,n:longint;
begin
now:=1;
for k:=0 to 10 do
begin
a[now]:=1;
for i:=1 to k do
begin
inc(now);
a[now]:=0;
end;
end;
readln(n);
for i:=1 to n do
begin
read(k);
write(a[k],' ');
end;
end.
输入：5
11 22 33 44 55
输出：
四、完善程序（前两空每空2分，后八空每空3分，共28分）
1．选择排序，百度百科中对选择排序的算法的描述是：每一趟从待排序的数据元素中选出最小（或最大）的一个元素，顺序放在已排好序的数列的最后，直到全部待排序的数据元素排完。

选择排序是不稳定的排序方法。

下面的程序是对n个数由小到大排序，请完善空格部份的语句。

var
a:array[0..100] of integer;
n,i,j,k:integer;
procedure swap(var x,y:integer);
var
t:integer;
begin
t:=x; ⑴ ;y:=t;
end;
begin
readln( ⑵ );
for i:=1 to n do read(a[i]);
for i:=1 to n-1 do
begin
k:= ⑶ ;
for j:=i+1 to n do
if a[k]>a[j] then k:=j;
if k<>i then swap( ⑷ )
end;
for i:=1 to n do writeln( ⑸ );
end.
2．孪生素数，就是这种间隔为2 的相邻素数，它们之间的距离已经近得不能再近了，就象孪生兄弟一样。

最小的孪生素数是(3, 5)，在100 以内的孪生素数还有(5, 7), (11, 13), (17, 19), (29, 31), (41,
43), (59, 61) 和(71, 73)，总计有8 组。

但是随着数字的增大，孪生素数的分布变得越来越稀疏，寻找孪生素数也变得越来越困难。

那么孪生素数是不是有无穷多个呢？这就集令人惊异的简单表述和令人惊异的复杂证明于一身的著名猜想——孪生素数猜想。

截至目前为止，人们发现的最大的孪生素数是：(33218925×2169690-1, 33218925×2169690+1)，许多年来这种记录一直被持续而成功地刷新着…,希望你们可能找出下一对孪生素数。

以下程序是求出前1000对孪生素数，请完善空格部分语句。

var
n,k:longint;
function f(n:longint):boolean;
var
k:longint;
flag:boolean;
begin
flag:=true;
k:=2;
while (k<=trunc(sqrt(n))) and ⑹ do
if n mod k=0
then flag:=false
else ⑺ ;
⑻ ;
end;
begin
n:=0;
k:=2;
repeat
if f(k) and ⑼
then begin
⑽ ;
writeln(k,' ',k+2)
end;
k:=k+1;
until n=1000;
end.
镇区选拔赛笔试试题答题卡
学校姓名年级辅导老师
------------○-------○--------○----------封装线----------○-----------○----------○----------------
总分评卷者
一、选择题：请选出各题正确答案的代码（A/B/C/D）（每题1.5分，共30分）
二、简答题（每题5分，共10分）
第1题5分
第2题5分
三、阅读pascal程序并写出运行结果（共32分,每题8分）
第1题：第2题：
第3题：第4题：
四、完善程序（前两空2分，后八空每空3分，共28分）
第1题：
⑴______________________ ⑵_______________________
⑶______________________ ⑷_______________________
⑸_______________________
第2题：
⑹______________________ ⑺_______________________
⑻______________________ ⑼_______________________
⑽
选拨赛笔试试题参考答案
第1题 1 （如右图填法）5
第2题 2 5分
三、阅读pascal程序并写出运行结果（共32分,每题8分）
第1题：518第2题： 1 3 4 7
第3题：25 第4题： 1 1 0 0 0
（评分说明：第2题如果没有全对，对应位置答对一个数字给2分，第4题如没有全对，对应位置答对一个数给1分）
四、完善程序（前两空2分，后八空每空3分，共28分）
第1题：
⑴_______x：=y_________ ⑵______n________________
⑶_______i______________ ⑷__a[i],a[k]_或a[k],a[i]_____
⑸________a[i]___________
第2题：
⑹____flag_（或flag=true）_ ⑺___k:=k+1或inc(k)_______
⑻_____f:=flag_____________ ⑼______f(k+2)__________
⑽ n:=n+1或 inc(n)。