基础知识与Pascal语言程序设计

                             (考试时间120分钟，满分100分)

一、选择题(1~30每小题1分，31~45每小题2分，共60分)

    下列各题 A)，B)，C)，D)四个选项，只有一个选项是正确的，请将正确的选项在答题卡相应位置上
涂黑。答在试卷上不得分。

1.二进制数101110转换为等值的八进制数是(     )。
    A)45            B)56          C)67          D)78

2.CPU是由(     )组成的。
    A)内存储器和控制器
    B)控制器和运算器
    C)内存储器和运算器
    D)内存储器、控制器和运算器

3.DOS是为IBM PC系列微型计算机及其兼容机所配置的(    )磁盘操作系统。
    A)多用户多任务          B)单用户单任务
    C)分时                  D)分布式

4.启动MS-DOS操作系统后，(    )程序已驻留内存。
    A)COMMAND.COM           B)DISKCOPY.COM
    C)FORMAT.COM            D)CCCC.EXE

5.设驱动器B中软盘上的目录结构如下所示。
    B:\─┬──F1────F11────FA.TXT
         ├──F2─┬──F21─┬──FB.BAS
         └──F3  └──F22  └──FC.TXT

    设当前目录为F2，则把A盘根目录下的PROG.BAS文件复制到B盘F3子目录中的命令是(    )。
    A)COPY PROG.BAS B:
    B)COPY A:PROG.BAS B:\
    C)COPY A:\PROG.BAS B:\F3
    D)COPY A:PROG.BAS B:\F3\

6.下面四组DOS命令中，意义完全相同的一组是(    )。
    A)COPY和DISKCOPY        B)COMP和DISKCOMP
    C)DEL和RD               D)RENAME和REN

7.防止软盘感染病毒的有效方法是(    )。
    A)不要把软盘和有毒软盘放在一起
    B)在写保护缺口上贴上胶条
    C)保持机房清洁
    D)定期对软盘格式化

8.双面高密度5英寸软磁盘的容量是(    )。
    A)360KB  B)720KB  C)1.2MB  D)1.44MB

9. 在FOXBASE中，可以使用的两类变量是(    )。
    A)内存变量和字段变量   B)全局变量和局部变量
    C)字段变量和简单变量   D)内存变量和自动变量

10. 建立一个新子目录的DOS命令是(    )。
    A)CREATE      B)RD       C)MD      D)CD

11.每一个Pascal程序体必须包括(    )。
    A)常量定义,类型定义,变量说明,语句
    B)变量说明,语句
    C)类型定义,变量说明,语句
    D)语句

12.Pascal程序的执行部分是(    )。
    A)程序体         B)程序说明部分和语句部分
    C)语句           D)整个程序

13.以下属非法用户自定义标识符的是(    )。
    A) date         B)dir       C)list       D)type

14.在下列数中,正确的Pascal数是(    )。
    A)   26.          B).26         C)6E-5       D)4E5.6

15.下列表达式中运算结果为TRUE的是(    )。
A)[1,2,3]<>[3,2,1]                B)[1,2,3,4]<=[1,4]
C)[red,blue]<=[red,yellow,blue]   D)5 IN [2,3]

16.字符串'ABCD'和字符串'DCBA'进行比较,如果让比较的结果为真,应选用关系运算符(    )。
   A)>        B)<          C)=          D)>=

17.下列中正确的关系表达式是(    )。
   A) 'a'<100                      B)23.5<20
   C) 23<46 AND 72>8               D)5<XFEMALE

23.设X和Y是同一种枚举类型变量,则下列语句中合法的是(    )。
   A)X:=ORD(Y)     B)X:=Y       C)READ(X,Y)    D)WRITE(T,Y)

24.有变量说明
    VAR i1,i2:integer;
     r1,r2:real;
     b1,b2:Booklean;  
    设各变量均已赋值，下列语句中语法正确的是(    )。
    A)i1:=5.2+trunc(r1)      B)b1:=ord(i1
  DEF
  GHI
其中为回车符,则输出为(    )。
    A)ADG        B)GHI                C)AEI             D)CFI

28.由下列牧场循环语句构成的循环体的语句的是(    )。
    A)WHILE 语句子                    B)REPEA--UNTIL语句
    C)嵌套的FOR语句子                 D)FOR 语句

29.下列程序段中,循环体执行的次数为(    )。
   I:=1;
REPEAT
  N:=I*I:
   I:=I+1
UVTIL N>I;
A)1            B)2                    C) 3                D)4

30.指针变量所指向的变量的类型不可以是(    )。
     A)指针类型      B) 构造类型            C)顺序类型         D)整型

31.表示图中坐标轴上阴影部分的表达式应为(    )。
    A)(X<=A)  AND (X)=B)AND(X<=C
    B)(X<=a) OR (b<=x<=c)
    C)(x<=a) OR (x>=b)AND(x<=c)
    D)(x<=a) AND (b<=x<=c)

32.若使a=1,b=2,c=3,d=5,e=6,提供输入数据格式为
    1 2
    3 4
    5  6
其中表示回车符,则应选取用输入语句(    )。
A) readln(a.b);readln(c,d);readln(e,f);
B) readln(a,b,c);readln(d,e,f)
C) readln(a,b,c,d,e,f);
D) readln(a,b,c);readln(d,e)

33.有程序段
     FORi:=1 TO 10 DO
     BEGIN
      j:=iMOD4;
      CASE j OF
      0:x[i]:'A';
      1:x[i]:='B';
      2:x[i]:='C';
      3:x[i]:='D'
    END;
END;
FORi:=1TO 10DO write(x[i]:1);
writeln;
输出应为(    )。
A)BCDABCDABC              B)ABCDABCDAB
C)CDABCDABCD              D)DABCDABCDA

34.求10的阶剩值.应选用程序段(    )。
  A) p:=1;                     B)p:=1;n:=1;
    FOR n:=1 TO 10 DO           WHILE n<10 DO
      REPEAT                     BEGIN
       p:=p*n;                      p:=p*n;
       n:=n+1                       n:=n+1
     UNTIL n>=10                    END ;
    writeln(p);                          writeln(p);
     C)p:=1;                        D)p:=1;
       FOR n:=1 TO 10 DO               FOR n:=1 TO 10 DO
         BEGIN                           p:=p*n;
        p:=p*n;                             writeln(p);
        n:=n+1                       
       END;
         writeln(p);

35.下列循环语句所构成的循环,共执行循环体的次数是(    )。
i:=2.5;
REPEAT
i:=j+0.5;
  write(1)
UNTIL(i>3);
    A)0次        B）1次      C）2次         D）3次

36.下列循环语句能构成有限次循环的是(    )。
       A) i:=10;                     B)i:=10;
          REPEAT                     REPEAT
            writeln(i) ;                    writeln(i);
          i:=i+1                          i:=i+1
         UNTILi>0;                      UNTIL i=10;
       C)i:=0;                        D)i:=10;
          REPEAT                       REPEAT
           writeln(i)                      writeln(i);
                              i:=i-2
         UNTIL  i>0;                    UNTIL i=1;

37.已知x=10,y=20,z=30,以下程序段执行后x,y,x的值应是(    )。
        IF x>y
        THENz:=x;x:=y;y:=z
      A)x=10,y=20 ,z=30                  B)x=20,y=30,z=30
      C)x=20,y=30 ,z=10                  D)x=20,y=30,z=20

38.在主程序中有说明:
    TYPE small=1. . 10;
    VAR x,y,z:real;m,n:small;c1,c2:char;
   过程首部为：
      PROCEDURE mass(VAR a,b:real;x:small;c:char);
   则下列过程调用语句中正确的是(    )。
     A)mass(x,y,z,c1)                  B)mass(x+y,x-y,m,c1);
     C)mass(x,y,s,c1)                  D)mass(x,y,m.10);

39.若有以下程序
     PROGRAM exam(input,output);
      VAR x,y:real;a,b,c:integer;
      PROCEDURE p(a,b,c,real);
         VAR *:integer;
         BEGIN
       ........
     END;
  BEGIN
  .......
     END
则下列说法中正确的是(    )。
A) 主程序中x的作用域包含过程P
B) 过程p中x的作用域包含主程序
C) 主程序中x的作用域和过程p中x的作用域相同
D) 主程序中x的作用域不包含过程p

40.PROGRAM  exarm( output);
      VAR x,y,x:integer;
      PROEDURE silly(x:integer;VAR y:integer);
        BEGIN
          x:=5;y:=6;z:=3;
         writeln(x,y,z)
           END;
         BEGIN
         x:=1;y:=2;z:=3;
          silly(x,y);
          writeln(x,y,z)
          END.
        以上程序运行结果为(    )。
      A)5  6  7      B)5  6  7       C)5  6   7      D)5   6   7
         5  6  3        5   6   7        1   6   7       1  6   3

41.PROGRAM EXAM（OUTPUT）；
     VAR X，Y，Z：INTEGER；
     PROCEDURE SILLY（X：INTEGER；VAR Y：INTEGER）；
       VAR Z：INTEGER；
       BEGIN
         X：=5；Y：=6；Z：=3；
         SILLY（Y，X）；
         WRITELN（X，Y，Z）
       END
   以上程序运行结果为(    )。
   A）5 6 7        B）5 6 7        C）5 6 7         D）5 6 7
      5 6 3            6 2 4           1 6 3             1 6 7

42.设有说明
        VAR A：ARRAY['A'。。'E'，1。。4，BOOLEAN] OF REA1；
      则A['A'，3]是(    )。
A） 一个实型的数组元素
B） 一个数组，该数组具有两个实型数组元素
C） 一个数组，该数组具有4*2个实型数组元素
D） 一个数组，该数组具有5*4*2个实型数组元素

43.已知职工记录描述为：
      TYPPE WORKERS =RECORD
                          ON{编号}：INTEGER；
                          NAME{姓名}：PACKED ARRAY[1。。20] OF CHAR；
                          SEX{性别}：（MALE，FEMALE）；
                          BIRTHDATE{生日}：RECORD
                              D：1。。31；
                              M：JAN。。DEC；
                              Y：1935。。1976
                              END；
                              ADD{地址}：PACKED ARRAY[1。。30] OF CHAR
                                  END；
VAR W1：WORKERS；
    设变量W1中的"生日"是1939年10月25日，下列语句中对W1中的"生日"的正确引用的是(    )。
      A）D：=25                            B）W1。D：=25
         M：=10；                              W1。M=10；
         Y：=1939；                            W1。Y：=1939
      C）WITH BIRTHDATE，W1DO        D）WITH W1，BIRTHDATE DO
          BEGIN                              BEGIN
           D：=25                              D：=25；
           M：=10；                            M：=10；
           Y：=1939                             Y：=1939
          END；                              END；

44.设有说明
        VAR P1，P2：INTEGER；
      且有赋值语句
        P1：=10；PW：=20；
      若用矩形框表示内存单元，矩形框内数字表示单元内容，则实现下图表示的操作可用赋值语句(    )。
A）P1：=P2^     b)p1:=p2     c)p1:=p2^       d)p1^:=p2

45.PROGRAM EXAM（OUTPUT）；
        TYPE PT=^INTEGER；
        VAR P1，P2：PT；
      BEGIN
        NEW（P1）；P1^ ：=10；P2：=P1；
        NEW（P2）；P2^ ：=10；
        IF P1=P2 THEN WRITELN（'P1=P2'）
                 ELSE WRITELN（'P1<>P2'）
        IF P1^=P2^THEN WRITELN('P1^=P2^')
                 ELSE WRITELN('P1^<>P2^')
      END
     以上程序运行结果为(    )。
     A）P1<>P2      B)P1=P2      C)P1=P2      D)P1<>P2
        P1^=P2^       P1^=P2^      P1^<>P2^     P1^<>P2^