全国第十届青少年信息学奥林匹克竞赛分区联赛初赛试题 [2004年]

1. 美籍匈牙利数学家 冯.诺依曼 对计算机科学发展所做出的贡献是：（ ）

2. 下列哪个不是CPU（中央处理单元）（ ）

3. 下列网络中常用的名字缩写对应的中文解释错误的是（ ）

4. 下面哪个部件对于个人桌面电脑的正常运行不是必需的（ ）

5. 下列哪个软件属于操作系统软件（ ）

6. 下列哪个不是计算机存储设备（ ）、

7. 下列说法中错误的是（ ）

8. 彩色显示器所显示的五彩斑斓的色彩，是由红色，蓝色和（ ）色混合而成的

9. 用静电吸附磨粉后转移到纸张上，是那种输出设备的工作方式（ ）

10. 一台计算机如果要利用电话线上网，就必须配置能够对数字信号和模拟信号进行互相转换的设备，这种设备是（ ）

11. 下列哪个不是数据库软件的名称（ ）

12. 下列哪个程序设计语言不支持面向对象的程序设计方法（ ）

13. 由3个a，1个b和2个c构成的所有字符串中，包含子串“abc”的共有（ ）个

14. 某车站呈狭长形，宽度只能容下一台车，并且只有一个出入口。已知某时该车站站台为空，从这一时刻开始出入记录为：“进出进进出进进进出出进出”。假设车辆入站的顺序为1,2,3……，则车辆出站的顺序为（ ）

15. 二叉树T，已知其前序遍历序列为1 2 4 3 5 7 6，中序遍历序列为4 2 1 5 7 3 6，其后序遍历序列为

16. 满二叉树的叶节点为N，则它的节点总数为（ ）

17. 十进制2004等于八进制数（ ）

18. （2004）10 +（32）16的结果是（ ）

19. 在下图，从端点（ ）出发存在一条路径可以遍历图中的每条边一次，而且仅遍历一次

20. 某大学计算机专业的必修课及期先修课程如下表所示：请判断下列课程安排哪个是不合理的（ ）

1. 一个家具公司生产桌子和椅子。现有113个单位的木材。每张桌子要使用20个单位的木材，售价是30元；每张椅子要用16个单位的木材，售价是20元。使用已有的木材生产桌椅（不一定要用光木材）做多可以买_____元钱。
答案：160

2. 75名儿童去游乐场玩。他们可以骑旋转木马，坐滑行轨道，乘宇宙飞船。已知其中20人这三种东西都玩过，55人至少玩过其中两种。若每玩一样的费用为5元，游乐场总共收入700，可知有_____名儿童没有玩过其中任何一种。
答案：10

1.

program program1;
Var
  a,b,c,d,e:integer;
  begin
    a:=79 ; b:=34; c:=57;d:=0 ; e:=-1;
    if (a<c) or (b>c) then d:=d+e
    else if (d+10<e) then d:=e+10
    else d:=e-a;
    writeln(d);
  end.

输出：-80

2.

program program2;
var
  i,j:integer;
  str1,str2:string;
begin
  str1:='pig-is-stupid';
  str2:='clever';
  str1[1]:='d'; str1[2]:='o';
  i:=8;
  for j:=1 to 6 do begin
      str1[i]:=str2[j];inc(i);
  end;
  writeln(str1);
end.
输出：dog-is-clever

3.

program program3;
var
  u:array[0..3] of integer;
  a,b,c,x,y,z:integer;
begin
  read(u[0],u[1],u[2],u[3]);
  a:=u[0]+u[1]+u[2]+u[3]-5;
  b:=u[0]*(u[1]-u[2] div u[3]+8);
  c:=u[0]*u[1] div u[2] * u[3];
  x:=(a+b+2)*3-u[(c+3) mod 4];
  y:=(c*100-13) div a div (u[b mod 3]*5);
  if ((x+y) mod 2=0) then z:=(a+b+c+x+y) div 2;
  z:=(a+b+c-x-y)*2;
  writeln(x+y-z);
  read(a);
end.
输出：263

4.

program program4              ;
var c:array[1..2] of string[200];
    s:array[1..10] of integer;
    m,n,i:integer   ;
procedure numara;
var cod:boolean;
   i,j,nr:integer;
begin
  for j:=1 to n do begin
        nr:=0;cod:=true;
        for i:=1 to m do
           if c[i,j]='1' then begin
                if not cod then begin
                    cod:=true;inc(s[nr]);nr:=0;
                end
           end
           else begin
                if  cod then begin
                     nr:=1;cod:=false ;
                end
                else inc(nr);
           end;
           if not cod then inc(s[nr]);
        end;
  end;
  begin
      readln(m,n);
      for i:=1 to m do readln(c[i]);
      numara;
      for i:=1 to m do
          if s[i] <>0 then write(i,' ',s[i],' ');
  read(i);
  end.
输出：1 12588 2 12337 3 12339

1. 三角形内切圆的面积
题目描述：给出三角形三边的边长，求此三角形内切圆的面积。

输入：三个正实数a、b、c（满足三角形三边关系），表示三角形三边边长。
输出：三角形内切圆的面积，结果四舍五入到小数点后2位
输入样例： 3 4 5
输出样例： 3.14
程序：①②③④⑤

PROGRAM PROGRAM1;
VAR
     A,B,C,R,S,T:REAL;
BEGIN
      READ(A,B,C);
       S :=(  a+b+c  )/2;
       T:=  SQRT  (S*(S-A)*(S-B)*(S-C));
       R:=T/S;
       WRITELN(3.1415927 * R *  R   :0:  2   ;
END.

2. Joseph
题目描述：
原始的Joseph问题的描述如下：有n个人围坐在一个圆桌周围，把这n个人依次编号为1，……，n。从编号是1 的人开始报数，数到m个人出列，然后从出列的下一个人重新开始报数，数到第m个人又出列，……，如此反复直到所有的人全部出列为止。比如当n=6,m=5的时候，出列的顺序依次是5，4，6，2，3，1。
现在的问题是：假设有k个好人和k个坏人。好人的编号是1到k，坏人的编号是k+1到2k。我们希望求出m的最小值，使得最先出列的k个人都是坏人。
输入：
仅有的一个数字是k (0<K<14)。
输出：
使得最先出列的k个人都是坏人的m的最小值。
输入样例：
4
输出样例：
30
程序：

program progaram1;
var
  i,k,m,start：longint;
  find：boolean;
function check（remain:integer）：boolean;
var result：integer;
begin
  result:=____start+m-1____ mod remain;
  if ____result>=k____ then begin
start:=result; check:=true;
  end
  else check：=false;
end;
begin
  find:=false;
  read(k);
  m:=k;
  while ____not(find)____ do begin
find:=true; start:=0；
for i:=0 to k-1 do 
  if (not check(____2*k-I____)) then begin
     find:=false; break;
  end;
inc(m);
  end;
  writeln(____m-1____);
end.