94年4月全國計算機等級考試二級筆試試題

基礎知識與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<20 18.設A,B,C,D為布爾型變量,則表達式(A AND (B ADN NOT B) OR NOT (C OR (D OR NOT D))是( )。 A)其值為FALSE的表達式 B)其值為TRUE的表達式 C)不正確的表達式 D)得不到結果 19.在下列數組類型定義中正確的是( )。 A)TYPE TA=ARRAY[0.5..2.5]OF REAL; B)TYPE TB=ARRAY['A'..'B'] OF CHAR; C)TYPE TC=ARRAY[BOOLRAN]OF REAL; D)TYPE TD=ARRAY[0..SPRT(2) ]OF INTEGER; 20.若需要用枚舉類型標識符來表示加 減 乘 除運算,則正確的枚類型定義應該是( )。 A)TYPE OP=(PLUS,MINUS,TIMES,DIVIDE); B)TYPE OP =(+,-.*,/) C)TYPE OP=('+'.'-','*','/'); D)TYPE OP=('+, -, *,/') 21.設說明: VARA:ARRAY['A'..'E',1..4,BOOLEAN]OF REAL; 則數組A中包含元素的個數為( )。 A)5 個別 B )5*4個 C) 5*4*2 個別 D)5+4+2 個 22.設有TYPE SEX ={MALE,TEMALE}; 則下列表達式中正確的是( )。 A)ORD (MALE)=FEMALE B)MALE=SUCC(FEMALE)-2 C)PRED(MALE)FEMALE

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(i1CR> 
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^

二．填空題（每空2分，共40分）

下列各題為填空題，請將每空的正確答案寫在答題卡上1~20序號后的橫線上，答在試卷上得分。

1.結構化程序設計所規定的三種基本控制結構是___1___結構。選擇結構和循環結構。

2.在七位ASCII碼中，除了表示數字、英文大小寫字母外，還有___2___個其它符號。

3.把B盤BAS子目錄下第三個字符為A，且沒有擴展名的全部文件拷貝到C盤ABC子目錄下的命令是___3___。

4.微機中ROM的中文意義是___4___存儲器。

5.啟動MS-DOS系統后，能自動執行的批處理文件是___5___.BAT。

6.設當前盤為C盤，刪除B盤FOX子目錄中擴展名為.TXT的所有文件的命令是___6___。

7.十進制數53轉換為十六進制數為___7___。

8.數據庫管理系統常見的數據模型有層次。網狀和___8___三種。

9.買來一張新盤后，在存入文件前，必須進行___9___處理。

10.在微機中，字符的比較就是對它們的___10___碼進行比較。 11.PASCA1表在式ROUND（4。8）MOD TRUNC（2。8）的值是___11___。

12.下列程序段計算1~100中既不能被3整除，也不能被4整除的所有整數之積。請真寫完全。
P：1； 
FOR I：=1 TO 100 DO 
IF （IMOD 3<>0）AND (I MOD 4<>0) THEN
___12___;


13.下列程序段執行后，D的值應是___13___。
A：=FALSE；B：=TRUE；C：=FALSE；D：=20；
IF A THEN D：=D-10
ELSE IF NOT B
THEN IF NOT C
THEN X：=15
ELSE X：=25

14.下列程序段將十進制整數N化為BASE進制。請填寫完全。
I：=0；
REPEAT
I：=I+1；
NUM[I]：=N___14___BASE；
N：=N___15___BASE
UNTIL N=0；
FOR J：=I DOWNTO 1 DO
WRITE（NUM[J]）；
WRITELN

15.下列程序段執行后，輸出為___16___。
BEGIN
M：=[1。。4，8。。10]；
FOR I：=1 TO 10 DO A[I]：=5*I+3；
FOR I：=1 TO 5 DO
IF A[I] IN M
THEN WRITE(A[I])
END；

16.利用已定義的函數SN計算mR 值：
M=SIN（X）/SIN（X-Y）SIN（X-Z）+SIN（Y）/SIN（Y-Z）SIN（Y-X）+SIN（Z）
/SIN（Z-X）SIN（Z-Y）
函數定義為
FUNCTION SN（A，B，C：REA1）：REA1；
BEGIN
SN：=SIN（A）/（SIN（A-B）*SIN（A-C））
END；
調用程序有
READ（X，Y，Z）
M：=___17___。
WRITELN（M）：

17.已知函數說明如下：
FUNCTION DN（M：INTEGER）：INTEGER；
VAR VALUE：INTEGER；
BEGIN
IF M：=0 THEN VALUE：=5
ELSE IF M<0 THEN VALUE:=DN(M+1)+2
ELSE VALUE:=DN(M-1)-2;
DN:=VALUE
END;
則DN（3）的值為___18___，
DN（DN（2））的值為___19___。

18.為了將圖1鏈表改變為圖2鏈表，可用下列兩句實現（設指針域為NEXT）：
THIRD：=FIRST^.NEXT^.NEXT;
FIRST^.NEXT^.NEXT:=THIRD___20___； 

1994年
全國計算機等級考試二級筆試試卷
基礎知識和Pascal語言程序設計
答案及評分標準

一選擇題(1)~(40)題每題1分,(41)~(50)題每題2分,共60分)
[1] B [2] B [3] B [4] A [5] C
[6] D [7] B [8] C [9] A [10] C
[11] D [12] C [13] D [14] C [15] C
[16] B [17] B [18] A [19] C [20] A
[21] C [22] D [23] B [24] D [25] A
[26] B [27] C [28] B [29] B [30] A
[31] C [32] D [33] A [34] D [35] C
[36] A [37] B [38] C [39] D [40] C
[41] B [42] B [43] D [44] B [45] A

二、填空題(每空2分，共40分)

1． 順序
2． 66
3． COPY B:\BAS\??A*. C:\ABC(或COPY B:BAS\??A*.,C:\ABC)
4． 只讀
5． AUTOEXEC
6． DEL B:\FOX\*.TXT
7． 35
8． 關系
9． 格式化(或初始化、FORMAT)
10．ASCII
11．1
12．p:=p*i
13．20
14．MOD
15．DIV
16．8
17．sn(x,y,z)+sn(y,z,x)+sn(z,x,y)
18．-1
19．3
20．^.next