一、选择一个正确答案代码(A/B/C/D)，填入每题的括号内(每题1.5分，多选无分，共30分)

二、问题求解(5+7=12分)

1、在a,b,c,d,e,f六件物品中，按下面的条件能选出的物品是： a,b,c,f  
    ⑴a,b两样至少有一样
    ⑵a,d不能同时取
    ⑶a,e,f中必须有2样
    ⑷b,c要么都选，要么都不选
    ⑸c,d两样中选一样
    ⑹若d不选，则e也不选

2、平面上有三条平行线，每条直线上分别有7，5，6个点，且不同直线上三个点都不在同一直线上。
   问用这些点为顶点，能组成多少个不同三角形？  (  751个  )

三、阅读程序，写了正确的程序运行结果(5+8+9+9=31分)

1、program CHU7_1;
function fun(x:integer):integer;
  begin
    if (x=0) or (x=1) then fun :=3
      else  fun:=x-fun(x-2)
  end;

begin
  writeln(fun(9));
  readln;
end.

输出：7

2、program CHU7_2;
var i,j,f:integer;
    a:array[1..8] of integer;
begin
  for i:=1 to 8 do
    begin
      f:=i mod 2;
      if f=0 then a[i]:=0
        else a[i]:=1;
      for j:=1 to i do
        if f=0 then a[i]:=a[i]+j
          else a[i]:=a[i]*j
    end;
  for i:=1 to 8 do
    write(a[i]:5);
end.

输出：    1    3    6   10  120   21 5040   36

3、program CHU7_3;
var p,q,s,t:integer;
begin
  readln(p);
  for q:=p+1 to 2*p do
    begin
      t:=0;
      s:=(p*q) mod (q-p);
      if s=0 then
        begin
          t:=p+q+(p*q) div (q-p);
          write(t:4);
        end;
    end;
  readln
end.

输入：12
输出： 181 110  87  76  66  62  61  60

4、program CHU7_4;
var n,k,i:integer;
  a:array[1..40] of integer;
procedure find(x:integer);
  var s,i1,j1:integer;
      p:boolean;
  begin
    i1:=0;
    p:=true;
    while p do
      begin
        i1:=i1+1;
        s:=0;
        for j1:=1 to n do
          if a[j1]>a[i1] then s:=s+1;
        if (s=x-1) then
          begin
            writeln(a[i1]);
            p:=false
          end;
      end;
  end;
begin
  readln(n,k);
  for i:=1 to n do
    read(a[i]);
  find(k);
  find(n-k);
end.

输入：10  4
      12  34  5  65  67  87  7  90  120  13
输出：67
      34

四、完善程序(每空3分，共27分)

1、输入 n 个 0 到 100 之间的整数，由小到大排序输出，每行输出8个
   程序清单：
PROGRAM CHU7_5;
  VAR I,J,K,N,X:INTEGER;
      B:ARRAY[0..00] OF INTEGER;

BEGIN
  READLN(N);
  FOR I:=0 TO 100 DO B[I]:=0;

  FOR I:=1 TO N DO
    BEGIN
      READLN(X);
      B[X]:=      B[X]+1    ;
    END;
       K:=0   
  FOR I:=0 TO 100 DO
    WHILE    B[I]<>0       DO
      BEGIN
        WRITE(        I         );
        K:=K+1;
        B[I]:=B[I]-1;
        IF     K MOD 8=0    THEN WRITELN;
      END;
  READLN;
END.

2、在A、B两个城市之间设有N个路站(如下图中的S1，且N<100)，城市与路站之间、路站和路站之间各有若干条路段(各路段数<=20，且每条路段上的距离均为一个整数)。
    A，B的一条通路是指：从A出发，可经过任一路段到达S1，再从S1出发经过任一路段，…最后到达B。通路上路段距离之和称为通路距离(最大距离<=1000)。当所有的路段距离给出之后，求出所有不同距离的通路个数(相同距离仅记一次)。
    例如：下图所示是当N=1时的情况：

算法说明：本题采用穷举算法。
数据结构：N：记录A，B间路站的个数
          数组D[I，0]记录第I-1个到第I路站间路段的个数
              D[I，1]，D[I，2]，…记录每个路段距离
          数组G记录可取到的距离
程序清单：
program CHU7_6;
var i,j,n,s:integer;
  b:array[0..100] of integer;
  d:array[0..100,0..20] of integer;
  g:array[0..1000] of 0..1;
begin
  readln(n);
  for i:=1 to n+1 do
    begin
      readln(d[i,0]);
      for j:=1 to d[i,0] do read(d[i,j]);
    end;
  d[0,0]:=1;
  for i:=1 to n+1 do b[i]:=1;
  b[0]:=0;
  for i:=1 to 1000 do g[i]:=0;
  while        b[0]<>1       do
    begin
      s:=0;
      for i:=1 to n+1 do
        s:=       s+d[i,b[i]];     
        g[s]:=1;j:=n+1;
      while          b[j]=d[j,0]        do j:=j-1;
      b[j]:=b[j]+1;
      for i:=j+1 to n+1 do b[i]:=1;
    end;
  s:=0;
  for i:=1 to 1000 do
           s:=s+g[i];      
  writeln(s);readln;
end.