宁波市第届中小学生计算机程序设计竞赛样本样本.docx
《宁波市第届中小学生计算机程序设计竞赛样本样本.docx》由会员分享，可在线阅读，更多相关《宁波市第届中小学生计算机程序设计竞赛样本样本.docx（12页珍藏版）》请在冰豆网上搜索。
宁波市第届中小学生计算机程序设计竞赛样本样本
宁波市第22届中小学生计算机程序设计竞赛初赛试题（小学组）
（考试时间120分钟，满分100分）
●●所有提交答案都以写在答卷纸上为准，写在试卷上一律无效●●
学校 姓名
一、选取题：
请选出各题对的答案代码（A/B/C/D）（每题2分，共40分）
1、在微型计算机中文系统中，一种中文内码所占字节数是（）。
（A）1（B）2（C）3（D）4
2、软盘加上写保护后，这时对它可进行操作是（）。
（A）只能读盘，不能写盘（B）既可读盘，又可写盘
（C）只能写盘，不能读盘（D）不能读盘，也不能写盘
3、下列存储设备中，断电后其中信息会消失是（）。
（A）硬盘（B）ROM（C）RAM（D）U盘
4、pascal语言中运算（-13）MOD（-2）成果是（）。
（A）1（B）-1（C）0（D）-2
5、数组A有10个下标变量，各个下标变量赋值情形如下所示，则表达式A[A[A[5]]]值是（）。
A[1]
A[2]
A[3]
A[4]
A[5]
A[6]
A[7]
A[8]
A[9]
A[10]
4
5
1
7
10
2
9
8
3
6
（A）10（B）5（C）6（D）2
6、1GB=（）KB。
（A）1000（B）1024（C）1024×1024（D）1000×1000
7、下面关于计算机病毒说法，错误是（）。
（A）为防止病毒感染计算机，使用软盘时，将软盘写保护
（B）计算机病毒不但能损坏文献，还也许导致电脑主板等硬件损坏
（C）上网电脑有也许会感染病毒
（D）计算机病毒也是程序
8、下列存储器中，存取速度最快是（）。
（A）软盘（B）内存（C）光盘（D）硬盘
9、在Windows中，能通过输入“?
a*.?
”命令查找到文献是（）。
（A）pascal.c（B）ppa.1（C）pa1wer.cc（D）dhdtfgpa1.cc
10、下列各种说法中，对的是（）。
（A）所有十进制小数都能精确地转换为有限位二进制小数
（B）中文计算机机内码就是区位码
（C）存储器具备记忆能力，其中信息任何时候都不会丢失
（D）计算机中所有信息都采用二进制编码
11、算式（4095）10-（7FF）16+（3000）8成果不对的是（）。
（A）（3584）10（B）（）2（C）（17000）8（D）（E00）16
12、下列函数值是整型是（）。
（A）chr（23）（B）ord（false）（C）succ（false）（D）odd（98）
13、把整数5转换为字符’5’表达式是（）。
（A）Ord（5+chr（‘0’））（B）ord（5+chr（0））
（C）chr（5+ord（‘0’））（D）chr（5+ord（0））
14、如下原则数据类型中，不能作为for循环控制变量是（）。
（A）integer型；（B）real型；（C）boolean型；（D）char型
15、在E-MAIL系统中，用于接受邮件服务器称为（）服务器。
（A）POP3（B）SMTP（C）DNS（D）FTP
16、衡量网络上数据传播速率单位是bps，其含义是（）。
（A）数据每秒传送多少二进制位；（B）数据每秒传送多少字节；
（C）数据每秒传送多少公里；（D）数据每秒传送多少千公里。
17、下列各项中不属于系统软件是（）。
（A）Windows（B）Word（C）FreePascal（D）DOS
18、下列计算机设备中，不是输出设备是（）。
（A）显示屏（B）音箱（C）打印机（D）扫描仪
19、有一种容量大小为4栈，元素A、B、C、D按照A、B、C、D顺序依次入栈，且每个元素在出栈后不得再重新入栈，如果入栈和出栈操作序列为：
入栈-入栈-出栈-入栈-出栈-出栈-入栈-出栈，问元素A将是第几种出栈？
（）
（A）1（B）2（C）3（D）4
20、在线性表两种存储表达中，下列描述对的是（）。
（A）数组利于插入，不利于查找（B）链表利于查找，不利于插入
（C）数组利于查找，不利于插入（D）数组与链表中插入与查找效率差不多
二、阅读pascal程序并写出运营成果（每题6分，共18分）
第1题：
请写出程序运营后变量sum值（6分）
programxx07_1;
constmaxn=1000000;
varn,k,sum:
longint;
f:
array[1..maxn]of0..1;
begin
readln（n）;
fork:
=1tondof[k]:
=1;
fork:
=1tondiv2dof[k*2]:
=0;
fork:
=1tondiv3dof[k*3]:
=0;
sum:
=0;
fork:
=1tondosum:
=sum+f[k];
writeln（'sum=',sum）;
end.
输入：
1000
输出：
sum=_______
第2题：
请写出程序运营后变量ok值（每空3分）
programxx07_2;
vars:
string;
k,n:
integer;ok:
boolean;
begin
readln（s）;n:
=length（s）;
k:
=1;ok:
=true;
whileokand（k<=ndiv2）do
ifs[k]<>s[n+1-k]thenok:
=false
elsek:
=k+1;
writeln（ok）;
end.
①输入：
123，输出为：
_______
②输入：
121，输出为：
_______
第3题：
请写出程序运营后变量sum值（6分）
programxx07_3;
constmaxn=1000;
varpos,value:
array[1..maxn]oflongint;
n,i,j,x,sum:
longint;
change:
boolean;
begin
read（n）;
fori:
=1tondoread（pos[i],value[i]）;
change:
=true;i:
=1;
whilechangeand（i<=n-1）dobegin
change:
=false;
forj:
=1ton-ido
ifvalue[j]>value[j+1]thenbegin
change:
=true;
x:
=value[j];value[j]:
=value[j+1];value[j+1]:
=x;
end;
i:
=i+1;
end;
sum:
=0;
fori:
=1tondosum:
=sum+pos[i]*value[i];
writeln（'sum=',sum）;
end.
输入：
10
110
21
32
49
53
64
78
85
96
107
输出为：
sum=_______
三、简答题（第1题6分，第2题8分，共14分）
第1题：
河二岸（A岸、B岸）各有15个码头，它们距上游某都市距离如下表所示，且A岸一种码头只与B岸一种码头（即表中上下相应二个）有航线，在保证不浮现航线交叉状况下，问：
（1）最多能同步开通几条航线？
（3分）
（2）能达到
（1）中最多航线条数不同通航方案共有几种？
（3分）
A岸
2
10
15
9
13
4
1
7
11
3
6
5
8
12
14
B岸
4
6
13
9
11
10
3
14
7
1
2
5
8
15
12
第2题：
有一堆火柴共若干根，现由甲乙两人轮流从中拿取。
规定：
除最先轮到取火柴者，其第一次可以拿走任意数目火柴（但不能拿完，也不能不拿）外，接下来轮到者，每次至少要拿走一根，但至多只可拿走上次对方所取火柴数目两倍，并商定：
最先将火柴取光者为胜者。
问：
（1）若原先这堆火柴根数不少于2根，但最多不多于9根，问：
共有哪些状况能保证最先轮到取火柴者必胜？
（写出相应原先这堆火柴根数）（4分）
（2）若原先这堆火柴根数不少于10根，但最多不多于23根，问：
有哪些状况使最先轮到取火柴者必败？
（写出相应原先这堆火柴根数）（4分）
四、完善程序（第一大题12分，第二大题16分，共28分）
第1题：
完全数（每空3分，共12分）
如果一种正整数所有不大于它自身因子之和等于该正整数，则该正整数称为完全数。
例如6=1+2+3，于是6称为完全数；28=1+2+4+7+14，28也是完全数。
如下程序输入一种数n，输出1至n中完全数个数。
请完善该程序。
programxx07_5;
varn,i,count:
longint;
functionWanQuanShu（k:
longint）:
longint;
vari,sum:
longint;
begin
①_____________;
fori:
=1tokdiv2do
if②_____________then
sum:
=sum+i;
ifsum=kthen
WanQuanShu:
=③________
else
WanQuanShu:
=④________;
end;
begin
readln（n）;
count:
=0;
fori:
=1tondo
count:
=count+wanquanshu（i）;
writeln（count）;
end.
第2题：
石子划分（每空4分，共16分）
给出n堆石子，以及每堆石子数。
请将它们分为两堆，使得这两堆总石子数差最小。
输入n，以及每堆石子数，输出分为两堆后最小差值。
例如，n=4，四堆石子分别有13，6，8，14颗，则可以分为13+8和14+6两堆，它们最小差为1。
如下程序：
（1）求得所有石子数total，以及它一半half；
（2）在所有石子堆中作恰当选取，对每种选取方案，求不超过half已选中堆中石子总数最大值max。
所求即为（total-max）-max。
（3）以a[j]表达第j堆石子数；以b[j]表达第j堆石子与否被选中，如果b[j]=1，表达第j堆被选中，如果b[j]=0表达第j堆没有被选中。
（4）各种方案表达及顺序如下：
以00…00（均不选中），00..01（只选中第n堆石子），00..10（只选中第n-1堆石子），00…11（选中第n-1堆和第n堆石子），00…100（选中第n-2堆石子），00…101（选中第n-2堆和第n堆石子），11…11（选中所有n堆石子）。
请完善该程序。
programxx07_6;
constmaxn=20;
varn,i,j:
longint;
total,half,sum,max:
longint;
a:
array[1..maxn]oflongint;
b:
array[0..maxn]of0..1;
begin
readln（n）;
total:
=0;
fori:
=1tondobegin
read（a[i]）;
total:
=total+a[i];
end;
half:
=totaldiv2;
max:
=0;
fori:
=1tondob[i]:
=0;
i:
=n;
whilei>0dobegin
sum:
=0;
forj:
=1tondo
sum:
=⑤________________;
if ⑥______________________then
max:
=sum;
i:
=n;
while（i>0）and（b[i]=1）do
i:
=⑦____________;
ifi>0thenbegin
b[i]:
=⑧_________;
forj:
=i+1tondob[j]:
=0;
end;
end;
writeln（total-max-max）;
end.
宁波市第22届中小学生计算机程序设计竞赛
初赛答卷（小学组）
（考试时间120分钟，满分100分）
●●所有提交答案都以写在答卷纸上为准，写在试卷上一律无效●●
学校 姓名 得分
一、选取题：
请选出各题对的答案代码（A/B/C/D）（每题2分，共40分）
题号
1
2
3
4
5
6
7
8
9
10
答案
题号
11
12
13
14
15
16
17
18
19
20
答案
二、阅读pascal程序并写出运营成果（每题6分，共18分）
第1题：
请写出程序运营后变量sum值（6分）。
sum值为：
_______________
第2题：
请写出程序运营后变量ok值（每空3分，共6分）
①输入：
123，ok值为：
_____________②输入：
121，ok值为：
_____________
第3题：
请写出程序运营后变量sum值（6分）。
sum值为：
____________
三、简答题（第1题6分，第2题8分，共14分）
第1题（每小题3分，共6分）：
（1）
（2）
第2题（每小题4分，共8分）：
（1）
（2）
四、完善程序（第1题12分，第2题16分，共28分）
第1题：
（每空3分，共12分）
①______________________②_______________________
③______________________④_______________________
第2题：
（每空4分，共16分）
⑤______________________⑥_______________________
⑦______________________⑧_______________________
宁波市第22届中小学生计算机程序设计初赛试题答题卷
（小学组）
学校姓名准考证号
一、选取题（每小题2分，共40分）
1
2
3
4
5
6
7
8
9
10
11
12
13
B
A
C
B
D
C
A
B
A
D
C
B
C
14
15
16
17
18
19
20
B
A
A
B
D
C
B
二、阅读程序，并写出程序对的运营成果（每空6分，共30分）
1、程序运营成果：
sum=333
2、程序运营成果：
输入123输出：
FALSE
输入121输出：
TRUE
3、程序运营成果：
sum=385
三、
1、8条航线
2种方案
2、
（1）4、6、7、9根
（2）除12，18根外
四、程序填空（每空5分，共30分）
1、①sum:
=0②kmodi=0
③1④0
2、⑤sum+a[j]*b[j]
⑥（sum<=half）and（sum>max）
⑦i-1⑧1
升级会员 