不是VIP会员,不能显示答案,请在后台“我的信息” 在线升级 VIP

一、选择题(每小题2分,共40分)

1. CPU包括的两部分是( )。

  • A.输入、输出设备
  • B.存储器与运算器
  • C.运算器与控制器
  • D.存储器与控制器

2. 与十进制数100等值的二进制数是( )

  • A.00100110
  • B.1100100
  • C.11001001
  • D.11000110

3. 字符“a”的ASCII码为97,则字符“s”的ASCII码是( )。

  • A.115
  • B.98
  • C.116
  • D.114

4. 计算机的鼠标是( )。

  • A.输入设备
  • B.输出设备
  • C.存储器
  • D.运算器

5. windows平台下,下列合法的URL地址是( )。

  • A.ftp://101.20.3
  • B.http:/www.flower.com.cn
  • C.http://grade.ting.edu.cn
  • D.http://www.sohu.com\aa.asp

6. 一台计算机的存储容量是256MB,它相当于( )字节。

  • A.256*1000*1000
  • B.128*1024
  • C.256*1024*1024
  • D.256*1024*1000

7. 计算机网络的目标是实现( )。

  • A.数据处理
  • B.文献检索
  • C.资源共享和信息传输
  • D.信息传输

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

  • A.用户名@域名
  • B.用户名#域名
  • C.用户名/域名
  • D.用户名.域名

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

  • A.域名
  • B.服务器名
  • C.IP地址
  • D.国家

10. 计算机的硬件系统包括( )。

  • A.运算器、控制器、存储器、输入设备、输出设备
  • B.控制器、运算器、输入和输出设备
  • C.中央处理器、输入和输出设备
  • D.主机和键盘、显示器

11. 下列属于应用软件的是( )。

  • A.JAVA语言
  • B.linux
  • C.pascal
  • D.photoshop

12. 下列对Web浏览器Internet Explorer的说法中,正确的是( )。

  • A.Internet Explorer 是一个文件
  • B.Internet Explorer是一个命令
  • C.Internet Explorer是一个系统软件
  • D.Internet Explorer是一个应用软件

13. 下列关于计算机 病毒的叙述中,正确的选项是( )?

  • A.计算机病毒不具有潜伏性
  • B.一旦计算机关闭,计算机病毒便可消失
  • C.只要不上不明网站,计算机就不会感染计算机病毒
  • D.定时查杀病毒是保护计算机的有效手段之一

14. 小明正在用word给奶奶写电子邮件,此时的邮件内容保存在( )。

  • A.硬盘上
  • B.计算机屏幕
  • C.内存
  • D.键盘

15. 在计算机内部,信息交换的形式是( )?

  • A.ASCII码
  • B.十六进制
  • C.十进制
  • D.二进制

16. TCP/IP指的是( )。

  • A.网卡
  • B.网络操作系统
  • C.连网专用设备
  • D.一种网络通信协议

17. 下面有关计算机的特点叙述,不正确的是( )?

  • A.运算速度快
  • B.有记忆和逻辑判断能力
  • C.具有自动执行程序的能力
  • D.至今没有任何人能给出如何求解方法的难题,计算机也都能求出解来

18. 下列对因特网的功能的说法中,最贴切的是( )。

  • A.将计算机连接起来
  • B.发送电子邮件
  • C.在线交流
  • D.资源共享

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

  • A.密码
  • B.口令
  • C.软件
  • D.程序

20. 要将X、Y两个变量的值互换,正确的写法是( )。

  • A.X=Y:Y=X
  • B.Y=X:X=Y
  • C.X=X+Y:X=X-Y:Y=X-Y
  • D.X=X+Y:Y=X-Y:X=X-Y

二、读程序 (每小题7.5分,共30分)

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.5分,共30分)

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.