2005年长沙市小学生计算机奥林匹克竞赛初赛试题

2005年长沙市小学生计算机奥林匹克竞赛初赛试题
2005年长沙市小学生计算机奥林匹克竞赛初赛试题
（语言：TURBO PASCAL 时间：120分钟）
参赛证号姓名学校总分
一、单项选择题（每小题2分，共40分）
1、下列因素中，对计算机工作影响最小的是（B ）
A、尘土
B、噪声
C、温度
D、湿度
2、CPU包括的两部分是（C ）
A、存储器和运算器
B、存储器和控制器
C、运算器和控制器
D、主机和显示器
3、下列计算机网络的功能中，错误的是（C ）
A、远程教学
B、查询资料
C、传送能量
D、聊天
4、下列软件中，属于操作系统是（D ）
A、Pascal
B、Office
C、Flash
D、Windows
5、下列哪个部件对于个人桌面电脑的正常运行不是必需的（C ）
A、显卡
B、CPU
C、光驱
6、计算机软件保护法是用来保护软件的（A ）
A、著作权
B、编写权
C、使用权
D、复制权
7、Pascal语言属于计算机的（B ）语言。

A、汇编
B、高级
C、机器
D、低级
8、将十进制数2005转换成二进制数是（A ）
A、11111010101
B、1111010101
C、11111010011
D、1111010011
9、在Pascal语言环境下，运行一个程序，下列快捷键组合正确的是（D ）
A、ALT+F5
B、ALT+F9
C、CTRL+F5
D、CTRL+F9
10、下列变量名中，正确的是（B ）
A、12PAS
B、PAS12
C、VAR
D、TO
11、屏上显示一个数据1.23456000000E+2，它属于下列（B ）类型
A、INTEGER
C、CHAR
D、BOOLEAN
12、执行WRITELN(3.1415926:5:3)的结果为（D ）
A、3.1
B、3.14
C、3.141
D、3.142
13、设A为整数型，B为实数型，则下列赋值语句中正确的是（D ）
A、A:=3.14
B、A:=A/2
C、A:=B MOD 2
D、B:=A DIV 2
14、设K、M为正整数，且K<="" p="">
2))*K+ORD(M>K)*M的值是（C ）
A、K
B、M
C、K+M
D、M-K
15、设A=…0123456789ABCDEF?，则COPY(COPY(A,3,12),5,5)的值是（D ）
A、…45678?
B、…56789?
C、…789AB?
D、…6789A?
16、表达式98 DIV 2 MOD 5*3-ROUND(2.57+6-2*INT(0.35*4))的值是（A ）
A、5
B、6
D、19
2005年东莞市小学生计算机程序设计竞赛
决赛试题(一) pascal语言
说明：请将答案填在答题卡上，只交答题卡，时间9：00—11：
00
一、选择题（每题1分，共10分）
1、在WORD中，将一段文字移到整个文档最后，正确的操作步骤的顺序是（）
（1）打开编辑菜单，选择粘贴命令（2）选择要移动的一段文字使其反黑
（3）打开编辑菜单，单击复制命令（4）把光标移到文档的最后
A （1）（2）（3）（4）
B （3）（2）（4）（1）
C （2）（3）（4）（1）
D （3）（1）（2）（4）
2、/doc/d39ca47710a6f524ccbf85e3.html 中的“cn”代表了（）
A 国家（中国）
B 省市
C 用户
D 服务器
3、64K存储器含（）个字节
A 64000
B 65536
C 64536
D 32768
4、计算机病毒一般寄生在（）中
A 中央处理器
C 输入设备
D 输出设备
5、启动WINDOWS后，不是桌面上常见的图标是（）
A 我的电脑
B 回收站
C 控制面板
D 我的文档
6、在WINDOWS中，使用鼠标打开某个对象快捷菜单的操作方法是（）
A 单击对象
B 双击对象
C 拖动对象
D 右击对象
7、用A表示某个人的总成绩，用B表示这个人的语文成绩，用C 表示这个人的数学成绩。

那么，用来表达总分不低于170分，同时数学成绩不低于90分，或者语文成绩不低于86分的逻辑表达式是（）
A A>=170 AND B>=86 OR C>=90
B 总分超过170，并且语文超过86或数学超过90
C A>=170 AN
D (B>=86 OR C>=90)
D （A>=170 AND B>=86）OR C>=90
8、已知一个数字方阵，共M排（1—M），每排N个（1—N）。

现要求将这个数字方阵存放到一个长条形盒中（盒中长度不限），且盒中原来从头已经放有K个数字。

如果按排取数存放，则数字方阵中第I排第J个数字，应该放在盒中的（）位置
A (I-1)*N+J-1
B K+(I-1)*N+J
C K+(J-1)*M+I
D (J-1)*M+I-1
9、下列存储器中，存取速度最快的是：（）。

A 软盘
B 硬盘
C 光盘
D 内存1
10、为了让计算机完成了一个完整的任务而编制的一串指令序列称之为。

A．命令B．口令C．程序D．软件
二、填空题（每小题5分，共15分）1．有一根长度是a的不均匀棒子。

现要找一个支点A，使得该支点正好可使棒子处于平衡状态。

X
左
右0 A a 请完善下面的算法：第一步：C0=0，C1=a 第二步：A=（C0+C1）/2
第三步：取上一步支点A，此时有三种情况：（1）以A为支点，棒平衡，算法结束。

（2）右边重，则需令，回第二步重复；（3）左边重，则需令，回第二步重复；
2、有5本日文书，7本英文书，10本中文书，从中取两本不同文字的书，问有多少种方案？
3、小明有X个玻璃杯，他想在每个杯子里放入若干个小球，并使各个杯子中的小球互不相同，但允许有一个空杯。

问：小明至少要有多少小球，才可达到目的。

三、写出下列程序的运行结果（共36分，每小题6分）
2
四、程序填空（每空3分，共39分）1、上楼梯问题[问题描述]
有一个N级的楼梯，N从键盘输入，上楼梯时一次可以上1级，也可以上2级，也可以上3级，问N级的楼梯共有几种不同的上楼方案。

[程
序说明] 用递推方法求解。

[程序清单] program f1_401; var
n,a,b,c,d,i:integer; begin
write('n='); readln(n); if n=1 then c:=1; if n=2 then c:=2; if n=3 then c:=4; if n>3 then begin
a:=1;b:=2; c:=4; for i:=4 to n do begin
a:=b; end; end; writeln(c);
end.
2、编写用筛选法求1-n(n≤200)以内素数的程序
分析: 由希腊著名数学家埃拉托色尼提出的所谓“筛选法”，步骤如下：①设所有待求素数的范围为2－N；②找出其中最小数（必为素数），设为K，输出；③在2至N的所有数中，将K的所有倍数从中去掉；
④重复②～④直到所有的数都被去掉，即找到了所有的素数。

编程时，用数组作标记的方法，a(k)=1表示保留某个数，a(k)=0表示去掉某个数。

源程序如下：program f1_402; var
n,i,j,k,t,ok:integer; a:array[1..200] of integer; begin
write('n='); readln(n); for i:=2 to n do ; t:=1; repeat ok:=0; ; repeat j:=j+1; if a[j]=1 then begin write(j,' '); ok:=1; for k:=j to n do
then a[k]:=0; end;
); ; until t>n; end. 3．找数问题
[问题描述] 读入若干个不相同且不为0的数X，以0作为输入结果标记，不用排序求
出其中第R个大的数（R从键盘输入），即有R-1个数比它大，其余的数都比它小。

例如：输入3，14，22，15，17，6，0，3，则输出其中第3个大的数为15。

[算法说明] 以数组A[1．．200]记录读入的数，并以0为结束（0本身不是数列中的数）。

然后从第一个数开始，将它与其余的数进行比较并记录出比它大的数的个数（存于变量Y中），若Y=R-1时，得到所求结果，否则对下一个
数进行同样的处理。

[程序清单] program f1_403; var i,j,k,p,x,y,r:integer; a:array[1..20] of integer; begin j:=0; readln(x);
while do begin j:=j+1; a[j]:=x; end; readln(r); p:=1; i:=1; while p=1 do begin ; y:=0; for k:=1 to j do
if x<="" end;="" i:="i+1;" if="" p="" p:="0;" then="" writeln(x);="">
第6/7页2005年东莞市小学生计算机程序设计竞赛
决赛试题(一) pascal语言参考答案
一、选择题（每题1分，共10分）
二、填空题（第1小题每空2分，第2小题7分，共15分）1、（2）右边重，则需令等于（3）左边重，则需令C1 等于A ，回第二步重复；2、5*7+10*5+10*7=155
3、三、写出下列程序的运行结果（共36分，每题6分）
1. 2. 3. 4.
四、程序填空（每空3分，共39分）
第四届绍兴市少儿信息学竞赛试题；（小学组PASCAL语言二小时完成）；
●●全部试题答案都要求写在答卷纸上，写在试卷上一；一、选择一个正确答案代码（A/B/C/D），填入；个正确答案，多选或错选都无分；1、现有的计算机都是采用（）提出的存储程序和二进；A．图灵B．冯·诺伊曼；C．爱因斯坦D．布尔；2、计算机的存储系统中，能被CPU直接存取的是（；A．内存储器B
第四届绍兴市少儿信息学竞赛试题
（小学组PASCAL语言二小时完成）
●●全部试题答案都要求写在答卷纸上，写在试卷上一律无效●●
一、选择一个正确答案代码（A/B/C/D），填入每题的括号内（每题2分，每题只有一
个正确答案，多选或错选都无分。

共30分）
1、现有的计算机都是采用（）提出的存储程序和二进制的原理制
造的。

A．图灵B．冯·诺伊曼
C．爱因斯坦D．布尔
2、计算机的存储系统中，能被CPU直接存取的是（）。

A．内存储器B．磁盘存储器
C．CD-ROM D．外存储器
3、下列可选项，都是硬件的是（）。

A．Windows、ROM和CPU B．WPS、RAM和显示器
C．ROM、RAM和Pascal D．硬盘、光盘和软盘
4、应用软件是专业人员为各种应用目的而编制的程序，以下（）是应用软件。

A．操作系统B．文字处理软件
C．数据库管理系统D．语言处理程序
5、以下是关于计算机病毒的说法，不正确的是（）。

A．病毒属于计算机软件
B．病毒属于硬件
C．病毒具有破坏性、传播性、可激发性、潜伏性、隐蔽性等特点D．若软盘染上病毒，格式化软盘可以清除病毒
6、计算机网络的最大优点是（）。

A．资源共享B．运算速度加快
C．计算精度提高D．内存容量增大
7、计算机网络中，互连的各种数据终端，是按（）相互通信。

A．网络协议B．连线
C．以太网D．数据格式
8、电子邮件的邮箱（）。

A．在ISP的服务器上B．在你申请的网站的服务器上
C．在Outlook Express里D．在Outlook Express里的电脑里
9、与十六进制3D相等的数是（）。

A．60 B．（00111110）2
C．（76）8 D．（00111101）2
10．Windows中，不能在显示属性中设置的是_____ 。

A. 屏幕刷新率
B. 屏幕保护程序
C. 系统日期
D. 墙纸的设置
11、给定队列的入队顺序1，2，3，共有几种可能的出队序列（）。

A．3 B．2
C．1 D．4
12、如果一棵满二叉树有n个叶结点，则这棵树的结点总数为（）。

A．2n B．2n-1
C．2n+1 D．n2-1
13、下列哪个选项不是程序设计的基本控制结构（）。

A．顺序结构B．分支结构
C．循环结构D．数据结构
14、在Pascal程序设计中，我们可以利用（）语句使程序终止运行。

A．halt B．end
C．break D．quit
15、产生100至300之间的随机整数（Random），且包含100、300两个整数的表达式是（）。

A．random(100)+200 B．random(200)+100
C．random(201)+100 D．random(300)
二、问题求解（每题5分，共10分）
1、一个栈的进栈序列为1，2，3，4，请问，出栈序列一共有多少种？
2、绍兴市信息学竞赛临近，某校要组队参加竞赛，要从12名学生中选4名参加比赛，其中少儿组2名，初中组2名，请问共有几种组队方法？
三、阅读程序，写出程序的正确运行结果（7+7+8+8=30分）
1、program test01;
var
x,y:integer;
begin
readln(x,y);
x:=x+y;
y:=x-y;
x:=x-y;
write(x,' ',y);
end.
输入：3 7
输出：
2、program test02;
var
x:longint;
n,i:integer;
begin
readln(n);
x:=1;
for i:=1 to n do
x:=x*i;
writeln(x);
end.
输入：8
输出：
3、program test03; function f(n:integer):integer; begin if n=0 then f:=1
else if n<0 then f:=f(n+1)+3 else f:=f(n-1)-2;
end;
begin
writeln(f(f(2)));
end.
4、program test04;
var
i,j,a:longint;
s:array[1..32] of longint;
begin
readln(a);
j:=0;
while a<>0 do begin
inc(j);
s[j]:=a mod 2;
a:=a div 2;
end;
if j=0 then write(0) else
for i:=j downto 1 do
write(s[i]);
end.
输入：58
输出：
四、完善程序（根据问题要求和已有程序，在空格处填入适当的语句或符号，使程序完整。

每空3分，共30分）
1、贪心的武松
【问题描述】
曾经因打虎而闻名的武松在x年后接到了景阳岗动物园的求助信，信上说：最近我们动物园逃跑了几只老虎，请您把它们抓回来，谢谢!!
武松接到信之后立刻上了山。

正当他到半山腰时，突然跳出n只猛虎来。

每只老虎都有一块虎牌，牌上写的是每一只虎最大拥有的体力，当武松与老虎pk 时，若老虎的体力先用完，那么老虎over,否则武松over,求武松在over之前最多能干掉几只老虎？
（注：老虎是一只只上的）
第一行两个数字n（老虎的只数）,m（武松的体力）。

第二行n 个数字,分别表示每只老虎的体力（每只虎的体力按从小到大排列）。

【输出】
一行，最多能干掉的老虎数。

【样例输入】
3 6
1 3 9
【样例输出】
2
请完善以下程序
program test05；
var
n,m,i,num:integer;
a:array[1..100] of integer;
begin
fillchar(a,sizeof(a),0);
read(n,m);
for i:=1 to n do
num:=0; i:=1;
) do
begin
m:=m-a[i];
if m>=0 then begin
num:=num+1;
end;
end;
end.
2、合并礼物
【问题描述】
圣诞节快到了，圣诞老人又要开始忙起来了，和往年一样，圣诞老人要在礼物乐园里挑选礼物送给小朋友们。

在礼物乐园，圣诞老人挑选好礼物后，把礼物按照不同的种类分成了不同的堆，现在，圣诞老人决定把所有的礼物合成一堆。

每一次合并，圣诞老人可以把两堆礼物合并到一起，消耗的体力等于两堆礼物的重量之和。

可以看出，所有的礼物经过n-1次合并之后，就只剩下一堆了。

圣诞老人在合并礼物时总共消耗的体力等于每次合并所耗体力之和。

因为还要花大力气把这些礼物搬到他的鹿车，所以圣诞老人在合并礼物时要尽可能地节省体力。

假定每个礼物重量都为1，并且已知礼物的种类和每种礼物的数目，你的任务是设计出合并的次序方案，使圣诞老人耗费的体力最小，并输出这个最小的体力耗费值。

例如有3种礼物，数目依次为1，2，9。

可以先将1、2堆合并，新堆数目为3，耗费体力为3。

接着，将新堆与原先的第三堆合并，又得到新的堆，数目为12，耗费体力为12。

所以圣诞老人总共耗费体力=3+12=15。

可以证明15为最小的体力耗费值。

【输入】
输入包括两行，第一行是一个整数n（1 <= n <= 100），表示礼物的种类数。

第二行包含n个整数，用空格分隔，第i个整数ai（1 <= ai <= 100）是第i种礼物的数目。

【输出】
输出包括一行，这一行只包含一个整数，也就是最小的体力耗费值。

【样例输入】
3
1 2 9
【样例输出】
15
【解题思路】
首先将所有的礼物堆按照每堆礼物的数目进行排序，将数目最少
的两堆礼物合并，然后再将新堆放入数列中重新排序，再取出最少数目的两堆合并??每次合并后将体力消耗值加入到total变量，依次类推，经过n-1次合并后，所有礼物都合并成了一堆，total即为问题所求的“最小的体力耗费值”。

请完善以下程序：
program test06;
var
n,i,j,total:longint;
a:array[0..101] of longint;。