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

1. CPU包括的两部分是（ ）。

2. 与十进制数100等值的二进制数是（ ）

3. 字符“a”的ASCII码为97，则字符“s”的ASCII码是（ ）。

4. 计算机的鼠标是（ ）。

5. windows平台下，下列合法的URL地址是（ ）。

6. 一台计算机的存储容量是256MB，它相当于（ ）字节。

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

8. 通过Internet发送或接收电子邮件(E-mail)的首要条件是应该有一个电子邮件地址，它的正确形式是（ ）。

9. 网址http://www.tinghua.edu.cn中的“cn”代表的是（ ）。

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

11. 下列属于应用软件的是（ ）。

12. 下列对Web浏览器Internet Explorer的说法中，正确的是（ ）。

13. 下列关于计算机 病毒的叙述中，正确的选项是（ ）？

14. 小明正在用word给奶奶写电子邮件，此时的邮件内容保存在（ ）。

15. 在计算机内部，信息交换的形式是（ ）？

16. TCP/IP指的是（ ）。

17. 下面有关计算机的特点叙述，不正确的是（ ）？

18. 下列对因特网的功能的说法中，最贴切的是（ ）。

19. 为了让计算机完成一个完整的任务，而编制的一串指令序列称为（ ）。

20. 要将X、Y两个变量的值互换，正确的写法是（ ）。

1.

X1：=3；
   X2：=8；
   FOR I：=1 TO 5 DO
    BEGIN
      X：=(X1+X2)*2；
      X1：=X2；
      X2：=X；
    END；
   WRITE（‘X=’，X）；
      程序运行结束，变量X的值为：
输出：1224

2.

const n=23;
var 
i，j，temp，v：integer；
a：array[1..n] of char；
b：array[0..9]of integer；
begin
  for i：=1 to n do read （a[i]）；
  for i：=0 to 9 do b[i]：=0；
  for i：=1 to n do
    begin
   val（a[i]，v，j）；
   b[v]：=b[v]+1；
   end；
 for i：=1 to 9 do
 for j：=0 to 9-i do
  if b[j]>b[j+1] then
     begin
       temp：=b[j]；
           b[j]:=b[j+1]；
           b[j+1]：=temp；
     end；
     j：=0；
     while b[j]=0 do j：=j+1；
     for i:=j to 9 do write（b[i]:3）；
   end.

程序输入：22334455664567655555445
输出：  1  2  2  4  5  9

3.

VAR
       A:ARRAY[1..20] OF INTEGER;
       I,J:integer;
     BEGIN
        FOR I:=1 TO 20 DO
          BEGIN
           A[I]:=0;
           FOR J:=1 TO 1 DO
              A[I]:=A[I]+2*J-1;
         END;
         FOR I:=1 TO 20 DO
         Begin
            WRITE(A[i]:5);
            IF I mod=5=0  THEN writeln;
         END;
    END.
输出：1 4 9 16 25
36 49 64 81 100

4.

PROGRAM NOI_004;
  VAR  I, J, J1, J2, P, Q  :INTEGER;
       P1                  :BOOLEAN;
       B,C                 :ARRAY[1..100] OF INTEGER;
BEGIN
  READLN(Q,P);
  J:=1;  P1:=TRUE;
  B[J]:=Q;  J1:=0;
  WHILE (Q>0) AND P1 DO 
     BEGIN
       J1:=J1+1; C[J1]:=Q*10 DIV P;  Q:=Q*10-C[J1]*P;
       IF Q>0 THEN BEGIN
                    J2:=1;
                    WHILE (B[J2]<>Q) AND (J2<=J) DO J2:=J2+1;
                    IF B[J2]=Q THEN  BEGIN
                                      P1:=FALSE;
                                      WRITE('0.');
                                      FOR I:=1 TO J2-1 DO WRITE(C[I]:1);
                                      WRITE('{');
                                      FOR I:=J2 TO J1 DO WRITE(C[I]:1);
                                      WRITELN('}')
                                    END
                               ELSE BEGIN J:=J+1;B[J]:=Q   END
                  END
    END;
  IF Q=0 THEN  BEGIN 
                 WRITE('0.');
                 FOR I:=1 TO J1 DO WRITE(C[I]:1);         WRITELN
               END;
 READLN
END.
输出：0.125
0.{285714}

1. 求出1至N（10<N<10000）之间不能被2，3，5，7除尽的整数个数。（18分）
算法描述:定义一个数组A[10..10000] OF INTEGER；其中A（I）存放I，然后进行筛选：将凡是能被2，3，5，7除尽的数，全部变成为0，最后统计出剩下的不为0的数，即为所求。

PROGRAM EX1（INPUT，OUTPUT）；
            VAR N，I，S：=INTEGER；
                 A  ：ARRAY[10..10000] OF INTEGER;
            BEGIN
              WRITE(‘INPUT N=’);  READ(N);
              FOR I:=1 TO N DO     A[i]:=i       
              FOR I：=1 TO N DO
                  IF    A[i] mod 2=0     OR    (A[I] MOD 3=0)  
                      OR  A[i] mod 5=0   OR   (A[I] MOD 7=0) 
                  THEN  A(I):=0;
                     s:=0   
                  FOR I:=1 TO N DO
                   IF    a[i]<>0      THEN S：=S+1  
                 WRITE（‘S=’，S）
END.

2. 装球：设有N个盒子（N足够大，可装入任何数量的球），分别编号1，2，…。同时有K个小球（K>0），今将K个小球装入到盒子中去，装入规则如下：
（1） 第一个盒子不能为空。
（2） 装入必须严格按递增的顺序进行。
例如，当K=8，N=6装入方法有：1，2，5 或1，3，4
（3）在满足上面的两个条件下，要求有球的盒子尽可能多。
（4）装完之后，相邻盒子中球个数差的绝对值之和为最小（未装的盒子不计）。
如上例中：
装入法1，2，5 则差的绝对值之和为：2-1+5-2=4
装入法1，3，4 则差的绝对值之和为：3-1+4-3=3
[程序要求]：给出K（K表示小球个数）之后，求出满足上述四个条件的装入方法。
[算法描述]：设计一个数组A：ARRAY[1..N] OF INTEGER，用数组元素代表盒子然后依次装入小球。

PROGRAM EXP3（INPUT，OUTPUT）；
       CONST N=20；
       VAR I，J，K，L：INTEGER；
            A       ：ARRAY[1..N] OF INTEGER；
        BEGIN
           READLN（k）；
               fillchar(a,sizeof(a),0)        
           J：=1；
           WHILE  j<=k    DO   
             BEGIN
                A（J）：=J； k:=k-j    ：J：=J+1
             END；
               L：=j-1;
            WHILE  k>0 DO
              BEGIN
                    a[l]:=a[l]+1    ：K：=K-1：L：=L-1
               END；
               FOR I：=1 TO    j-1     DO
                WRITE（A[I]：4）
        END.