宁波市第25届中小学生程序设计竞赛小学组初赛试题.docx

1、宁波市第25届中小学生程序设计竞赛小学组初赛试题宁波市第25届中小学生程序设计竞赛小学组初赛试题一、选择题（每题2分,共30分。每小题只有唯一一个正确答案）1、在宁波市中小学生程序设计比赛复赛（上机编程）时，以下不能使用的编程语言是：（A）Turbo Pascal （B）Free Pascal （C）C （D）C+2、在Free Pascal中按功能键F7或F4时，以下叙述正确的是：（A）F4逐条语句执行（包括子程序），F7运行至光标位置（B）F7逐条语句执行（包括子程序），F4运行至光标位置（C）F4逐条语句执行（不包括子程序），F7运行至光标位置（D）F7逐条语句执行（不包括子程序），F4

2、运行至光标位置3、使用高级语言编写的程序称之为：（A）源程序 （B）编辑程序 （C）编译程序 （D）链接程序4、如果自己的程序进入了死循环，应当按什么键终止？（A）Ctrl+C （B）Ctrl+D （C）Alt+C （D）Alt+D5、参加宁波市中小学生程序设计比赛复赛（上机编程）时，以下哪种行为是允许的？（A）访问互联网或局域网 （B）使用U盘或光盘 （C）使用自带的草稿纸 （D）考试时发现机器有问题，举手示意监考人员处理6、参加宁波市中小学生程序设计比赛复赛（上机编程）时，你有一个程序被判0分。你发现程序其实是正确的，但存在以下问题，提出申诉，以下哪个申诉会被接受？（A）源程序文件名和存放

3、源程序的目录名错误（B）只是存放源程序的目录名错误，源程序文件名是正确的（C）存放源程序的目录名正确，源程序文件名是错误的（D）根据比赛规则，以上申斥都不会被接受7、在Free Pascal语言，以下关于各种数据类型占内存空间大小的描述错误的是：（A）每个integer型占2个字节 （B）每个longint型占4个字节（C）每个boolean型占2个字节 （D）每个extended型占10个字节8、关键码相同的二个元素，原来在排在前面的还能保证排在前面,这种排序算法我们称它是稳定的。冒泡排序、选择排序、插入排序中,一般意义上是稳定的有几种：（A）1 （B）2 （C）3 （D）09、在Free

4、Pascal中编辑当前源程序时，可以使用快捷键Ctrl+F7增加调试程序时监视的变量，但如果不小心错按为Ctrl+F6时，会将当前源程序窗口隐藏起来。此时，可以使用菜单命令“Windows/List”调出Windows List对话框，在该对话框中选中隐藏的当前正在编辑的源程序，然后按下面哪个命令按钮可以显示当前正在编辑的源程序？（A）Ok （B）Not Hide （C）Show （D）Delete10、结构化程序设计的三种基本控制结构为顺序结构、选择结构和循环结构，以下说法正确的是：（A）三种结构都是基本结构，内部不能再有其它结构（B）三种结构都是基本结构，内部除了允许嵌套同一种结构外，不能

5、再有其它结构（C）选择结构和循环结构内部可以嵌套有其它结构，顺序结构不可以嵌套其它结构（D）三种结构内部都可以嵌套其它结构11、以下属于计算机的基本指令的是：（A）数值和逻辑运算指令 （B）存储和输入输出指令（C）控制和转移指令 （D）以上都是12、以下属于汉字输出时使用的编码的是：（A）国标码 （B）区位码 （C）字形码 （D）五笔字形13、以下存储介质中，一般说来存取速度最快的是：（A）硬盘 （B）内存 （C）U盘 （D）光盘14、以下主要用来网页制作的是：（A）BASIC （B）Pascal （C）FrontPage （D）HTML15、标准ASCII码最多能表示的字符个数是：（A）12

6、8 （B）64 （C）256 （D）8二问题求解（每题5分，共10分）1、一副扑克牌除去大小王外，有52张牌。其中有黑桃（Spade）、红心（Heart）、方块(Diamond)、梅花(Club)四种花色，每种花色点数从小到大各有13张，它们是：2、3、4、5、6、7、8、9、10、J、Q、K、A。 在上述52张中任取5张，取得炸弹（four of a kind,即四张点数相同的牌加一张另外点数的牌）的取法数有13*48=624种；取得辅鲁(full house,即三张点数相同另加二张点数相同牌)的取法数有多少种？请注意，二种取法中，只要有一张牌花色不同或点数不同，这二种取法就是不同的。2、有

7、若干堆硬币，甲乙二人参加游戏，游戏规则如下： （1）由甲开始，二人轮流取硬币，每次取时只能从某一堆中取若干个硬币，可以把该堆硬币全部取完，最少可以只取一个硬币，但不能不取硬币。 （2）最后取完最后一个硬币的人为胜者。 比如一开始有二堆硬币，第一堆1枚，第二堆2枚，有几种取法：（1）甲取第一堆1枚，乙取第二堆1枚，甲取第二堆1枚，甲获胜！（2）甲取第一堆1枚，乙取第二堆2枚，乙获胜！（3）甲取第二堆1枚，乙取第一堆1枚，甲取第二堆1枚，甲获胜！（4）甲取第二堆1枚，乙取第二堆1枚，甲取第一堆1枚，甲获胜！（5）甲取第二堆2枚，乙取第一堆1枚，乙获胜！显然，当甲先取第二堆1枚时，甲能获胜！当甲采取

8、其它取法时，当乙取对时，甲会失败的。但如果一开始二堆硬币数都为2枚，则甲无论在哪一堆中取多少个，乙可以在另外一堆中取同样多个，乙获胜，甲失败。现在有三堆硬币，第1堆有2枚硬币，第2堆有4枚硬币，第3堆有5枚硬币。问甲先取，在大家都使用最佳方法的情况下，甲能否获胜？如果甲能获胜，请写出第一次在第几堆取多少枚硬币才能获胜？如果不能获胜，则只要写上“No”。三阅读程序，求程序运行输出结果(每题8分，共32分)第1题：program xx2010_1;var i,j,s:longint;prime:boolean;begin for i:=2 to 20 do begin prime:=true; f

9、or j:=2 to i-1 do if i mod j=0 then begin prime:=false; break; end; if prime then s:=s+1; end; writeln(s);end.【输出】：_第2题：Program xx2010_2;var a,b,c,d,n,i,j:longint;find:boolean; f:array0.9of longint;begin f0:=2;f1:=3;f2:=5;f3:=7;f4:=11; f5:=13;f6:=17;f7:=19;f8:=23;f9:=29; readln(a,b,c,d); n:=10; a:=(

10、fa*fb-fc*fd) mod n+n) mod n; b:=(fb* fc-fd* fa) mod n+n) mod n; c:=(fc* fd-fa* fb) mod n+n) mod n; d:=(fd* fa-fb* fc) mod n+n) mod n; writeln(a, ,b, ,c, ,d);end.【输入】：2 3 5 7【输出】：_ 第3题：Program xx2010_3;var a:array1.30of longint; s,n,i,x,y,z:longint;c:char;begin readln(x,y); readln(z); n:=0;while z0 d

11、o begin n:=n+1;an:=z mod 10;z:=z div 10;end;s:=0;for i:=n downto 1 do s:=s*x+ai;writeln(s); n:=0; while s0 do begin n:=n+1;an:=s mod y;s:=s div y; end; for i:=n downto 1 do write(ai); writeln;end.【输入】：7 2126【输出】：_ 第4题：Program xx2010_4;var f:array1.46of longint; a:array1.100of longint; x,y,z,i,j,n,co

12、unt:longint;function find(i,h,x:longint):longint;var m:longint;begin if i3 then find:=0 else begin m:=h+fi-1-1; count:=count+1; if x=am then find:=m else if xam then find:=find(i-1,h,x) else find:=find(i-2,m+1,x); end;end;begin f1:=1;f2:=1; for i:=3 to 46 do fi:=fi-1+fi-2; readln(n,x,y); for i:=1 to

13、 n do ai:=3*i-1; i:=1; while fi-1n do inc(i); for j:=n+1 to fi-1 do aj:=maxlongint; count:=0;j:=find(i,1,x); writeln(j, ,count); count:=0;j:=find(i,1,y); writeln(j, ,count);end.【输入】：8 14 7【输出】：_四程序填空(第1题每空2分，第2题每空3分，共28分)1、人数统计有二幢高楼，已知：（1）第一幢高楼的各层上男性人数与第二幢高楼的同一层上的男性人数的差；（2）第一幢高楼的各层上女性人数与第二幢高楼的同一层上的女

14、性人数的差；求第一幢高楼的各层上总人数与第二幢高楼的同一层上的总人数的差；输入：第1行二个整数n1和n2。第2行至第n1+1行，每行二个整数a1和b1。表示第b1层男性人数的差额为a1。第n1+2行至第n1+n2+1行，每行二个整数a2和b2。表示第b2层女性人数的差额为a2。输出：每行二个整数a和b，表示第b层总人数的差额为a。请注意： （1）输入时，如果某一层上二幢楼均没有男性（或女性），则不输入该层的差额情况 （2）输出时，如果某一层上二幢楼均没有人，则不输出该层的差额情况 （3）输入和输出时，均按照层数递增的次序。请将程序补充完整。【样例输入】3 21 15 26 7-5 23 4【样

15、例输出】1 10 23 46 7【样例说明】输入：男性第1层差1,第2层差5,第7层差6 女性第2层差-5，第4层差3输出：总人数第1层差1,第2层差, 第4层差3,第7层差6 Program xx2010_5; var a1,a2,b1,b2,a,b:array1.100of longint; n1,n2,n,i,j:longint;begin readln(n1,n2); for i:=1 to n1 do read(a1i,b1i); for i:=1 to n2 do read(a2i,b2i); i:=1;j:=1; ; while do begin if b1i=b2j then

16、begin an:= ;bn:= ; i:=i+1;j:=j+1;n:=n+1; end else if b1ib2j then begin an:=a1i;bn:=b1i; i:=i+1;n:=n+1; end else begin an:=a2j;bn:=b2j; j:=j+1; n:=n+1; end; end; while i=n1 do begin an:=a1i;bn:=b1i; i:=i+1;n:=n+1; end; while j=0)and(si=9) then /第i个字符是数字 x:=x*10+ord(si)-ord(0) /得到连续数字表示的整数值，存储在变量x中 el

17、se begin if x0 then begin /前面已经得到正整数值，当前数字x进入数字栈 tn:=tn+1;numtn:=x; x:=0;end; if si=( then begin /第i个字符为左括号,入符号栈 tc:=tc+1;codetc:=si;endelse if si=) then begin /第i个字符为右括号 while do begin tn:=tn-1; numtn:= ; tc:=tc-1; end; ; end else begin /第i个字符为+,-,* while prio(codetc,si) do begin tn:=tn-1; numtn:=

18、; tc:=tc-1; end; tc:=tc+1; ; end; end; end; writeln( );end.宁波市第25届中小学计算机程序设计竞赛小 学 组 初 赛 答 案一、单项选择题（每题1.5分，共计30分）1 2 3 4 5 6 7 8 9 10A B A A D D C B A或C D11 12 13 14 15 D C B C A二、问题求解（共2题，每题5分，共10分）1、13*6*12*4=3744 2、第1堆取1枚 三、阅读程序，求程序运行输出结果（共4题，每题8分，共32分）1、8 2、8 4 4 6 3、6910001014、5 2 0 4四、程序填空（前5空，每空2分，后6空每空3分，共28分） n:=1 (i=n1) and (j=n2) 必须有二个括号，and前后可以没有空格，前后可以再加一个括号 a1i+a2j或a2j+a1i b1i或b2j n:=n-1或dec(n)或dec(n,1) s:=(+s+) codetc( 前后可以有括号 cal(numtn,numtn+1,codetc)tc:=tc-1或dec(tc)或dec(tc,1) codetc:=si num1:0:0