2008宝安区信息学奥赛试卷

下列说法：
（1）在同一文件夹里可以保存两个文件名字相同的文件；
（2）在同一文件夹里可以创建两个文件名字相同的文件夹；
（3）在Word2003中，三号字比四号字大；
（4）在Word2003中，8号字比7号字大；
正确的个数是（  ）

在Word2003中，已保存的文件要换名存盘，应使用（    ）命令。

在PowerPoint2003中，自定义动画中，下列的哪个选项是不可以设置的（    ）

在电子邮箱[email protected]中，其中“baxxjs”指：（    ）

在Photoshop中，用魔棒选取剩余部分的区域时，可按住下列哪个键来选取（    ）

在Photoshop中，要选择颜色相同或相近的区域，通常用（    ）工具：

矢量图形和位图图形相比，下列哪一项是矢量图形的优点（    ）

在FLASH中，时间轴上用小黑点表示的帧是（    ）

在默认状态下，FlashMX的作品每秒播放几帧（    ）

添加与编辑幻灯片“页眉与页脚”操作的命令位于下列哪个菜单中（    ）

Flash中的动画对象包括下列哪几项。（    ）
①文字　　②图像、图形　　③声音、视频　　④动画元件　　⑤场景

下面（    ）是合法的IP地址。

计算机病毒是指（    ）

十进制数7转换成二进制数是（    ）。

二进制数1110111.11转换成十进制数是（    ）

已知在某进位制计数下，2*4=11，根据这个运算规则，5*16的结果是（    ）

表达式4+(3 MOD 8)*3的运算结果为（    ）：

下列选项中能够用作用户自定义标识符的是（    ）。

下列各式不正确的是（    ）

下面表达式的结果值为-100的是：

13*6*(8 div 3)的值是（    ）：

若要交换变量A和B之值，则正确的语句组是（    ）：

下列赋值语句正确的是（    ）

输出语句writeln(10/3:8:2)输出结果是（    ）

下列属于合法的常量定义的是（    ）：

下列FOR语句构成的循环，能执行且有输出的是（    ）

下列程序执行后，b的值是（    ）
program t1;
var a,b:integer;
begin
     a:=3;
     b:=a;
     a:=b+1;
     b:=a+3;
end.

下列中合法的变量声明是（    ）：

有数组说明如下：
var a:array[0..8] of integer;则下列数组元素的引用正确的是（    ）

已知一个三角形的底a和高h，计算它的面积s并输出。
程序如下：
Program ex2_1(input,output);
         var a,h,s:real;
         begin
              readln(  ①  ＿＿  );
              s:=a*h/2
              writeln(‘s=’,  ②  ＿＿  );
end.

计算：1+2+3+……+100。
program ex2_2(input,output);
     var i,s:real;
     begin
       s:=0;
       for i:=1 to      ③  ＿＿  do
           s:=    ④  ＿＿  ;
       end;
       writeln('s=',s:0:0);
    end.

输入两个数a，b，输出较大的数。
program ex2_3(input,output);
var a,b:integer;
begin
     write('please input a,b:');
     readln(a,b);
     if a>b then writeln( ⑤ ＿＿  );
     else writeln( ⑥ ＿＿  );
end.

计算 8！
program ex2_4;
var
    s,i:longint;
begin
    i:=1;
    s:=1;
    while i<=8 do begin
         s:=__⑦ ＿＿ ;
         i:= __⑧ ＿＿ ;
         end;
      writeln(s);
  end.

计算2+(2+4)+( 2+4+6)+( 2+4+6+……+20)，请将下面的程序补充完整。
program ex2_5;
var
      s,t,a:integer;
begin
     a:=2;
     s:=2;
     t:=4;
     repeat
           ⑨ ＿＿  ;
           ⑩ ＿＿ ;
           t:=t+2;
    until t>20;
writeln(s);
end.

程序清单：
program ex3_1;
var
   a:integer;
begin
   write('please input:');
   readln(a);
   if a>=80 then writeln('You win!')
       else if a>=60 then writeln('You plass!')
      else writeln('You need hard!');
end.
输入“87”后，输出结果为___① ＿＿ ；
输入“34”后，输出结果为___② ＿＿ 。

程序清单：
program ex3_2(input,output);
var
    a:integer;
    b:boolean;
begin
   readln(a);
   if a mod 2=0 then b:=true else b:=false;
   writeln(b);
end.
输入“18”后，输出结果是__③ ＿＿ ；
输入“33”后，输出结果是__④ ＿＿ 。

程序清单：
program ex3_3(input,output);
var
   x,y:real;
begin
   write('Input x=');
   readln(x);
case trunc(x/100) of
   0:y:=x+1;
   1:y:=x-1;
   else y:=0;
   end;
   writeln('x=',x:8:2,'  ','y=',y:8:2);
end.
输入“10”后，输出结果是___⑤ ＿＿ ；
输入“45”后，输出结果是___⑥ ＿＿ ；

程序清单：
program ex3_4(input,output);
var
   n,i,s:integer;
begin
s:=0;
read(n);
for i:=2 to n-1 do
    begin
    if n mod i=0 then s:=s+i;
    end;
   writeln(s);
end.
输入“24”后，输出结果是___⑦ ＿＿ 。
输入“80”后，输出结果是___⑧ ＿＿ 。

程序清单：
program ex3_5(input,output);
var
   a,b:integer;
begin
   read(a);
   case a of
     2:b:=pred(a*10);
     4:b:=pred(a*20);
     6:b:=pred(a*30);
     else b:=succ(a);
end;
writeln(b);
end.
输入“2”后，输出结果是__⑨ ＿＿ ；
输入“7”后，输出结果是__⑩ ＿＿ ；