第23届2008年宁波市信息学竞赛初赛试题 含答案

第23届2008年宁波市信息学竞赛初赛试题

（ 小学组 Pascal 语言 二小时完成）

● ● 全部试题答案均要求写在答卷纸上，写在试卷纸上一律无效 ●●

一、 单项选择题（共15题，每题2分，共计30分。每题有且仅有一个正确答案。）

1．在计算机中，程序和数据统一存储并在程序控制下自动工作；提出这种理论体系的科学家是

（A）申农 （B）摩尔 （C）盖茨 （D）冯·诺依曼 2．十进制数17转化为二进制数是 （A） 10001

（B） 10010

（C） 10101 （C）GoldWave （C）状态栏

（D） 11001 （D）Flash （D）子菜单

3．下列属于文字处理软件的是 （A）Word （B）ACDSee （A）工具栏

（B）对话框

4．在Windows中，把鼠标指针指向一个右边有“ ”符号的菜单项，将弹出

5．Internet Explorer(IE)浏览器中的“收藏”菜单的主要功能是管理 （A）图片

（B）邮件

（C）网址

（D）文档

6．E-mail邮件本质上是一个 （A）文件

（B）电报

（C）电话

（D）传真

7．由于网络的普及而兴起的一种新的数字音频格式是 （A）MD

（B）MP3

（C）VCD

（D）DVD （D）显示器

8．计算机要处理光盘中的信息时，必须将待处理的信息调入 （A）U盘 （B）硬盘 （C）内存 9．区分局域网（ＬＡＮ）和广域网（ＷＡＮ）的依据是 （A）网络用户

（B）传输协议

（C）联网设备

（D）联网范围

10．一般家庭是通过非对称数字用户环路技术上网的，该技术的英文缩写是 （A）DNS

（B）WWW

（C）ISP

(D) ADSL

11．下列存储容量之间换算正确的是

（A）1 KB = 1000 B （B）1 MB = 1024 KB （C）1 MB = 1024 B （D）1 GB = 1024 KB 12．利用随机函数random(3)可以产生的整数有 （A）1、2 （B）0、1、2 （C）1、2、3 （D）0、1、2、3 13．语句c:=a=b能正确执行，其中变量a、b是整型数，则变量c的类型是 （A）整数 （B）实型 （C）布尔型 （D）字符型 14．设A=B=True，C=D=False，下列逻辑运算表达式值为False的是 （A）A OR C （B）A AND B （C）NOT ( A AND C ) （D）NOT ( A AND B )

15．将数组{ 1, 2, 4, 3, 5, 6, 7, 8 }中的元素用冒泡排序的方法按从大到小的顺序排列，需要比较的次数是 （A） 7 （B） 27 （C） 28 （D）64

二、问题求解（共2题，每题5分，共计10分）。

1．不同的两条直线最多只有1个交点，不同的三条直线最多只有3个交点，那么不同的五条直线最多共有 个交点。

2．某人拥有面值为1、2、3、4、5、6的六枚银币，他发现只要用面值为1、2、3的3枚银币就可以拼成1～6的所有币值；如果他拥有1、2、 、100共一百枚银币，那么他只要用最少的 枚银币就可以拼成1～100的所有币值。

三、阅读程序写结果（共4题，每题8分，共计32分。） 1、 program xx301;

var

s:string;

i,k,j:integer;

begin i:=1;

s:='123!*&jhfokillltlllabethe'; k:=length(s); repeat k:=k-i; inc(i);

write(s[k]); until k-i<0;

end.

输出：______________________

2、 program xx302;

const

a:array[1..6] of integer=(3,2,4,6,5,1);

var

b:array[1..6] of integer; i,j,k:integer;

begin b:=a;

for i:=1 to 3 do for j:=i+1 to 6 do

if b[i]<b[j] then begin

k:=b[i];b[i]:=b[j];b[j]:=k end;

for i:=1 to 6 do write(b[i]:3);

end.

输出：_______________________________

3、 program xx303;

var

i,j,s,n,k:integer;

begin

readln(n); s:=0;

for i:=1 to n do begin k:=-1;

for j:=1 to i do k:=-k; s:=s+k*i; end;

writeln(s);

end.

输入：100 输出：_____________________________________________

4、 Program xx304;

var

n:integer;

function sum(k:integer):integer; var

i,s,t:integer; begin

s:=0;t:=1;

for i:=1 to k do begin t:=t*i; s:=s+t; end; sum:=s end;

begin n:=5;

writeln(sum(n))

end.

输出：__________________________

四、完善程序（前4空，每空3分，后4空，每空4分，共28分）。 1、（插入排序）下面的程序的功能是输入n及n个整数，用插入排序的方法，将n个整数按从小到大的顺序输出，要求每行输出10个整数（最后一行可以不足10个）。 请将程序补充完整。 Program xx401; var

a:array[1..1000] of integer; n,i,x,k:integer; begin

readln(n); read(

);

for i:=2 to n do begin k:=i; read(x);

while (k>1) and ( a[k]:=

;

) do begin

dec(k); end; a[k]:=x; end;

for i:=1 to n do begin write(a[i]:4); if

then writeln

end; writeln end. 2、（最大乘积） 一个正整数一般可以分为几个互不相同的自然数的和，如3=1+2，4=1+3，5＝1+4=2+3，6=1+5＝2+4， 。

下面给出的程序是将指定的不超过200的正整数n分解成若干个互不相同的自然数的和，且使这些自然数的乘积最大。请将程序补充完整。

Program xx402; var

n,k,m,i,j:integer;

a:array[0..30] of integer; s:qword; begin

readln(n); k:=2;

fillchar(a,sizeof(a),0); while n>=k do begin a[k]:=k;

;

inc(k); end; m:=k-1;

for i:=m downto 2 do if n>0 then begin n:=n-1;

;

end else break; for i:=m downto 2 do if n>0 then begin

a[i]:=a[i]+1;

;

end else break; s:=1;

for i:=1 to 30 do if a[i]>0 then writeln(s); end.

;