A)1,2,3,4,5,6    B)1,3,2,4,5,6   C)1,3,2,4,6,5    D)1,2,3,4,6,5  E)1,3,2,4,5,6

11.下列属于冯.诺依曼计算机模型的核心思想是( ).
A)采用二进制表示数据和指令;
B)采用”存储程序”工作方式
C)计算机硬件有五大部件(运算器、控制器、存储器、输入和输出设备)
D)结构化程序设计方法
E)计算机软件只有系统软件

12.下列属于输入设备的是( ).
A)打印机    B)扫描仪   C)光笔    D)鼠标    E)显示器

13.算式(1000)10-(100)16-(10)8的结果是(  ).
A)(890)10    B)(986)8   C)(1011100000)2   D)(2E0)16  E)(736)10

14.下面关于算法的正确的说法是(  )
A)算法必须有输出
B)算法必须在计算机上用某种语言实现
C)算法不一定有输入 
D)算法必须在有限步执行后能结束
E)算法的每一步骤必须有确切的定义

15.下列关于十进制数100的正确说法是( ).
A)原码为01100100B
B)反码为64H
C)反码为9BH 
D)补码为64H 
E)补码为9BH

16.关于windows系统中的窗口和对话框的说法正确的是( ).
A)对话框能移动和改变大小
B)窗口能移动和改变大小
C)对话框只能移动和但不能改变大小
D)对话框不能移动但能改变大小
E)窗口能移动和但不能改变大小

17．下列逻辑运算正确的是（ ）。
A) A·（A + B ）= A
B) A +（A·B）= A　　
C) A·（B + C ）= A·B + A·C
D) A +（B·C）=（A + B）·（A + C）
E) A+1=A

18.下列关于排序说法正确的是(  ).
A)插入排序、冒泡排序是稳定的
B)选择排序的时间复杂性为O(n2)
C)选择排序、希尔排序、快速排序、堆排序是不稳定的
D)希尔排序、快速排序、堆排序的时间复杂性为O(nlog2n)
E)快速排序是速度最快的排序

19.对于一个大小为3的栈，若输入队列为123456，则下列输出队列有可能的是（  ）。
A)123456  B)654321  C)432165  D)431256  E)321654

20. 设有一个含有13个元素的Hash表(0~12),Hash函数是:H(key)=key % 13,其中% 是求余数
运算。用二次探查法解决冲突,则对于序列(８、31、20、33、18、53、27),则下列说法正确
的是(    ) 。
A)27在1号格子中
B)33在6号格子中
C)31在5号格子中
D)20在7号格子中
E)18在4号格子中

二．问题求解（5分*2=10分）
1．一个商场有m种颜色的小球，每种小球足够多，在这m种小球中挑选n个小球的选法有多少种？
如 m=2，n=3 时有4种选法分别是：两种小球的个数分别为03，12，21，30．问：当m=4，n=4时
选法数=__________。

2．如果一棵m度树中有n₁个度为1的结点，n₂个度为2的结点，…….有
n_m个度为m的结点,则该树中叶结点的的个数=______________.

三.阅读程序写出正确的程序运行结果(4分*8=32分)
1.program t1;
var n:integer;
function count(n:integer):integer;
  begin
   if n=1 then count:=0 else
     if n mod 2=0 then count:=count(n div 2)+1 else
      count:=count(n*3+1)+1;
  end;
begin
  readln(n);
  writeln(count(n));
end.
输入:99 输出:

2.program t2;
var hi,lo:integer;
procedure pl(m,n:integer;var hi,lo:integer);
  var I:integer;
  begin
    I:=n;hi:=0;lo:=0;
    Repeat
      I:=I-1;lo:=lo+m;
      If lo>=10000 then
      begin
        Lo:=lo-10000;
        Hi:=hi+1;
      End;
    Until I=0;
    Write(hi:4,’, ‘,lo:4);
  End;
Begin
  P1(200,343,hi,lo);
End.
输出:

3.program t3;
Var d1,d2,X,Min : real;
begin
  Min:=10000; X:=3;
  while X < 15 do
    begin
      d1:=sqrt(9+(X-3)*(X-3));
      d2:=sqrt(4+(15-X)*(15-X));
      if (d1+d2) < Min then Min:=d1+d2;
      X:=x+0.001;
    end;
  writeln(Min:10:2);
end.
输出：

4.program t4;
var i,k,n:integer;
  x,w:array[1..500] of integer;
begin
  readln(n);
  for i:=1 to n do
  begin
    x[i]:=0;w[i]:=1;
  end;
  for i:=2 to trunc(sqrt(n))+1 do
  if x[i]=0 then
    begin
     k:=i*i;
     while K<=n do
      begin
       x[k]:=i;
       k:=k+i;
      end;
    end;
  for i:=n downto 1 do
  if x[i]<>0 then
    begin
     w[x[i]]:=w[x[i]]+w[i];
     w[i div x[i]]:=w[i div x[i]]+w[i];
     w[i]:=0;
    end;
  writeln(w[2],w[3]:5,w[5]:5);
end.
输入:20 输出:

四.完善程序题(4分*7=28分)
1. 降序组合.给定两个自然数n,r(n>r),输出从数1 到n中按降序顺序取r个自然数的所有
组合.例如,n=5,r=3时,有如下组合:
5 4 3
5 4 2
5 4 1
5 3 2
5 3 1
5 2 1
4 3 2
4 3 1
4 2 1
3 2 1
程序如下:
program tk1;
var n,r,i,j:integer;
  a:array[1..20] of integer;
begin
  write('n,r=');
  repeat
    readln(n,r);
  until n>r;
  i:=1;a[1]:=n;writeln('result:');
  repeat
    if i<>r then
      if a[i]>r-i then
      begin
        ___(1)___;i:=i+1;
      end
      else begin
        ___(2)___;
        a[I]:=a[I]-1 end
    else
    begin
      for j:=1 to r do write(a[j]:3);
      writeln;
      if a[r]=1 then
      begin
        i:=i-1; a[i]:=a[i]-1;
      end else ___(3)___
    end;
  until a[1]=r-1;
end.

2. 现在政府计划在某个区域内的的城市间架设高速公路，以使任意两个城市间能够直接或
间接到达，怎样修路，费用最小。
输入文件：第一行一个整数 n(n<=100)表示城市数目。
第二行至第n+1行每行两个数xi,yi(0<=xi,yi<=100)表示第i个城市的坐标(单位:千米)；
输出最小费用(每千米一个单位价格)。
程序如下:
program t6;
const maxn=100;
type tcity=record
   x,y:real
   end;
var c:array[1..maxn] of tcity;
   d:array[1..maxn,1..maxn] of real;
   p:array[1..maxn] of integer;
   n,i,j,k:integer;
   a,min:real;
begin
  readln(n);
  for i:=1 to n do readln(c[i].x,c[i].y);
  for i:=1 to n do
    for j:=1 to n do
    d[i,j]:=sqrt(sqr(c[i].x-c[j].x)+sqr(c[i].y-c[j].y));
  p[1]:=0;
  for i:=2 to n do ___(4)___  
  for i:=1 to n-1 do
  begin
    min:=1e10;
    for j:=1 to n do
    if ___(5)___ then
      begin
        min:=d[p[j],j];
        ___(6)___
      end;
    a:=a+d[p[k],k];
    p[k]:=0;
    for j:=1 to n do
    if ___(7)___ then p[j]:=k;
  end;
  writeln(a:0:2);
end.

初赛模拟测试题（一）答案：
一、选择题（共20题，每题1.5分，共计30分）
1-10：CCDDB CCBDC
11-15:ABC;BCD;CDE;ACDE;ABD;
16-20:BC;ABCD;ABCD;AE;BCDE
二、问题求解（5分*2=10分）
1： 35 
2： n₂+2n₃+…+(m-1)n_m+1
三.阅读程序写出正确的程序运行结果(4分*8=32分)
. 1:25
   2:   6,8600
   3:     13.00
   4:18    8    4
四.完善程序题(4分*7=28分)
. 1.a[i+1]:=a[i]-1
   2. i:=i-1;
   3. a[i]:=a[i]-1或a[r]:=a[r]-1;
   4. p[i]:=1;
   5. (p[j]>0) and (d[p[j],j]) < min)
   6. k:=j;
   7. (p[j]>0) and (d[p[j],j]>d[k,j])