全國計算機等級考試二級筆試題
基礎知識和FORTRAN程序設計
（考試時間120分鐘，滿分100分）
1995年9月21日
一、選擇題（(1)-(40)每小題1分，(41)-(50)每小題2分，共60分）
下列各題 A) 、B)、C)、D)四個選項中，只有一個選項是正確的，請將正確選項在答題卡相應位置上涂黑，答在試卷上不得分。
(1) 第一臺電子數字計算機ENIAC誕生于
A) 1927年 B)1936年 C) 1946年 D) 1951年
(2) 用FORTRAN語言編制的源程序要變為目標程序，必須經過
A) 匯編 B) 解釋 C) 編輯 D) 編譯
(3) 計算機軟件一般包括系統軟件和
A) 字處理軟件 B) 應用軟件 C) 管理軟件 D) 科學計算機軟件
(4) 計算機內使用的數是
A) 二進制數 B) 八進制數 C) 十進制數 D) 十六進制數
(5) 目前微型機常用的5.25寸雙面高密度軟盤的容量是
A) 360KB B) 1.44MB C) 760KB D) 1.2MB
(6) 具有多媒體功能的微機系統常用CD-ROM作為外存儲器，它是
A) 只讀內存儲器 B) 只讀大容量軟盤 C) 只讀硬盤 D) 只讀光盤
說明:
(7)到(17)題給定的條件如下:
微機系統有A和B兩個容量相同的軟盤驅動器，硬盤C的目錄結構為 






文件AUTOEXEC.BAT的內容為
PROMPT $P$G
CD F4
CD \DOS
(7) 微機系統用硬盤C啟動后，當前系統提示符是
A) C:\> B) C:\DOS> C) C:\F4> D) C>
(8) 在用C盤啟動后，把A盤格式化成系統盤的命令為
A) FORMAT A: B) \FORMAT A:/S
C) \DOS\FORMAT A:/S D) \DOS\FORMAT A:\S
(9) 設當前盤為C盤，C盤當前目錄為\DOS。把JD1.FOR和JD2.FOR連接起來后存入A盤根目錄下，命名為JD3.FOR，應使用命令
A) COPY JD1.FOR+JD2.FOR A:JD3.FOR
B) COPY \F4\JD1.FOR+JD2.FOR A:\JD3.FOR
C) COPY \F4\JD1.FOR+\F4\JD2.FOR A:\JD3.FOR
D) COPY \F4\JD1.FOR+\F4\JD2.FOR JD3.FOR
(10) 設當前盤為C盤，C盤當前目錄為\DOS。把FORMAT.COM和DISKCOPY.COM兩個命令文件復制到A盤上的命令為
A) COPY \DOS\*.* A: B) COPY\*.COM A:
C) COPY DOS\*.* A: D) COPY DOS\*.COM A:
(11) 列出硬盤C上所有擴展名為.FOR文件的命令是
A) DIR\*.FOR B) DIR C:\F4\*.FOR C) DIR C:\*.FOR D) DIR C:\F4\*.*
(12) 把A盤的所有信息復制到B盤上的命令為
A) COPY A:*.* B: B) COPY A:*.* B:*.*
C) C:\DOS\DISKCOPY A: B: D) C:\DOS\DISKCOPY B: A:
(13) 設當前盤為C盤。刪除硬盤C上的兩個擴展名為.EXE文件的命令是
A) DEL\F4\*.EXE B) DEL\XD?.EXE C) DEL\F4\*.* D) DEL \*.EXE
(14) 設當前盤為C盤。C盤當前目錄為\DOS。在硬盤C的根目錄下建立新子目錄USER的命令為
A) MD C:USER B) MD\USER\ C) MD\USER D) MD USER
(15) 設當前盤為C盤，C盤當前目錄為根目錄。在硬盤C上刪除子目錄F4的命令或命令組為
A) RD F4 B) RD\F4 C) DEL\F4\*.* D) DEL\*.*
RD F4 RD F4
(16) 設當前盤為C盤，C盤當前目錄為根目錄。把JD1.FOR改名為JX1.FOR的命令為
A) REN JD1.FOR JX1.FOR B) REN JX1.FOR JD1.FOR
C) REN F4\JD1.FOR JX1.FOR D) REN \F4\JX1.FOR JD1.FOR
(17) 顯示C盤根目錄下所有.TXT文件內容的命令為
A) TYPE C:\*.TXT B) TYPE C:\*.TXT>CON
C) COPY C:\*.TXT>CON D) COPY C:\*.TXT CON
(18) 按照數據模型分類，FoxBASE和dBASE是屬于
A) 層次型 B) 網狀型 C) 關系型 D) 混合型
(19) FoxBASE和dBASE命令文件的擴展名為
A) .PRG B) .DBF C) .MEM D) .TXT
(20) "計算機等級考試"這七個漢字作為字符串常量，在FoxBASE和dBASE中，可以表示為
A) {計算機等級考試} B) (計算機等級考試)
C) 計算機等級考試 D) "計算機等級考試"
(21) 可以作為FORTRAN77變量名的字符序列為
A)STRING $ B)π C) AGE D)S-NAME
(22) 可以作為FORTRAN77常量的字符序列為
A) FALSE B) E－5 C)(0.5，1/3) D) 1.0D－2
(23) 下列表達式中值為整數4的是
A) SQRT(16.0) B)27/6 C) 16**0.5 D) 4*1.0
(24) 設C是復型變量，A、B是實型變量，下列賦值語句中合法的是
A) C=A+B B) C=(3.7，1.5**2) C) C=(2，3D2) D) C=(A+B，A*B)
(25) FORTRAN77關系運算符"相等"的表示方法是
A) = B) EQ C) .EQ. D) .EQV.
(26) 在下列運算符中優先級最高的是
A) 關系運算符 B) 算術運算符 C) 邏輯非運算 D) 邏輯與運算
(27)語句K=2+3. 0**2/2執行后，整型變量 K的值是
A) 6.5 B) 5 C) 6 D) 7
(28) 經語句PARAMETER(IP=3.1415926)說明后，符號常量IP的值為
A) 3 B) 3.1416 C) 3.141593 D) 3.1415926
(29) FORTRAN77邏輯運算符的個數是
A) 3 B) 4 C) 5 D) 6
(30) 作用域為整個源程序的符號名為
A) 變量名 B) 數組名 C) 語句函數名 D) 函數子程序名
(31) 如果實型函數子程序FNF沒有形參，則FUNCTION語句的形式為
A) FUN FNF() B) FUNCTION FNF()
C) REAL FUNCTION FNF D) FUNCTION FNF
(32) FORTRAN77規定，可調數組可以出現在
A) 主程序中 B) 數據塊子程序中
C) 任意子程序中 D) 函數或子例行程序中
(33) 用可調數組傳遞數據時，可調數組名和可調維變量名出現的位置規定是
A) 都在公用語句中
B) 可調數組名在形參表中，可調維變量名不限
C) 都在形參表中
D) 可調維變量名在形參表中，可調數組名不限
(34) 適用于字符型 I/O的 FORTRAN77格式編輯將是
A) Fw.d B) Iw.d C) A D) Gw.d
(35) 執行語句
OPEN(3，'FILE.DAT',STATUS='NEW')
后，FILE.DAT文件是
A) 順序文件，可以寫 B) 隨機文件，可以寫
C) 順序文件，可以讀 D) 隨機文件，可以讀
(36) 閱讀下列FORTRAN77程序：
K1=2
K2=3.7
K=K1
K1=K2
K2=K
WRITE(*，'(1X，2I3)')K1，K2
END
上述程序運行后，輸出K1和K2的值為
A) 2 4 B) 3 2 C) 4 2 D) 2 3
(37) 閱讀下列FORTRAN77程序：
DO 10 K=1,5
N=N+1
M=2*N
10 CONTINUE
WRITE(*，'(I4)')M
END
運行上述程序后，輸出M值為
A) 10 B) 5 C) 不確定 D) 12
(38) 閱讀下列FORTRAN77程序：
INTEGER M(2,3)
DATA M/1，2，3，4，5，6/
WRITE(*，'(1X,3I3)')（M(J,K)，K=1，3），J=1,2)
END
運行上述程序后，輸出結果為
A) 1 3 5 B) 1 2 3 C) 1 3 5 2 4 6 D) 1 2 3 4 5 6
2 4 6 4 5 6
(39) 閱讀下列FORTRAN77程序。
CHARACTER *4 CH1,CH2
CH1='123'
WRITE(*，'(1X,2I3)') LEN(CH1//'AB')，LEN(CH2)
END
運行上述程序后，輸出結果為
A) 6 0 B) 5 0 C) 6 4 D) 5 4
(40) 閱讀下列FORTRAN77程序：
DO 10 K=1,5,1
M=0
DO 20 J=K,5
M=M+J*K
20 CONTINUE
1O CONTINUE
WRITE(*，'(1X,I4)')M
END
運行上述程序后，輸出結果為
A) 120 B) 25 C) 140 D) 135
(41) 語句函數定義語句在程序內的位置是
A) 在程序塊開頭語句之后、END語句之前
B) 在說明語句之后、可執行語句之前
C) 在說明語句之后、END語句之前
D) 在程序塊開頭語句之后、可執行語句之前
(42) FORTRAN數據文件存取的最小單位是
A) 字節 B) 字 C) 記錄 D）內存單元
(43) 給定子例行程序如下
SUBROUTINE SUB(K,A)
B=K+2
A=A+B
END
下列調用語句中正確的是
A) CALL SUB(N,N) B) CALL SUB(X,X) C) CALL SUB(N+2,X) D) CALL SUB(N,X+3)
(44) 無名公用區不允許出現在
A) 主程序中 B) 函數子程序中 C) 子例行程序中 D) 數據塊子程序中
(45) 閱讀下列 FORTRAN77程序：
WRITE(*，20)225
20 FORMAT(1X，'LINE='，I4，'MM'，I3，'END')
END
運行上述程序后，輸出結果為
A) LINE=225MM END B) LINE=225MM
C) LINE=225MMEND D) LINE=225
(46) 閱讀下列FORTRAN77程序：
M=5
DO 20 K=1,M
K=4
WRITE(*，*)K,M
20 CONTINUE
END
運行上述程序后，輸出結果為
A) 4 5 B) 4 5 C) 編譯出錯 D) 4 5
5 5 4 5 不能運行 4 5
4 5
4 5
4 5
(47) 閱讀下列 FORTRAN77程序：
CHARACTER *5 LINE,MD
MD='* * * * *'
LINE=' '
DO 100 I=1,5
K1=1+ABS(I-3)
K2=5-ABS(I-3)
LINE(K1:K2)=MD(K1:K2)
WRITE(*,*) LINE
10 CONTINUE
END
運行上述程序后，輸出結果為
A) * B) * C) * D) *
* * * * * * * * * * * *
* * * * * * * * * * * * * * * * * * * *
* * * * * * * * * * * * * * * *
* * * * * * * * * * * *
(48) 閱讀下列FORTRAN77程序：
EXTERNAL NN
REAL NN
X=3.0
WRITE(*,10)T(X,NN)
10 FORMAT(1X,F5.1)
END
FUNCTION T(A,CC)
B=A*A
T=CC(B)
END
REAL FUNCTION NN(X)
NN=3.0*X
END
運行上述程序后，輸出結果為
A) 3.O B) 9.0 C) 27.0 D) 81.0
(49) 閱讀下列FORTRAN77程序：
A=3.0
B=5.0
CALL SUBT(B-A,A,A)
WRITE(1X，'(1X,F3.1)')A
END
SUBROUTINE SUBT(X,Y,Z)
Y=Y-1.0
Z=Z+X
END
運行上述程序后，輸出結果為
A) 4.0 B) 5.0 C) 6.0 D) 7.0
(50) 閱讀下列FORTRAN77程序：
INTEGER M(3,3)
DATA M/1，2，3，4，5，6，7，8，9/
DO 10 I=1,3
DO 10 J=1,3
K=M(I,J)
M(I,J)=M(J,I)
M(J,I)=K
10 CONTINUE
WRITE(*,100)((M(I,J),J=1,3),I=1,3)
100 FORMAT(1X,3I2)
END
運行上述程序后，輸出結果為
A) 1 4 7 B) 1 2 3 C) 9 6 3 D) 7 8 9
2 5 8 4 5 6 8 5 2 4 5 6
3 6 9 7 8 9 7 4 1 1 2 3
二、填空題（每空2分，共40分）
請將每空的正確答案寫在答題卡上【1】-【20】序號的橫線上，答在試卷上不得分。
(1) 十進制數123用八位二進制表示為 【1】 。
(2) 70年代末開始出現16位微處理器，標志著微型計算機進入了第三代;80年代起使用 【2】 位微處理器，標志微型計算機進入了第四代。
(3) 通用計算機操作系統的功能和任務是:作業管理、文件管理、外設管理、CPU管理和 【3】 管理。
(4) PC-DOS的兩個隱含文件是:IBMBIO.COM(輸入輸出程序)與 【4】 (磁盤操作管理程序)。
(5) FoxBASE和dBASE有兩種變量:即內存變量和 【5】 變量 。
(6)下列程序是計算與輸出
1!+2!+3!+…+m!
的值。請在程序中的 【 】 處填入合適的內容。
COMMON N,W
READ(*,*)M
S=0
DO 10 【6】 =1,M
CALL SS
S=S+ 【7】 
10 CONTINUE
WRITE(*,*) 'S=',S
END
SUBROUTINE SS
COMMON N,W
W=1.0
DO 10 K=1, 【8】
10 W=W*K
END
(7) 當X=3時，用下列計算公式計算sin(x)的值：

(不準用內部函數)直到第n項的絕對值小于是10-15為止。請在程序中的【】處填入合適的內容。
DOUBLE PRECISION SINX,T
X=3.O
SINX=X
K=3
T=X
100 T=－X*X/(K*(K－1))*T
K=K+ 【9】 
SINX=SINX+T
IF( 【10】 .GT.1.OD－15) GOTO 100
WRITE(*，*) SINX,SIN(3.0D0)
END
(8) 下列程序的功能是：有20個數圍成一個環



找出相鄰三個數之和為最小的三個數。請在下列程序中的 【】 處填入合適的內容
INTEGER MA(22),P
DATA MA/20,1,18,4,13,6,10,15,2,17,3,19,7,26,8,11,14,9,12,5,0,0/
MA(21)=MA(1)
MA(22)=MA(2)
WRITE(*,'(1X,5I6)')MA
【11】
WRITE(*,100)P,(MA(K),K=P,P+2)
100 FORMAT(5X,'P=',I5/5X,3I5)
END
SUBROUTINE FMIN(A,N,P)
INTEGER A(N),P
【12】
MIN=A(P)+A(P+1)+A(P+2)
DO 100 K=2,N-2
MIN0=A(K)+A(K+1)+A(K+2)
IF (MIN0,LT.MIN THEN
P=K
MIN=MIN0
END IF
100 CONTINUE
END
(9) 下列程序是用二分法計算方程x2-2x2+7x+4=0的一個根。請在程序中的【】處填入合適的內容。
FN(X)=X**3-2*X**2+7*X+4
10 READ(*,*)X1,X2
F1=FN(X1)
F2=FN(X2)
IF(F1*F2.GE.0) 【13】 
F=1.0
20 IF(ABS(X1-X2).GT.1.OE-5.AND. 【14】 .GT.1.0E-6) THEN
X=(X1+X2)/2
F=FN(X)
IF(F1*F.GT.0) THEN
X1=X
F1=F
END IF
IF (F*F2.GT.Q) THEN
X2=X
F2=F
END IF
【15】
END IF
IF(ABS(X1-X2).LE.1.OE-5) X=(X1+X2)/2
WRITE(*.*) X
END
(10) 下列FORTRAN77程序的功能是：輸出矩陣



的轉置矩陣。請在程序中的【】 處填入合適的內容
INTEGER A(3,4),B( 【16】 )
DATA A/3，7，11，5，9，13，7，11，15，9，13，17/
DO 10 I=1, 【17】 
DO 10 J=1， 【18】 
10 B(I,J)= 【19】 
WRITE(*,100)((B(I,J),J=1,3),I=1,4)
100 FORMAT(1X, 【20】 I4)
END
〖完〗