宁波市第25届小学生计算机程序设计初赛试题 [2010年]

1. 在宁波市中小学生程序设计比赛复赛（上机编程）时，以下不能使用的编程语言是：

2. 在Free Pascal中按功能键F7或F4时，以下叙述正确的是：

3. 使用高级语言编写的程序称之为：

4. 如果自己的程序进入了死循环，应当按什么键终止？

5. 参加宁波市中小学生程序设计比赛复赛（上机编程）时，以下哪种行为是允许的？

6. 参加宁波市中小学生程序设计比赛复赛（上机编程）时，你有一个程序被判0分。你发现程序其实是正确的，但存在以下问题，提出申诉，以下哪个申诉会被接受？

7. 在Free Pascal语言，以下关于各种数据类型占内存空间大小的描述错误的是：

8. 关键码相同的二个元素，原来在排在前面的还能保证排在前面,这种排序算法我们称它是稳定的。冒泡排序、选择排序、插入排序中,一般意义上是稳定的有几种：

9. 在Free Pascal中编辑当前源程序时，可以使用快捷键Ctrl+F7增加调试程序时监视的变量，但如果不小心错按为Ctrl+F6时，会将当前源程序窗口隐藏起来。此时，可以使用菜单命令“Windows/List”调出Windows List对话框，在该对话框中选中隐藏的当前正在编辑的源程序，然后按下面哪个命令按钮可以显示当前正在编辑的源程序？

10. 结构化程序设计的三种基本控制结构为顺序结构、选择结构和循环结构，以下说法正确的是：

11. 以下属于计算机的基本指令的是：

12. 以下属于汉字输出时使用的编码的是：

13. 以下存储介质中，一般说来存取速度最快的是：

14. 以下主要用来网页制作的是：

15. 标准ASCII码最多能表示的字符个数是：

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,即三张点数相同另加二张点数相同牌)的取法数有多少种？请注意，二种取法中，只要有一张牌花色不同或点数不同，这二种取法就是不同的。
答案：3744

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”。
答案：第1堆取1枚

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.
输出：8

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
输出：8 4 4 6 

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
输出：69
1000101

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
      else if x<a[m] then find:=find(i-1,h,x)
      else find:=find(i-2,m+1,x);
   end;
end;
begin
   f[1]:=1;f[2]:=1;
   for i:=3 to 46 do f[i]:=f[i-1]+f[i-2];
   readln(n,x,y);
   for i:=1 to n do a[i]:=3*i-1;
   i:=1;
   while f[i]-1<n do inc(i);
   for j:=n+1 to f[i]-1 do a[j]:=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
输出：5 2
0 4

1. 人数统计
有二幢高楼，已知：
（1）第一幢高楼的各层上男性人数与第二幢高楼的同一层上的男性人数的差；
（2）第一幢高楼的各层上女性人数与第二幢高楼的同一层上的女性人数的差；
求第一幢高楼的各层上总人数与第二幢高楼的同一层上的总人数的差；
输入：第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）输入和输出时，均按照层数递增的次序。
请将程序补充完整。

program xx2010_5; 
var a1,a2,b1,b2,a,b:array[1..100]of longint;
    n1,n2,n,i,j:longint;

begin
   readln(n1,n2);
   for i:=1 to n1 do read(a1[i],b1[i]);
   for i:=1 to n2 do read(a2[i],b2[i]);
   i:=1;j:=1;        n:=1    ;
   while         (i<=n1)and(j<=n2)         do begin
      if b1[i]=b2[j] then begin
         a[n]:=      a1[i]+a2[j]           ;
         b[n]:=        b1[i]或b2[j]        ;
         i:=i+1;j:=j+1;n:=n+1;
      end else if b1[i]<b2[j] then begin
         a[n]:=a1[i];b[n]:=b1[i];
         i:=i+1;n:=n+1;
      end else begin
         a[n]:=a2[j];b[n]:=b2[j];
         j:=j+1;
         n:=n+1;
      end;
   end;
   while i<=n1 do begin
      a[n]:=a1[i];b[n]:=b1[i];
      i:=i+1;n:=n+1;
   end;
   while j<=n2 do begin
      a[n]:=a2[j];b[n]:=b2[j];
      j:=j+1;n:=n+1;
   end;
           dec(n)              ;
   for i:=1 to n do
      writeln(a[i],' ',b[i]);
end.

2. 表达式求值
堆栈是一种后进先出的数据结构，实际编程时，常常以数组来模拟堆栈。
以下程序计算包含“+”、“-”、“*”、“（”、“）”和正整数的一个表达式的值。以数组num和数组code作为二个堆栈。其中堆栈num用来存储表达式中的数值以及计算的中间结果，堆栈code用来存储表达式中的运算符号。最终结果存储在num[1]中，程序输出最终求得的一个整数值num[1]。
程序逐字符扫描表达式：
1、如果是运算数，则直接进运算数栈num。
2、如果是运算符：
2.1如果当前运算符级别低于或相同于位于运算符栈顶的前一个运算符的级别，则：
2.1.1 在运算数栈中出栈两次，得到a,b;
2.1.2运算符栈出栈，得运算符p;
2.1.3 将a和b在运算p下的计算结果入运算数栈;
2.1.4当前运算符继续与位于运算符栈顶的前一个运算符比较；
2.2如果当前运算符级别高于位于运算符栈顶的前一个运算符级别，则当前运算符进栈：
3、左括号最高级。右括号最低级
3.1因此，遇左括号时，左括号入栈；但左括号在栈内时，级别低于任何其它符号！
3.2遇右括号时，一直作运算，直至遇上左括号，则简单地作左括号出栈即可,且此时右括号不进栈；
为方便起见，程序会在输入的表达式前后加上一对括号。另外，输入数据保证是正确的。请将程序补充完整。
【样例输入】
12+2*34+(45-5)*(6+7)
【样例输出】
600

Program xx2010_6;
var s:ansistring;
    n,i,tc,tn:longint;
    x,y:extended;
    num:array[1..1001]of extended;
    code:array[1..1001]of char;

function cal(x,y:extended;c:char):extended;//计算x和y在运算c下的值
begin
   if c='-' then  cal:=x-y
   else if c='+' then cal:=x+y
   else cal:=x*y;
end;

function prio(x,y:char):boolean;//前一个运算符x比后一个运算符y级别高吗？
begin
   if x='(' then prio:=false
   else if x='*' then prio:=true
   else if (x='+')and((y='+')or(y='-'))then prio:=true
   else if (x='-')and((y='+')or(y='-'))then prio:=true
   else prio:=false;
end;

begin
   readln(s); s:='('+s+')'                      ;
   n:=length(s);
   x:=0;tc:=0;tn:=0;
   for i:=1 to n do begin  //逐字符扫描输入的表达式
      if (s[i]>='0')and(s[i]<='9') then  //第i个字符是数字
         x:=x*10+ord(s[i])-ord('0') //得到连续数字表示的整数值，存储在变量x中
      else begin 
         if x<>0 then begin //前面已经得到正整数值，当前数字x进入数字栈
            tn:=tn+1;num[tn]:=x; x:=0;end;
         if s[i]='(' then begin //第i个字符为左括号,入符号栈
            tc:=tc+1;code[tc]:=s[i];end
else if s[i]=')' then begin //第i个字符为右括号
            while code[tc]<>'('                    do begin
               tn:=tn-1;
               num[tn]:= cal(num[tn],num[tn+1],code[tc])                           ;
               tc:=tc-1;
            end;
            dec(tc)                           ;
         end else begin  //第i个字符为+,-,*
            while prio(code[tc],s[i]) do begin
               tn:=tn-1;
               num[tn]:= cal(num[tn],num[tn+1],code[tc])                           ;
               tc:=tc-1;
            end;
            tc:=tc+1;
            code[tc]:=s[i]                           ;
         end;
      end;
   end;
   writeln( num[1]:0:0     );
end.