宁波市第20届小学生计算机程序设计初赛试题 [2005年]

1. 一个完整的计算机系统应包括（ ）

2. 十进制数2005转换为二进制，结果是（ ）

3. 下列电子邮件地址，正确的是( )。

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

5. 目前世界上计算机的工作原理是________，它来源于________提出的________原理。

6. 关于计算机病毒，下列说法正确的是（）

7. 计算机网络的目标是实现（ ）。

8. 目前比较流行的网络编程语言是 ( )

9. 根据域名代码规定，域名为www.tinghua.edu.cn表示的网站类别应是（ ）。

10. 计算机的硬件系统包括（ ）。

11. 11、算法是指（ ）

12. Internet上访问Web信息时用的工具是浏览器。目前常用的Web浏览器之一是（ ）。

13. 小明打算向在远北京工作的叔叔发送电子邮件，下面的说法中，正确的是（）

14. 某种计算机的内存容量是640K，这里的640K容量是指（）个字节

15. 以下有关操作系统的叙述中，哪一个是错误的（ ）

16. 下列四项中，合法的IP地址是 ( )

17. 目前世界上最大的计算机互联网络是（ ）

18. 下列计算机语言中，CPU能直接识别的是（ ）。

19. 设A1=ture,A2=False,A3=True表达式A1 OR A2 AND A3的值为______。

20. 有下列程序： for i:=7 to 90 do begin i:=i+5; write(i); end; 共执行循环次数是（ ）。

1.

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.

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.

 var   m,n:integer;
begin 
  m:=18;
  n:=81;
  while m<>n do
  begin
    while m>n do
      m:=m–n;
    while n>m do
    n:=n–m;
  end;
writeln(m);
end.  
输出：9

1. 下列程序用来求sum=1+1/1*2+1/2*3+...+1/a(n+1),
直到累加到第30项为止,
试选择正确一项填入空格处______。

program sum(output);
var   s,a:real;
n:integer;
begin
  s:=1.0;n:=0
  repeat
  (          n:=n+1        );
  a:=1/(     (n*(n+1))      );
  s:s+a
until n=29;
wrileln('n=',n:2;s=',s:6:3)
end.
      程序运行结果：                                

2. 函数FN使用递归方法求1+2+3+……+N。
其返回值为：当N〈1，则返回0；
当N〉=1，则返回1+2+3+。。。+N的值。
请填空完成它

     function fn(n：integer)：integer；
begin
if n〈1 then
           fn：=0
        else
           if n=1 then 
           fn：=  n  ;
else
           fn：=fn(  n-1  )+n;
end；

3. 孪生素数是指两个相差为2的素数，例如：3和5，5和7，11和13等。
下面的程序可输15对孪生素数，其中函F判断整数A是否为素数。

      program p(output)；
      var
      k，n：integer；
function f(a：integer)：boolean；
var
        k：integer；
        flag：boolean；
begin
         flag：= true ；
         k：=2；
         while(k〈=a div 2〉 and flag do
            if a mod k=0 then
             flag:=false
            else
                k：=k+1;
            f：=flag;
        end；
begin
n：=0；
k：=2；
repeat
if   f(k)and f(k+2) then
begin
       n：=n+1；
writeln(k，k+2)
end；
k：=k+1
until   n=15
end.