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

1. 在计算机中，程序和数据统一存储并在程序控制下自动工作；提出这种理论体系的科学家是

2. 十进制数17转化为二进制数是

3. 下列属于文字处理软件的是

4. 在Windows中，把鼠标指针指向一个右边有“…”符号的菜单项，将弹出

5. Internet Explorer(IE)浏览器中的“收藏”菜单的主要功能是管理

6. E-mail邮件本质上是一个

7. 由于网络的普及而兴起的一种新的数字音频格式是

8. 计算机要处理光盘中的信息时，必须将待处理的信息调入

9. 区分局域网（ＬＡＮ）和广域网（ＷＡＮ）的依据是

10. 一般家庭是通过非对称数字用户环路技术上网的，该技术的英文缩写是

11. 下列存储容量之间换算正确的是

12. 利用随机函数random(3)可以产生的整数有

13. 语句c:=a=b能正确执行，其中变量a、b是整型数，则变量c的类型是

14. 设A=B=True，C=D=False，下列逻辑运算表达式值为False的是

15. 将数组{ 1, 2, 4, 3, 5, 6, 7, 8 }中的元素用冒泡排序的方法按从大到小的顺序排列，需要比较的次数是

1. 不同的两条直线最多只有1个交点，不同的三条直线最多只有3个交点，那么不同的五条直线最多共有 ___ 个交点。
答案：10

2. 某人拥有面值为1、2、3、4、5、6的六枚银币，他发现只要用面值为1、2、3的3枚银币就可以拼成1～6的所有币值；如果他拥有1、2、……、100共一百枚银币，那么他只要用最少的 $0$ 枚银币就可以拼成1～100的所有币值。
答案：7

1.

program xx301;
var
      s:string;
      i,k,j:integer;
begin
      i:=1;
      s:='123!*&jhfokillltlllabethe';
      k:=length(s);
      repeat
        k:=k-i;
        inc(i);
        write(s[k]);
      until k-i<0;
end.
输出：hello!

2.

program xx302;
const
      a:array[1..6] of integer=(3,2,4,6,5,1); 
var
      b:array[1..6] of integer;
      i,j,k:integer;
begin
      b:=a;
      for i:=1 to 3 do
        for j:=i+1 to 6 do
          if b[i]<b[j] then begin
            k:=b[i];b[i]:=b[j];b[j]:=k end;
      for i:=1 to 6 do
          write(b[i]:3);
end.
输出：    6   5   4   2   3   1

3.

rogram xx303;
var
      i,j,s,n,k:integer;
begin
      readln(n);
      s:=0;
      for i:=1 to n do begin
        k:=-1;
        for j:=1 to i do
          k:=-k;
        s:=s+k*i;
      end;
      writeln(s);
end.

输入：100 
输出：-50

4.

Program xx304;
var
      n:integer;
function sum(k:integer):integer;
      var
        i,s,t:integer;
      begin
        s:=0;t:=1;
        for i:=1 to k do begin
          t:=t*i;
          s:=s+t;
        end;
        sum:=s
      end;
begin
      n:=5;
      writeln(sum(n))
end.  
输出：153

1. （插入排序）下面的程序的功能是输入n及n个整数，用插入排序的方法，将n个整数按从小到大的顺序输出，要求每行输出10个整数（最后一行可以不足10个）。
请将程序补充完整。

Program xx401;
var
  a:array[1..1000] of integer;
  n,i,x,k:integer;
begin
  readln(n);
  read( a[1] );
  for i:=2 to n do begin
    k:=i;
    read(x);
    while (k>1) and ( a[k-1]>x  ) do begin
      a[k]:=  a[k-1] ;
      dec(k);
    end;
    a[k]:=x;
  end;
  for i:=1 to n do begin
    write(a[i]:4);
    if  i mod 10=0   then writeln
  end;
  writeln
end.  

2. （最大乘积） 一个正整数一般可以分为几个互不相同的自然数的和，如3=1+2，4=1+3，5＝1+4=2+3，6=1+5＝2+4，…。
下面给出的程序是将指定的不超过200的正整数n分解成若干个互不相同的自然数的和，且使这些自然数的乘积最大。请将程序补充完整。

Program xx402;
var
  n,k,m,i,j:integer;
  a:array[0..30] of integer;
  s:qword;
begin
  readln(n);
  k:=2;
  fillchar(a,sizeof(a),0);
  while n>=k do begin
    a[k]:=k; n:=n-k ;
    inc(k);
  end;
  m:=k-1;
  for i:=m downto 2 do
    if n>0 then begin
                  n:=n-1;
                  inc(a[i]) ;
                end
           else break;
  for i:=m downto 2 do
    if n>0 then begin
                  a[i]:=a[i]+1;
                   dec(n);
                end
           else break;
  s:=1;
  for i:=1 to 30 do
    if a[i]>0 then  s:=s*a[i];
  writeln(s);
end.