1997年9月全國(guó)計(jì)算機(jī)等級(jí)考試二級(jí)筆試試卷
基礎(chǔ)知識(shí)和PASCAL語(yǔ)言程序設(shè)計(jì)
（考試時(shí)間120分鐘，滿分100分）
一． 選擇題（1~40每個(gè)選項(xiàng)1分，41~50每個(gè)選項(xiàng)2分，共60分）
下列各題A）B）C）D）四個(gè)選項(xiàng)中，只有一個(gè)選項(xiàng)是正確的，請(qǐng)將正確選項(xiàng)涂寫(xiě)在答題卡相應(yīng)位置上，答在試卷上不得分。
（21）結(jié)構(gòu)化程序的結(jié)構(gòu)由三種基本結(jié)構(gòu)組成，下面哪個(gè)不屬于這三種基本結(jié)構(gòu)？
A）順序結(jié)構(gòu) B）輸入輸出結(jié)構(gòu) C）分支結(jié)構(gòu) D）循環(huán)結(jié)構(gòu)
（22）下列常量說(shuō)明中，合法的是
A）CONST N，M=10 B）CONST ZERO：=0；
C）CONST -B=-1； D）CONST BLANK=' '；
（23）下列中合法的PASCAL標(biāo)識(shí)符是
A）A1B2C3 B）FOR C）2AB D）A[1]
（24）已知 TYPE ABC=（A，B，C）；則下列中不屬于順序類型的變量說(shuō)明是
A）VAR X1：ABC； B）VAR X2：B，C；
C）VAR X3：BOOLEAN； D）VAR X4：SET OF ABC；
（25）下面函數(shù)中自變量只能是順序類型的函數(shù)是
A）ROUND（） B）ABS（） C）EOF（） D）ORD（）
（26）設(shè)有說(shuō)明
CONST ZERO='0'；PI=3。1416；STR='ABC'；
VAR R：REAL；I：INTEGER；B；BOOLEAN；C：CHAR；
下面賦值合法的是
A）R：=ZERO B）B：=PI>=3 C）C：=STR D）C：=ORD（'B'）
(27)已知A和B都是記錄類型變量，根據(jù)下列哪一個(gè)WITH語(yǔ)句可以判定B肯定嵌套在A中？
A）WITH A，B DO B）WITH B，A DO C）WITH A DO D）WITH B DO
< 語(yǔ)句> < 語(yǔ)句 > WITH B DO WITH A DO
<語(yǔ)句> < 語(yǔ)句>
(28)下列表達(dá)式中，結(jié)果不為T(mén)RUE的是
A）[1。。10]=[1。。5，6。。10] B）[1，2，3]<[1，2，3，4]
C）[2，4]>=[ ] D）7 IN [1。。10]
（29）下面哪種類型的文件可以用DOS的TYPE命令在屏幕上顯示其內(nèi)容？
A）FILE OF CHAR 型文件 B）FILE OF INTEGER型文件
C）FILE OF REAL 型文件 D）FILE OF BOOLEAN 型文件
（30）已知有說(shuō)明如下： TYPE T1=1。。100；
VAR A，B：T1；X，Y：INTEGER；
PROCEDURE P1（VAR A，B：INTEGER；X，Y：REAL）；
下面哪個(gè)過(guò)程調(diào)用是正確的？
A）P1（A，B，X，Y） B）P1（X，Y，A，B）；
C）P1（A，X，B，Y） D）P1（Y，B，X，A）；
（31）設(shè)有過(guò)程P1中A，B，C都是整型變量，其中A為值形式參數(shù)，B，C為變量形式參數(shù)，下面符合要求的過(guò)程首部是
A） PROCEDURE P1（VAR A，B，C：INTEGER）；
B） PROCEDURE P1（A：INTEGER；VAR B；INTEGER；C：INTEGER）；
C） PROCEDURE P1（A：INTEGER；VAR B：INTEGER；VAR C：INTEGER）；
D） PROCEDURE P1（A：INTEGER；B，C：INTEGER）；
（32）下列哪個(gè)類型說(shuō)明是錯(cuò)誤的？
A） TYPE 
REC=RECORD
N：（'A'。。'J'）；
X，Y：ARRAY['A'。。'J'] OF CHAR
END；
ARR=ARRAY['A'。。'J'] OF REC；
B） TYEP
REC=RECORD
N：（A，B，C，D，E，F(xiàn)，G，H，I，J）；
X，Y：ARRAY['A'。。'J'] OF CHAR
END
ARR=ARRAY['A'。。'J'] OF REC；
C） TYPE 
REC=RECORD
N：INTEGER；
X，Y：ARRAY[1。。10] OF CHAR
END
ARR=ARRAY[1。。10] OF REC；
D） TYPE
REC=RECORD
N：'A'。。'J'；
X，Y：ARRAY['A'。。'J'] OF CHAR
END；
ARR=ARRAY['A'。。'J'] OF REC；
（33）要說(shuō)明一個(gè)名為BODIES包含下面和值的集合變量：
（1）RED （2）YELLO2 （3）BLUE （4）WHITE （5）BLACK （6）GREEN
在下面給出的說(shuō)明中，錯(cuò)誤的是
A） TYPE MIX=[RED，YELLOW，BLUE，WHITE，BLACK，GREEN]；
VAR BODIES：MIX；
B） TYPE COLOR=（RED，YELLOW，BLUE，WHITE，BLACK，GREEN）；
MIX=SET OF COLOR；
VAR BODIES：MIX；
C） TYPE MIX=SET OF （RED，YELLOW，BLUE，WHITE，BLACK，GREEN）；
VAR BODIES：MIX；
D） VAR BODIES：SET OF （RED，YELLOW，BLUE，WHITE，BLACK，GREEN）；
（34）設(shè)有如下說(shuō)明：TYPE ARR=ARRAY[1。。10] OF CHAR；
PTR=^ARR;
VAR P：PTR；
若已執(zhí)行了NEW（P），下面正確的賦值語(yǔ)句是
A）P^[5]:='A' B）P[5]^:='A' C）P^:='A' D）P[5]:='A'
(35)下列哪組類型的變量都可以作為FOR循環(huán)中的循環(huán)控制變量？
A）枚舉型和實(shí)數(shù)型 B）枚舉型和記錄型變量中的子界型域
C）字符型和集合型 D）子界型和記錄型
（36）設(shè)有如下說(shuō)明：VAR Q，P：^INTEGER；
且已知有過(guò)程調(diào)用NEW（P）；NEW（Q）；則下面語(yǔ)句正確的是
A）READ（P，Q）； B）P^：=Q^+0
C)P:=P+1 D)P:=P+Q;
（37）設(shè)變量說(shuō)明如下：
VAR CH1，CH2，CH：CHAR；
I1，I2：INTEGER；
R1，R2：REAL；
現(xiàn)在要把值'A'，'B'，12，123，3。4E-4，-15。89依次賦給變量CH1，CH2，I1，I2，R1，R2。設(shè)輸入數(shù)據(jù)格式為
A B12
123 3。4-4 -15。89
（表示回車(chē)符）
在下列寫(xiě)出的讀語(yǔ)句中，錯(cuò)誤的是
A） READ（CH1，CH，CH2）；READ（I1，I2）；READLN（R1，R2）；
B） READLN（CH1，CH，CH2，I1）；READLN（I2，R1，R2）；
C） READLN（CH1，CH，CH2，I1，I2，R1，R2）；
D） READLN（CH1，CH2，I1，CH）；READLN（I2，R1，R2，CH）；
（38）有下列程序：
PROGRAM PP1（OUTPUT）；
VAR A：INTEGER；
FUNCTION F1（VAR A：INTEGER）：INTEGER；
BEGIN
A：=A*A；
F1：=A-1
END；
BEGIN
A：=3；
A：=F1（A）；
WRITELN（A）
END
執(zhí)行此程序后的輸出是
A）2 B）3 C）8 D）9
（39）已知有如下說(shuō)明：VAR A：ARRAY[1。。10] OF INTEGER；
K，I：INTEGER；
程序段：
K：=1；
FOR I：=1 TO 10 DO
IF A[I]>A[K] THEN
K：=I；
WRITELN（A[K]）；
執(zhí)行后輸出的是
A）數(shù)組中數(shù)的平均值 B）數(shù)組中數(shù)的總和
C）數(shù)組中數(shù)的最小值 D）數(shù)組中數(shù)的最大值
（40）設(shè)有說(shuō)明
TYPE
DATE=RECORD
YEAR：0。。9999；
MONTH：1。。12；
DAY：1。。31
END
PERS=RECORD
NAME：PACKED ARRAY[1。。16] OF CHAR；
BIRTHDATE：DATE；
SEX：（MALE，F(xiàn)EMALE）
END；
VAR
AA：PERS；
下列操作中有三個(gè)功能等價(jià)且正確，另一個(gè)不正確的是
A）READ（AA。BIRTHDATE。YEAR） B）WITH AA DO
READ（BIRTHDATE。YEAR）；
C）WITH AA。BIRTHDATE DO D）WITH AA，BIRTHDATE DO
READ（BIRTHDATE。YEAR）； READ（YEAR）；
（41）下面哪個(gè)函數(shù)正確返回?cái)?shù)組A中數(shù)的累加和？
（類型T1為：T1=ARRAY[1。。10] OF INTEGER；）
A） FUNCTION SUM（A：T1）：INTEGER；
VAR K：INTEGER；
BEGIN
SUM：=0；
FOR K：=1 TO 10 D0
SUM：=SUM+A[K]；
END；
B） FUNCTION SUM（A：T1）：INTEGER；
VAR S，K：INTEGER；
BEGIN
FOR K：=1 TO 10 DO
S：=S+A[K]；
SUM：=S
END；
（C）FUNCTION SUM（A：T1）：INTETER；
VAR S，K：INTEGER；
BEGIN
S：=0；K：=0；
REPEAT
S：=0；K：=0；
REPEAT
K：=K+1；
S：=S+A[K]
UNTIL K=10
END
C） FUNCTION SUM（A：T1）：INTEGER；
VAR S，K：INTEGER；
BEGIN
S；=0；K：=0；
REPEAT
K：=K+1；
S：=S+A[K]
UNTIL K=10；
SUM：=S
END
（42）有下面程序：
PROGRAM P1（OUTPUT）；
VAR K，I：INTEGER；
BEGIN
FOR K：=1 TO 10 DO
BEGIN
I：=K；
REPEAT
WRITE（'*'）；
I：=I+1
UNTIL I=K+2
END；
WRITELN
END
該程序執(zhí)行后輸出'*'的個(gè)數(shù)是
A）100 B）50 C）30 D）20
（43）設(shè)函數(shù)說(shuō)明為
FUNCTION CHECK（N，K：INTEGER）：INTEGER；
VAR M；INTEGER；
BEGIN
REPEAT
M：=N MOD 10；
N：=N DIV 10；
K：=K-1
UNTIL K=0；
CHECK：=M
END
若在主程序中執(zhí)行調(diào)用語(yǔ)句 Y：=CHECK（3725，3）；則Y的值為
A）0 B）2 C）5 D）7
（44）有下面程序：
PROGRAM PP2（OUTPUT）；
VAR I，J：INTEGER；
BEGIN
FOR I：=5 DOWTO 1 DO
BEGIN
WRITE（'*'：I）；
FOR J：=3 DOWNTO 2*（I DIV 5）+2 DO
WRITE（'*'：5-I）；
WRITELN
END
END
該程序執(zhí)行后產(chǎn)生的輸出是
A） * B） * C） * D） *
** ** *** ***
*** * * ***** * * *
**** * * ******* * * *
***** * * ********* * * *
（45）有下列函數(shù)說(shuō)明：
FUNCTION FIB（N：INTEGER）：INTEGER；
BEGIN
IF N=1 THEN FIB：=0
ELSE IF N=2 THEN FIB：=1
ELSE FIB：=FIB（N-1）+FIB（N-2）
END；
表達(dá)式 FIB（FIB（5））的值是
A）1 B）2 C）3 D）5
（46）已知有變量說(shuō)明：VAR A，B：ARRAY[1。。10] OF INTEGER；
I， J：INTEGER；
且數(shù)組A的內(nèi)容如下圖所示：
A[1]…… A[10]


則程序段：FOR I：=1 TO 10 DO
BEGIN
B[I]：=0；
FOR J；=1 TO 10 DO
IF A[J]=A[I] THEN
B[I]：=B[I]+1
END
J：=1；
FOR I：=2 TO 10 DO
IF B[I]>B[J] THEN
J：=I；
WRITELN（A[J]）：
執(zhí)行后輸出的是
A）8 B）4 C）3 D）2
（47）設(shè)K為整型變量，且有以下程序段：
IF （K<=10）AND (K>0)
THEN IF K>5
THEN IF K<8
THEN X:=0
ELSE X:=1
ELSE IF K>2
THEN X:=3
ELSE X:=4
用CRSE語(yǔ)句改寫(xiě)上述程序，執(zhí)行效果一樣的是
A）CASE K OF B）CASE K OF
1，2：X：=4； 1：X：=4；
3，4，5：X：=3； 2，3，4，5：X：=3；
8，9，10：X：=1； 8，9，10：X：=1；
6，7：X：=0 6，7：X：=0
END END
C）CASE K OF D）CASE K OF
1，2：X：=4； 1，2，3：X：=4；
3，4，5：X：=3； 4，5：X：=3；
9，10：X：=1； 8，9。10：X：=1；
6，7，8：X：=0 6，7：X：=0
END END；
（48）下面程序中有3個(gè)可以求 Y=5！
（1） PROGRAM P37；
VAR Y，I：INTEGER；
BEGIN
Y：=1；
FOR I：=2 TO 5 DO
Y：=Y*I
END
（2） PROGRAM P37；
VAR Y，I：INTEGER；
BEGIN
Y：=1；
FOR I：=5 DOWNTO 1 DO
Y：=Y*I
END
（3） PROGRAM P37；
VAAR Y：INTEGER；
FUNCTION F（N：INTEGER）；INTEGER；
BEGIN
IF N=1 THEN F：=1
ELSE F：=N*F（N-1）
END；
BEGIN
Y：=F（5）
END
（4） PROGRAM P37；
FUNCTION F（N：INTEGER）：INTEGER；
BEGIN
IF N=1 THEN F：=1
ELSE F：=F*F（N-1）
END；
BEGIN
Y：=F（5）
END
另一個(gè)不能求Y=5！的程序是
A）（1） B）（2） C）（3） D）（4）
（49）有下列程序
PROGRAM TEST（INPUT，OUTPUT）；
VAR A，B，C：INTEGER；
PROCEDURE P（VAR X：INTEGER；Y：INTEGER）；
VAR M，N：INTEGER；
BEGIN
M：=X*Y；
X：=X+5；
Y：=Y+5；
N：=X*Y；
WRITELN（M：4，N：4）
END；
BEGIN
A：=3；B：=3；
P（A，B）；
P（A，B）
END
此程序的運(yùn)行結(jié)果是
A）9 64 B）9 64 C）9 64 D）9 64
9 24 24 104 64 169 9 64
（50）請(qǐng)閱讀下面程序：
PROGRAM PP6（INPUT，OUTPUT）；
VAR A：INTEGER；
PROCEDURE P2（Y：INTEGER）；FORWARD；
PROCEDURE P1（VAR X：INTEGER）；
BEGIN
IF X>100 THEN
BEGIN
X：=X-10；
P2(X)
END;
END
PROCEDURD P2;
BEGIN
P1(Y)
END
BEGIN
READLN(A);
P1(A);
WRITELN(A)
END
執(zhí)行此程序時(shí)若從鍵盤(pán)輸入229，則產(chǎn)生的結(jié)果是
A）P1，P2互相調(diào)用，永遠(yuǎn)無(wú)法結(jié)束 B）輸出99后結(jié)束
C）輸出219后結(jié)束 D）顯示錯(cuò)誤信息后停止運(yùn)行
二． 填空題（每空2分，共40分）
請(qǐng)將每空正確答案寫(xiě)在答題卡1~20序號(hào)的橫線上，答在試卷上不得分
（5） 已知有類型說(shuō)明：TYPE MYFILE=FILE OF INTEGER；函數(shù)DOSUM可求出文件FPOINT中所有整數(shù)的平均值。
FUNCTION DOSUM（VAR FPOINT：MYFILE）：REAL；
VAR NUM，A，SUM：INTEGER；
BEGIN
RESET（FPOINT）；
SUM：=0；NUM：=0；
WHILE NOT ____________DO
BEGIN
READ（_________）；
SUM：=SUM+A；NUM：=NUM+1
END；
CLOSE（FPOINT）；
DOSUM：=SUM/NUM
END；
（6） 下面程序輸出下面的圖形（每行之間無(wú)空行，每個(gè)'*'之間無(wú)空格）
*
**
***
****
***
**
*
PROGRAM PRO1（OUTPUT）；
VAR I，J：INTEGER；
BEGIN
FOR I：=1 TO 4 DO
BEGIN
FOR J:=1 TO_____________ DO
WRITE('':1);{引號(hào)內(nèi)是一個(gè)空格符 }
FOR J:=1 TO___________ DO
WRITE('*':1);
WRITELN
END;
FOR I：=1 TO 3 DO
BEGIN
FOR J:=1 TO I DO
WRITE（''：1）； {引號(hào)內(nèi)是一個(gè)空格符}
FOR J：=1 TO_____________ DO
WRITE（'*'：1）；
WRITELN
END
END
（8） 類型ARR為：TYPE ARR=ARRAY[1。。16] OF INTEGER；
已知數(shù)組A中有15個(gè)整數(shù)已按從小到大的順序排列，過(guò)程INSERTONE把任意整數(shù)B填入A中并使A中數(shù)據(jù)仍然有序。
PROCEDURE INSERTONE（VAR A：ARR；B：INTEGER）；
VAR K：INTEGER；
BEGIN
K：；_____________
WHILE （K>1）AND（__________）DO
BEGIN
A[K]：=A[K-1]；
K：=K-1
END；
A[K]：=____________
END
（9） 已知E 1+1/1！+1/2！+1/3！+……1/N！
用上述公式求E的近似值，要求累加所有小于10**-6的項(xiàng)值
PROGRAM SJ22（INPUT，OUTPUT）；
VAR P，T，E：REAL
N：INTEGER；
BEGIN
E：=1；
N：=1；
T：=1；
_______________
WHILE______________DO
BEGIN
E：=E=T；
N：=N+1；
P：=P*N；
T：=___________
END；
WRITELN（E：10：7）
END
（10） 過(guò)程ARRAYSORT對(duì)于ARR型數(shù)組A中矩陣按每行（第1個(gè)下標(biāo)代表行）的最大值從小到大對(duì)矩陣的行進(jìn)行排序。即：排序后第一行的最大值是各行最大值中最小的，最后一行的最大值是各行最大值中最大的
例如：若原矩陣為
1 3 7 9 2 0 1 1 2 3 
4 3 8 1 6 4 0 2 0 1
0 1 1 2 3 4 3 8 1 6
4 0 2 0 1 1 3 7 9 2
其類型ARR為：TYPE T1=ARRAY[1。。5] OF INTEGER；
ARR=ARRAY[1。。4] OF T1；
請(qǐng)?zhí)羁胀瓿?PROCEDURE ARRAYSORT（VAR A：ARR）；
VAR I，J，K：INTEGER；
FUNCTION MAXONE（B：___________）：INTEGER；
VAR A，K：INTEGER；
BEGIN
A：=B[1]；
FOR K：=2 TO 5 DO 
IF A___________THEN
SWAP(____________)
END
1997年9月全國(guó)計(jì)算機(jī)等級(jí)考試二級(jí)筆試試卷
基礎(chǔ)知識(shí)和PASCAL語(yǔ)言程序設(shè)計(jì)
答案及評(píng)分標(biāo)準(zhǔn)
一． 選擇題（1~40題，每題1分；41~50題；每題2分，共60分）
1．D 2。D 3。A 4，B 5，B
6．A 7。D 8。B 9。C 10。C
11．D 12。B 13。B 14。D 15。C
16．B 17。C 18。B 19。B 20。A
21．B 22。D 23。A 24。D 25。D
26．B 27。C 28。B 29。A 30。B
31．C 32。A 33。A 34。A 35。B
36．B 37。D 38。C 39。D 40。C
41．D 42。D 43。D 44。D 45。A
46．C 47。A 48。D 49。B 50。C
二． 填空題（1~20，每空2分，共40分）
6）EOF（FPOINT）
FPOINT，A
7）4-I或-i+4
I
4-I或-I+4
8）16寫(xiě)成16；不扣分
A[K-1]>B或A[K-1]>=B或NOT(A[K-1]=1E-6或NOT（T<1E-6）（1E-6也可寫(xiě)成0。000001）
1/P或1/P；
10）T1
3
MAXONE（A[J]）
A[J]，A[I]或A[I]，A[J]







1997年9月全國(guó)計(jì)算機(jī)等級(jí)考試二級(jí)筆試試卷 
基礎(chǔ)知識(shí)和PASCAL語(yǔ)言程序設(shè)計(jì)
答案及評(píng)分標(biāo)準(zhǔn)
一． 選擇題（1~40題，每題1分；41~50題；每題2分，共60分）
1．D 2。D 3。A 4，B 5，B
6．A 7。D 8。B 9。C 10。C
11．D 12。B 13。B 14。D 15。C
16．B 17。C 18。B 19。B 20。A
21．B 22。D 23。A 24。D 25。D
26．B 27。C 28。B 29。A 30。B
31．C 32。A 33。A 34。A 35。B
36．B 37。D 38。C 39。D 40。C
41．D 42。D 43。D 44。D 45。A
46．C 47。A 48。D 49。B 50。C
二． 填空題（1~20，每空2分，共40分）
6）EOF（FPOINT）
FPOINT，A
7）4-I或-i+4
I
4-I或-I+4
8）16寫(xiě)成16；不扣分
A[K-1]>B或A[K-1]>=B或NOT(A[K-1]=1E-6或NOT（T<1E-6）（1E-6也可寫(xiě)成0。000001）
1/P或1/P；
10）T1
3
MAXONE（A[J]）
A[J]，A[I]或A[I]，A[J]