宁波市第22届中小学生计算机程序设计竞赛

宁波市第22届中小学生计算机程序设计

竞赛

-CAL-FENGHAI-(2020YEAR-YICAI)_JINGBIAN

宁波市第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个下标变量，各个下标变量的赋值情形如下所示，则表达式

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） （D）

10、下列各种说法中，正确的是（）。

（A）所有的十进制小数都能准确地转换为有限位二进制小数

（B）汉字的计算机机内码就是区位码

（C）存储器具有记忆能力，其中的信息任何时候都不会丢失

（D）计算机中所有信息都采用二进制编码

11、算式（4095）10-（7FF）16+（3000）8的结果不正确的是（）。

（A）（3584）10（B）（111000000000）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）Free Pascal （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分）

program xx07_1;

const maxn=1000000;

var n,k,sum:longint;

f:array[1..maxn] of 0..1;

begin

readln(n);

for k:=1 to n do f[k]:=1;

for k:=1 to n div 2 do f[k*2]:=0;

for k:=1 to n div 3 do f[k*3]:=0;

sum:=0;

for k:=1 to n do sum:=sum+f[k];

writeln('sum=',sum);

end.

输入：1000

输出：sum=_______

第2题：请写出程序运行后变量ok的值（每空3分）

program xx07_2;

var s:string;

k,n:integer;ok:boolean;

begin

readln(s);n:=length(s);

k:=1;ok:=true;

while ok and (k<=n div 2) do

if s[k]<>s[n+1-k] then ok:=false

else k:=k+1;

writeln(ok);

end.

①输入：123，输出为：_______

②输入：121，输出为：_______

第3题：请写出程序运行后变量sum的值（6分）program xx07_3;

const maxn=1000;

var pos,value:array[1..maxn]of longint;

n,i,j,x,sum:longint;

change:boolean;

begin

read(n);

for i:=1 to n do read(pos[i],value[i]);

change:=true;i:=1;

while change and (i<=n-1) do begin

change:=false;

for j:=1 to n-i do

if value[j]>value[j+1] then begin

change:=true;

x:=value[j];value[j]:=value[j+1];value[j+1]:=x;

end;

i:=i+1;

end;

sum:=0;

for i:=1 to n do sum:=sum+pos[i]*value[i];

writeln('sum=',sum);

end.

输入：

10

1 10

2 1

3 2

4 9

5 3

6 4

7 8

8 5