2008年长沙市小学生计算机奥林匹克竞赛初赛试题

计算机在工作时突然停电，则（    ）中的信息全部丢失，来电之后也不能恢复。

扫描仪、绘图仪、触摸屏、音箱当中有（    ）中具有输出功能。

计算机能为我们做很多工作，下列缩写CAD、CAM、CAI分别对应的是（    ）

二进制数00100100与00010100的和是（    ）

程序设计的三种基本结构是（    ）

在Windows中，“回收站”是（    ）的一块区域。

在Turbo Pascal语言环境下，快捷组合键Ctrl+F的功能是（    ）

互联网上最常用的浏览器称为（    ）

某计算机的硬盘有100G,等于（    ）字节。

下列数据类型中不是构造类型的是（    ）

Integer类型的数据范围是（    ）

下列表达式的值为FALSE的是（    ）

R：＝Random(100)+1产生一个随机数R，R的取值范围是（    ）

判断变量ch的值是否为小写字母，下列表达式正确的是（    ）

设n是实型变量，下列表达式能使n四舍五入保留两位小的是（    ）

设a、b、c都是整型变量，由键盘输入如下三行数据
1 2 3 回车
4 5 6 回车
7 8 9 回车
下列语句组中不能使a=1、b=7的是（  ）

设有变量说明VAR I,j:integer;x,y:Real;a,b:Boolean;c:Char;
下列赋值语句中正确的是（    ）

表达式Chr(Ord(‘A’)+4))的值是（    ）

设a［1］＝1,a［2］＝2，a[3]=3,a[4]=4,a[5]=5,a[6]=6,且i=1,j=2,k=3,m=4
下列变量的值等于3的是（    ）

马路上有编号为1～9的9盏路灯，为了节约用电，现要关掉其中的三盏灯，但两端的灯不能关，也不能同时关掉相邻的灯。问：符合要求的关灯方法共有多少种？
答：共有____________________________种。

A、B、C三人中一位是工人，一位是教师，一位是律师。已知：C仅比律师年龄大，A和教师不同岁，B比教师年龄小。问：A、B、C分别是什么身分？
答：______________是工人，___________-是教师，______________ 是律师。

var I,j:integer;
begin
        for I:=1 to 5 do begin
            for j:=2 to I do
              if I mod 2=0 then
                write(‘A’)
                  else write(‘B’);
                  writeln;
          end;
          end.
                        输出：____________________________       

var I,j,n:integer;
b:array[1..10] of 0..2;
begin
n:=2008;j:=0;
while n>0 do begin
  j:=j+1;b[j]:=n mod 3; n:=n div 3;
end;
for i:=j downto 1 do write(b[i]);
writeln;
end.
                        输出：______________       

var s:string;
I,len:integer;
Begin
S:=’olympic games 2008’;
S:=’  ’+s;len:=length(s);
For i:=1 to len do begin
  Ch:=s[len];
  If  (ch>=’0’) and(ch<=’9’) then begin
      Delete(s,len,1);insert(ch,s1);
End;
If  (s[i]=’  ’) and (i<>len) then s[i]:=’－’;
End;
Writeln(s);
End.
                        输出：______________     

var a,b,x:integer;
    Procedure ms(a,b:integer;var c:integer);
    Begin
      a:=3*a;b:=4*b;c:=a-b+c;
      end;
    begin
      a:=1;b:=2;x:=3;
ms(a,b,x);
writeln(a,b:5,x:5);
end.
                        输出：______________     

最佳评分值：
输入10个评委对某项目的评分值（正整数），计算出他们评分的平均值，然后找出最佳评分值，即：最接近平均值的那些数（这些数可能大于、也可能小于平均值）。
Var I,n:integer;
  b,s:real;
  a:__________________________________________          ;
begin
  for i:=1 to 10 do read(a[i]);
s:=______________;
for i:=2 to 10 do s:=s+a[i];
s:=s/10;
n:=1;
for i:=2 to 10 do
if___________________ <  __________________________then n:=I;
b:abs(a[n]-s);
for I;=1 to 10 do
if____________________________________ then  write(a[i]:3);
writeln;
end.

高精度阶乘：
    正整数A的阶乘，数学中定义为：A！＝1×2×3×……×A，如：3！＝1×2×3.现在输入一个正整数n(n<=50)，要求计算出1～n的每一个整数的阶乘的高精度结果（即：结果为全部有效数字）。下面的程序中采用加法代替乘法的方法计算阶乘，如：3！＝2！×3＝2！×2！×2！。
输出格式：每行打印一个数的阶乘
如：输入：n=3
    输出：1!=1
          2!=2
          3!=6
Const max=80;
Var I,j,k,n,r:integer;
  a,b:array[1..max] of integer;
Begin
  Write(‘n=’);readln(n);
  a[1]:=1;writeln(‘1!=’,1);
  For j:=1 to______________do  begin
      b:=a;
  for k:=1 to______________do
      for i:=1 to max do begin
        r:=______________  ;
        if r>=10 then______________ :=a[i+1]+1;
        a[i]:=r mod 10;
      end;
  k:=max;
  while______________ do  k:=k-1;
   write(j+1,’!=’);
   for i:=k downto 1 do write(a[i]);
    writeln;
    end;
end.