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

1、第23届2008年宁波市信息学竞赛初赛试题（ 小学组 Pascal 语言 二小时完成） 全部试题答案均要求写在答卷纸上，写在试卷纸上一律无效 一、 单项选择题（共15题，每题2分，共计30分。每题有且仅有一个正确答案。）1在计算机中，程序和数据统一存储并在程序控制下自动工作；提出这种理论体系的科学家是（A）申农（B）摩尔（C）盖茨（D）冯诺依曼2十进制数17转化为二进制数是（A） 10001（B） 10010（C） 10101（D） 110013下列属于文字处理软件的是（A）Word（B）ACDSee（C）GoldWave（D）Flash4在Windows中，把鼠标指针指向一个右边有“”符号的

2、菜单项，将弹出（A）工具栏（B）对话框（C）状态栏（D）子菜单5Internet Explorer(IE)浏览器中的“收藏”菜单的主要功能是管理（A）图片（B）邮件（C）网址（D）文档6E-mail邮件本质上是一个（A）文件（B）电报（C）电话（D）传真7由于网络的普及而兴起的一种新的数字音频格式是（A）MD（B）MP3（C）VCD（D）DVD8计算机要处理光盘中的信息时，必须将待处理的信息调入（A）U盘（B）硬盘（C）内存（D）显示器9区分局域网（）和广域网（）的依据是（A）网络用户（B）传输协议（C）联网设备（D）联网范围10一般家庭是通过非对称数字用户环路技术上网的，该技术的英文缩写是（

3、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 KB12利用随机函数random(3)可以产生的整数有（A）1、2（B）0、1、2（C）1、2、3（D）0、1、2、313语句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

4、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枚银币就可以拼成16的所有币值；如果他拥有1、2、100共一百枚银币，那么他只要用最少的 枚银币就可以拼成1100的所有币值。三、阅读程序写结果（共4题，每题8分，

5、共计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(sk); until k-i0;end. 输出：_2、 program xx302;const a:array1.6 of integer=(3,2,4,6,5,1); var b:array1.6 of integer; i,j,k:integer;begin b:=a; for i:=1 to 3 do for j:=i

6、+1 to 6 do if bi1) and ( ) do begin ak:= ; dec(k); end; ak:=x; end; for i:=1 to n do begin write(ai:4); if then writeln end; writelnend. 2、（最大乘积） 一个正整数一般可以分为几个互不相同的自然数的和，如3=1+2，4=1+3，51+4=2+3，6=1+52+4，。 下面给出的程序是将指定的不超过200的正整数n分解成若干个互不相同的自然数的和，且使这些自然数的乘积最大。请将程序补充完整。Program xx402;var n,k,m,i,j:integer

7、; a:array0.30 of integer; s:qword;begin readln(n); k:=2; fillchar(a,sizeof(a),0); while n=k do begin ak:=k; ; inc(k); end; m:=k-1; for i:=m downto 2 do if n0 then begin n:=n-1; ; end else break; for i:=m downto 2 do if n0 then begin ai:=ai+1; ; end else break; s:=1; for i:=1 to 30 do if ai0 then ; writeln(s);end.2008年宁波市信息学竞赛初赛试题（ 小学组Pascal语言）参考答案与评分标准一、单项选择题：（每题2分） 题号12345678910答案DAABCABCDD题号1112131415答案BBCDC二、问题求解：（每题 5分） 1 10 2 7三、阅读程序写结果 1. hello! 2. 6 5 4 2 3 13. -504. 153四、完善程序(前4空（-），每空3分，后4空（-），每空4分) （说明：以下各程序填空可能还