宁波市第届中小学生计算机程序设计竞赛样本样本.docx

1、宁波市第届中小学生计算机程序设计竞赛样本样本宁波市第22届中小学生计算机程序设计竞赛初赛试题（小学组）（考试时间120分钟，满分100分）所有提交答案都以写在答卷纸上为准，写在试卷上一律无效学校姓名一、选取题：请选出各题对的答案代码（A/B/C/D）（每题2分，共40分）1、在微型计算机中文系统中，一种中文内码所占字节数是（ ）。（A）1 （B）2 （C）3 （D）42、软盘加上写保护后，这时对它可进行操作是（ ）。（A）只能读盘，不能写盘 （B）既可读盘，又可写盘（C）只能写盘，不能读盘 （D）不能读盘，也不能写盘3、下列存储设备中，断电后其中信息会消失是（ ）。（A）硬盘 （B）ROM （

2、C）RAM （D）U盘 4、pascal语言中运算（-13） MOD （-2）成果是（ ）。 （A）1 （B）-1 （C）0 （D）-2 5、数组A有10个下标变量，各个下标变量赋值情形如下所示，则表达式AAA5值是（ ）。 A1A2A3A4A5A6A7A8A9A1045171029836（A）10 （B）5 （C）6 （D）2 6、1GB= （ ）KB 。（A） 1000 （B） 1024 （C）10241024 （D）100010007、下面关于计算机病毒说法，错误是（ ）。（A）为防止病毒感染计算机，使用软盘时，将软盘写保护（B）计算机病毒不但能损坏文献，还也许导致电脑主板等硬件损坏（C

3、）上网电脑有也许会感染病毒 （D）计算机病毒也是程序8、下列存储器中，存取速度最快是（ ）。 （A）软盘 （B）内存 （C）光盘 （D）硬盘9、在Windows 中，能通过输入“?a*.?”命令查找到文献是（ ）。（A）pascal.c （B）ppa.1 （C）pa1wer.cc （D）dhdtfgpa1.cc 10、下列各种说法中，对的是（ ）。（A）所有十进制小数都能精确地转换为有限位二进制小数（B）中文计算机机内码就是区位码（C）存储器具备记忆能力，其中信息任何时候都不会丢失（D）计算机中所有信息都采用二进制编码 11、算式（4095）10-（7FF）16+（3000）8成果不对的是（

4、）。 （A）（3584）10 （B）（）2 （C）（17000）8 （D）（E00）1612、下列函数值是整型是（ ）。（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系统中，用于接受邮件服务器称为（ ）服务

5、器。 （A）POP3 （B）SMTP （C）DNS （D）FTP 16、衡量网络上数据传播速率单位是bps，其含义是（ ）。 （A）数据每秒传送多少二进制位； （B）数据每秒传送多少字节； （C）数据每秒传送多少公里； （D）数据每秒传送多少千公里。17、下列各项中不属于系统软件是（ ）。（A）Windows （B）Word （C）Free Pascal （D）DOS18、下列计算机设备中，不是输出设备是（ ）。 （A）显示屏 （B）音箱 （C）打印机 （D）扫描仪19、有一种容量大小为4栈，元素A、B、C、D按照A、B、C、D顺序依次入栈，且每个元素在出栈后不得再重新入栈，如果入栈和出栈操作

6、序列为：入栈-入栈-出栈-入栈-出栈-出栈-入栈-出栈，问元素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:array1.maxn of 0.1;begin readln(n);

7、 for k:=1 to n do fk:=1; for k:=1 to n div 2 do fk*2:=0; for k:=1 to n div 3 do fk*3:=0; sum:=0; for k:=1 to n do sum:=sum+fk; 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=

8、n div 2) do if sksn+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:array1.maxnof longint; n,i,j,x,sum:longint; change:boolean;begin read(n); for i:=1 to n do read(posi,valuei); change:=true;i:=1; while chan

9、ge and (ivaluej+1 then begin change:=true; x:=valuej;valuej:=valuej+1;valuej+1:=x; end; i:=i+1; end; sum:=0; for i:=1 to n do sum:=sum+posi*valuei; writeln(sum=,sum);end.输入：101 102 13 24 95 36 47 88 59 610 7 输出为：sum=_三、简答题（第1题6分，第2题8分，共14分）第1题：河二岸（A岸、B岸）各有15个码头，它们距上游某都市距离如下表所示，且A岸一种码头只与B岸一种码头（即表中上下相

10、应二个）有航线，在保证不浮现航线交叉状况下，问：（1）最多能同步开通几条航线？（3分）（2）能达到（1）中最多航线条数不同通航方案共有几种？（3分）A岸210159134171136581214B岸461391110314712581512第2题：有一堆火柴共若干根，现由甲乙两人轮流从中拿取。规定：除最先轮到取火柴者，其第一次可以拿走任意数目火柴（但不能拿完，也不能不拿）外，接下来轮到者，每次至少要拿走一根，但至多只可拿走上次对方所取火柴数目两倍，并商定：最先将火柴取光者为胜者。问：（1）若原先这堆火柴根数不少于2根，但最多不多于9根，问：共有哪些状况能保证最先轮到取火柴者必胜？（写出相应原先

11、这堆火柴根数）（4分）（2）若原先这堆火柴根数不少于10根，但最多不多于23根，问：有哪些状况使最先轮到取火柴者必败？（写出相应原先这堆火柴根数）（4分）四、完善程序（第一大题12分，第二大题16分，共28分）第1题：完全数（每空3分，共12分）如果一种正整数所有不大于它自身因子之和等于该正整数，则该正整数称为完全数。例如6=1+2+3，于是6称为完全数；28=1+2+4+7+14，28也是完全数。如下程序输入一种数n，输出1至n中完全数个数。请完善该程序。program xx07_5;var n,i,count:longint;function WanQuanShu(k:longint):l

12、ongint;var i,sum:longint;begin _; for i:=1 to k div 2 doif _ then sum:=sum+i; if sum=k then WanQuanShu:=_ else WanQuanShu:=_;end;begin readln(n); count:=0; for i:=1 to n do count:=count+wanquanshu(i); writeln(count);end.第2题：石子划分（每空4分，共16分）给出n堆石子，以及每堆石子数。请将它们分为两堆，使得这两堆总石子数差最小。输入n，以及每堆石子数，输出分为两堆后最小差值。

13、例如，n=4，四堆石子分别有13，6，8，14颗，则可以分为13+8和14+6两堆，它们最小差为1。如下程序：（1）求得所有石子数total，以及它一半half；（2）在所有石子堆中作恰当选取，对每种选取方案，求不超过half已选中堆中石子总数最大值max。所求即为(total-max)-max。（3）以aj表达第j堆石子数；以bj表达第j堆石子与否被选中，如果bj=1，表达第j堆被选中，如果bj=0表达第j堆没有被选中。（4）各种方案表达及顺序如下：以0000（均不选中），00.01（只选中第n堆石子），00.10（只选中第n-1堆石子），0011（选中第n-1堆和第n堆石子），00100（

14、选中第n-2堆石子），00101（选中第n-2堆和第n堆石子），1111（选中所有n堆石子）。请完善该程序。program xx07_6;const maxn=20;var n,i,j:longint; total,half,sum,max:longint; a:array1.maxn of longint; b:array0.maxnof 0.1;begin readln(n); total:=0; for i:=1 to n do begin read(ai); total:=total+ai; end; half:=total div 2; max:=0; for i:=1 to n d

15、o bi:=0; i:=n; while i0 do begin sum:=0; for j:=1 to n do sum:=_; if_ then max:=sum; i:=n; while (i0) and (bi=1) do i:=_; if i0 then begin bi:=_; for j:=i+1 to n do bj:=0; end; end; writeln(total-max-max);end.宁波市第22届中小学生计算机程序设计竞赛初赛答卷（小学组）（考试时间120分钟，满分100分）所有提交答案都以写在答卷纸上为准，写在试卷上一律无效学校姓名得分一、选取题：请选出各题对

16、的答案代码（A/B/C/D）（每题2分，共40分）题号12345678910答案题号11121314151617181920答案二、阅读pascal程序并写出运营成果（每题6分，共18分）第1题：请写出程序运营后变量sum值（6分）。sum值为：_ 第2题：请写出程序运营后变量ok值（每空3分，共6分）输入：123，ok值为：_ 输入：121，ok值为：_ 第3题：请写出程序运营后变量sum值（6分）。sum值为：_三、简答题（第1题6分，第2题8分，共14分）第1题（每小题3分，共6分）：（1） （2） 第2题（每小题4分，共8分）：（1） （2） 四、完善程序（第1题12分，第2题16分，

17、共28分）第1题：（每空3分，共12分） _ _ _ _第2题：（每空4分，共16分） _ _ _ _ 宁波市第22届中小学生计算机程序设计初赛试题答题卷(小学组)学校 姓名 准考证号 一、选取题(每小题2分，共40分) 12345678910111213BACBDCABADCBC14151617181920BAABDCB二、阅读程序，并写出程序对的运营成果(每空6分，共30分) 1、程序运营成果： sum=333 2、程序运营成果： 输入123 输出：FALSE输入121 输出：TRUE3、程序运营成果： sum=385 三、1、8条航线 2种方案2、（1）4、6、7、9根 （2）除12，18根外四、程序填空(每空5分，共30分) 1、 sum:=0 k mod i=0 1 0 2、 sum+aj*bj (summax) i-1 1