宁波市第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运行至光标位置
3、使用高级语言编写的程序称之为：
（A）源程序 （B）编辑程序 （C）编译程序 （D）链接程序
4、如果自己的程序进入了死循环，应当按什么键终止？
（A）Ctrl+C （B）Ctrl+D （C）Alt+C （D）Alt+D
5、参加宁波市中小学生程序设计比赛复赛（上机编程）时，以下哪种行为是允许的？ （A）访问互联网或局域网 （B）使用U盘或光盘
（C）使用自带的草稿纸 （D）考试时发现机器有问题，举手示意监考人员处理
6、参加宁波市中小学生程序设计比赛复赛（上机编程）时，你有一个程序被判0分。你发现程序其实是正确的，但存在以下问题，提出申诉，以下哪个申诉会被接受？ （A）源程序文件名和存放源程序的目录名错误
（B）只是存放源程序的目录名错误，源程序文件名是正确的 （C）存放源程序的目录名正确，源程序文件名是错误的 （D）根据比赛规则，以上申斥都不会被接受
7、在Free Pascal语言，以下关于各种数据类型占内存空间大小的描述错误的是： （A）每个intege型占2个字节 （B）每个longint型占4个字节 （C）每个boolean型占2个字节 （D）每个extended型占10个字节
8、关键码相同的二个元素，原来在排在前面的还能保证排在前面,这种排序算法我们称它是稳定的。冒泡排序、选择排序、插入排序中,一般意义上是稳定的有几种： （A）1 （B）2 （C）3 （D）0
9、在Free Pascal中编辑当前源程序时，可以使用快捷键Ctrl+F7增加调试程序时监视的变量，但如果不小心错按为Ctrl+F6时，会将当前源程序窗口隐藏起来。此时，可以使用菜单命令“Windows/List”调出Windows List对话框，在该对话框中选中隐藏的当前正在编辑的源程序，然后按下面哪个命令按钮可以显示当前正在编辑的源程序？
（A）Ok （B）Not Hide （C）Show （D）Delete
10、结构化程序设计的三种基本控制结构为顺序结构、选择结构和循环结构，以下说法正确的是：
（A）三种结构都是基本结构，内部不能再有其它结构
（B）三种结构都是基本结构，内部除了允许嵌套同一种结构外，不能再有其它结构 （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）HTML
15、标准ASCII码最多能表示的字符个数是： （A）128 （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。
在上述52张中任取5张，取得炸弹（four of a kind,即四张点数相同的牌加一张另外点数的牌）的取法数有13*48=624种；取得辅鲁(full house,即三张点数相同另加二张点数相同牌)的取法数有多少种？请注意，二种取法中，只要有一张牌花色不同或点数不同，这二种取法就是不同的。
2、有若干堆硬币，甲乙二人参加游戏，游戏规则如下：
（1）由甲开始，二人轮流取硬币，每次取时只能从某一堆中取若干个硬币，可以把该堆硬币全部取完，最少可以只取一个硬币，但不能不取硬币。 （2）最后取完最后一个硬币的人为胜者。
比如一开始有二堆硬币，第一堆1枚，第二堆2枚，有几种取法： （1）甲取第一堆1枚，乙取第二堆1枚，甲取第二堆1枚，甲获胜！ （2）甲取第一堆1枚，乙取第二堆2枚，乙获胜！
（3）甲取第二堆1枚，乙取第一堆1枚，甲取第二堆1枚，甲获胜！ （4）甲取第二堆1枚，乙取第二堆1枚，甲取第一堆1枚，甲获胜！
（5）甲取第二堆2枚，乙取第一堆1枚，乙获胜！
显然，当甲先取第二堆1枚时，甲能获胜！当甲采取其它取法时，当乙取对时，甲会失败的。但如果一开始二堆硬币数都为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; for 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:array[0..9]of longint;
begin
f[0]:=2;f[1]:=3;f[2]:=5;f[3]:=7;f[4]:=11;
f[5]:=13;f[6]:=17;f[7]:=19;f[8]:=23;f[9]:=29; readln(a,b,c,d); n:=10;
a:=((f[a]*f[b]-f[c]*f[d]) mod n+n) mod n; b:=((f[b]* f[c]-f[d]* f[a]) mod n+n) mod n; c:=((f[c]* f[d]-f[a]* f[b]) mod n+n) mod n; d:=((f[d]* f[a]-f[b]* f[c]) mod n+n) mod n; writeln(a,' ',b,' ',c,' ',d); end. 【输入】：2 3 5 7 【输出】：______________
第3题：
Program xx2010_3;
var a:array[1..30]of longint; s,n,i,x,y,z:longint;c:char;
begin
readln(x,y); readln(z); n:=0;
while z>0 do begin
n:=n+1;a[n]:=z mod 10;z:=z div 10; end; s:=0;
for i:=n downto 1 do s:=s*x+a[i]; writeln(s); n:=0;
while s>0 do begin
n:=n+1;a[n]:=s mod y;s:=s div y; end;
for i:=n downto 1 do write(a[i]); writeln; end. 【输入】： 【输出】： 7 2 __________ 126 __________ 第4题：
Program xx2010_4;
var f:array[1..46]of longint; a:array[1..100]of longint; x,y,z,i,j,n,count:longint;
function find(i,h,x:longint):longint; var m:longint; begin
if i<3 then find:=0 else begin
m:=h+f[i-1]-1; count:=count+1;
if x=a[m] then find:=m