搜索
第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中，把鼠标指针指向一个右边有“…”符号的菜单项，将弹出（A）工具栏（B）对话框（C）状态栏（D）子菜单5．InternetExplorer(IE)浏览器中的“收藏”菜单的主要功能是管理（A）图片（B）邮件（C）网址（D）文档6．E-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．一般家庭是通过非对称数字用户环路技术上网的，该技术的英文缩写是（A）DNS（B）（C）ISP(D)ADSL11．下列存储容量之间换算正确的是（A）1KB=1000B（B）1MB=1024KB（C）1MB=1024B（D）1GB=1024KB12．利用随机函数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）AORC（B）AANDB（C）NOT(AANDC)（D）NOT(AANDB)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、programxx301;vars:string;i,k,j:integer;begini:=1;s:='123!*&jhfokillltlllabethe';k:=length(s);repeatk:=k-i;inc(i);write(s[k]);untilk-i0;end.输出：______________________2、programxx302;consta:array[1..6]ofinteger=(3,2,4,6,5,1);varb:array[1..6]ofinteger;i,j,k:integer;beginb:=a;fori:=1to3doforj:=i+1to6doifb[i]b[j]thenbegink:=b[i];b[i]:=b[j];b[j]:=kend;fori:=1to6dowrite(b[i]:3);end.输出：_______________________________3、programxx303;vari,j,s,n,k:integer;beginreadln(n);s:=0;fori:=1tondobegink:=-1;forj:=1toidok:=-k;s:=s+k*i;end;writeln(s);end.输入：100输出：_____________________________________________4、Programxx304;varn:integer;functionsum(k:integer):integer;vari,s,t:integer;begins:=0;t:=1;fori:=1tokdobegint:=t*i;s:=s+t;end;sum:=send;beginn:=5;writeln(sum(n))end.输出：__________________________四、完善程序（前4空，每空3分，后4空，每空4分，共28分）。1、（插入排序）下面的程序的功能是输入n及n个整数，用插入排序的方法，将n个整数按从小到大的顺序输出，要求每行输出10个整数（最后一行可以不足10个）。请将程序补充完整。Programxx401;vara:array[1..1000]ofinteger;n,i,x,k:integer;beginreadln(n);read();fori:=2tondobegink:=i;read(x);while(k1)and()dobegina[k]:=;dec(k);end;a[k]:=x;end;fori:=1tondobeginwrite(a[i]:4);ifthenwritelnend;writelnend.2、（最大乘积）一个正整数一般可以分为几个互不相同的自然数的和，如3=1+2，4=1+3，5＝1+4=2+3，6=1+5＝2+4，…。下面给出的程序是将指定的不超过200的正整数n分解成若干个互不相同的自然数的和，且使这些自然数的乘积最大。请将程序补充完整。Programxx402;varn,k,m,i,j:integer;a:array[0..30]ofinteger;s:qword;beginreadln(n);k:=2;fillchar(a,sizeof(a),0);whilen=kdobegina[k]:=k;;inc(k);end;m:=k-1;fori:=mdownto2doifn0thenbeginn:=n-1;;endelsebreak;fori:=mdownto2doifn0thenbegina[i]:=a[i]+1;;endelsebreak;s:=1;fori:=1to30doifa[i]0then;writeln(s);end.2008年宁波市信息学竞赛初赛试题（小学组Pascal语言）参考答案与评分标准一、单项选择题：（每题2分）题号12345678910答案DAABCABCDD题号1112131415答案BBCDC二、问题求解：（每题5分）1．102．7三、阅读程序写结果1.hello!2.6542313.-504.153四、完善程序(前4空（①--④），每空3分，后4空（⑤--⑧），每空4分)（说明：以下各程序填空可能还有一些等价的写法，以上机验证通过为准）1．①a[1]②a[k-1]x或xa[k-1]或a[k-1]-x0……③a[k-1]④imod10=02.⑤n:=n-k或dec(n,k)⑥a[i]:=a[i]+1或inc(a[i])⑦dec(n)或n:=n-1⑧s:=s*a[i]或s:=a[i]*s