全國計算機等級考試二級筆試試卷
基礎(chǔ)部分和FORTRAN語言程序設(shè)計
(考試時間：120分鐘，滿分100分)
2000年9月
一、選擇題((1)--(40)每小題1分, (41)--(50)每小題2分, 共60分)
下列各題 A) 、B)、C)、D)四個選項中，只有一個選項是正確的，請將正確選項在答題卡相應(yīng)位置上涂黑，答在試卷上不得分。
(1) 下列電子郵件地址中正確的是(其中□表示空格)
A) Malin&ns.cnc.ac.cn B) malin@ns.cac.ac.cn
C) Lin□Ma&ns.cnc.ac.cn D) Lin□Ma@ns.cnc.ac.cn
(2) 下列說法中正確的是
A) 為了使用Novell網(wǎng)提供的服務(wù)，必須采用FTP協(xié)議
B) 為了使用Internet網(wǎng)提供的服務(wù)，必須采用TELNET協(xié)議
C) 為了使用Novell網(wǎng)提供的服務(wù)，必須采用TCP/IP協(xié)議
D) 為了使用Internet網(wǎng)提供的服務(wù)，必須采用TCP/IP協(xié)議
(3) 下列說法中不正確的是
A) 調(diào)制解調(diào)器(Modem)是局域網(wǎng)絡(luò)設(shè)備
B) 集線器(Hub)是局域網(wǎng)絡(luò)設(shè)備
C) 網(wǎng)卡(NIC)是局域網(wǎng)絡(luò)設(shè)備
D) 中繼器(Repeater)是局域網(wǎng)絡(luò)設(shè)備
(4) 十進制數(shù)397的十六進制值為
A) 18D B) 18E C) 277 D) 361
(5) 下列說法中不正確的是 
A) CD-ROM是一種只讀存儲器但不是內(nèi)存儲器
B) CD-ROM驅(qū)動器是多媒體計算機的基本部分
C) 只有存放在CD-ROM盤上的數(shù)據(jù)才稱為多媒體信息
D) CD-ROM盤上最多能夠存儲大約650兆字節(jié)的信息
(6) Windows應(yīng)用環(huán)境中鼠標(biāo)的拖動操作不能完成的是
A) 當(dāng)窗口不是最大時，可以移動窗口的位置
B) 當(dāng)窗口最大時，可以將窗口縮小成圖標(biāo)
C) 當(dāng)窗口有滾動條時可以實現(xiàn)窗口內(nèi)容的滾動
D) 可以將一個文件移動(或復(fù)制)到另一個目錄中去
(7) 從Windows中啟動MS-DOS方式進入了DOS狀態(tài)，如果想回到Windos狀態(tài)，在DOS提示符下，應(yīng)鍵入的命令為
A) EXIT B) QUIT C) WIN D) DOS -U 
(8) 要在WINDOWS標(biāo)準(zhǔn)窗口的下拉菜單中選擇命令，下列操作錯誤的是
A) 用鼠標(biāo)單擊該命令選項 
B) 用鍵盤上的上下方向鍵將高亮度條移至該命令選項后再按回車鍵
C) 同時按下ALT鍵與該命令選項后括號中帶有下劃線的字母鍵
D) 直接按該命令選項后面括號中帶有下劃線的字母鍵
(9) ASCLL碼(含擴展)可以用一個字節(jié)表示，則可以表示的ASCLL碼值個數(shù)為
A) 1024 B) 256 C) 128 D) 8O
(10) 字長為32位的計算機是指
A) 該計算機能夠處理的最大數(shù)不超過232
B) 該計算機中的CPU可以同時處理32位的二進制信息
C) 該計算機的內(nèi)存量為32MB
D) 該計算機每秒鐘所能執(zhí)行的指令條數(shù)為32MIPS
(11) 在DOS系統(tǒng)中，下列文件名中非法的是
A) ABCDEFG1 B) ABCDEFG1.234 C) ABCD_EFG D) ABCD\EFG
(12) DOS系統(tǒng)啟動后，下列文件中駐留內(nèi)存的是
A) CONFIG.SYS B) COMMAND.COM C) AUTOEXEC.BAT D) MEM.EXE
(13) DOS下的"DIR *2"命令將列出當(dāng)前目錄下的
A) 所有名字末尾為字符2的非隱含文件和目錄
B) 所有名字末尾為字符2的非隱含文件
C) 所有非隱含文件
D) 所有非隱含文件和目錄
(14) 軟驅(qū)的盤符為A，A盤上只有一個目錄\XYZ,而\XYZ下有若干子目錄和文件，若想把A盤的所有內(nèi)容復(fù)制到C盤根目錄下，應(yīng)使用的命令為
A) COPY A:\*.* C: B) COPY A:\*.* C:\*.*
C) XCOPY A:\*.* C:\ /S D) DISKCOPY A: C: 
(15) 若要將當(dāng)前盤目錄下的文件A.TXT連接在文件B.TXT后面，應(yīng)使用的命令為 
A) COPY A.TXT>>B.TXT B) MOVE A.TXT>>B.TXT
C) PATH A.TXT>>B.TXT D) TYPE A.TXT>>B.TXT
(16) 下列敘述中正確的是
A) 完整的FORTRAN77程序的第一個語句必須是PROGRAM語句
B) 完整的FORTRAN77程序中只能有一個END語句
C) FORTRAN77的任何可執(zhí)行語句都可以有標(biāo)號
D) FORTRAN77的所有語句都是可執(zhí)行語句
(17) 下列敘述中不正確的是
A) FORTRAN77子程序可以單獨編譯
B) 對一個FORTRAN77源程序進行編譯和連接無誤后可生成可執(zhí)行文件
C) 即使編譯和連接都正確無誤，F(xiàn)ORTRAN77程序運行時仍可能出錯
D) FORTRAN77連接的主要任務(wù)是把函數(shù)庫中的函數(shù)翻譯成機器指令
(18) 以下關(guān)于FORTRAN77源程序書寫格式的敘述中正確的是
A) 程序行的第1列為注釋標(biāo)志區(qū)，不能用作標(biāo)號
B) 程序行的7-72列為語句區(qū)
C) 利用續(xù)行標(biāo)志，一條語句可以繼續(xù)任意多行
D) 只要以字母C或字符*起頭，就是注釋區(qū)
(19) 閱讀下列FORTRAN77程序： 
S=1.0
DO 10 K=2,4,2
10 S=S+1/K
WRITE(*,*)S
END
執(zhí)行上述程序后,輸出的S值為
A) 0.75 B) 1.75 C) 0.0 D) 1.0
(20) 下列標(biāo)識符中不能作為FORTRAN77的合法變量名的是
A) A_1 B) A1 C) A1A D) A+1
(21) 設(shè)A=3.0,C=6.0,L=.FALSE.,則下列FORTRAN77表達式中值為.FALSE.的是
A) A.NE.C.AND..NOT.L B) A.NE.C.NEQV..NOT.L
C) A.NE.C.EQV..NOT.L D) A.NE.C.OR..NOT.L
(22) ?2sin2(?)的FORTRAN77表達式正確的寫法是
A) 0.5*SIN(1/2)**2 B) SIN(0.5)**2/2
C) 0.5(SIN(1/2))**2 D) (SIN**2)(1/2)/2
(23) 不等式0<Y<1的FORTRAN77表達式是
A) 0.0.LE.Y.LE.1.0 B) 0.0.LE.Y.OR.Y.LE.1.0
C) 0.0.LE.Y.AND.Y.LE.1.0 D) 0.0.LE.Y.NOT.Y.GT.1.0
(24) 下列各組說明語句中正確的是
A) REAL R B) PARAMETER(R=10)
IMPLICITINTEGER(I-T) INTEGER R
C) REAL R D) IMPLICITINTEGER(I-N)
PARAMETER(R=10) REAL R=10
(25) 下列DATA語句中正確的是
A) DATA /A,B/-1.0, -1.0/ B) DATA A, B/2*(-1.0)/
C) DATA A, B/2*-1.0/ D) DATA A/-1.0, B/-1.0/
(26) 設(shè)M=2000,為了在屏幕上輸出
□□***2000*** (其中□表示空格):
則應(yīng)使用的格式輸出語句為
A) WRITE(*,10)M
10 FORMAT(2X,'***',I4,'***')
B) WRITE(*,10)
10 FORMAT(3X,'***M***')
C) WRITE(*,10)
10 FORMAT(3X,'***2000***')
D) WRITE(*,10)M
10 FORMAT(1X,'2X',17,'***')
(27) 若有格式輸入語句如下:
INTEGER A(4)
READ(*,2O)A
20 FORMAT(4I2)
如果在執(zhí)行時從鍵盤輸入
□1□23□456□789↙ (其中□為空格, ↙為回車鍵)
則讀入后的A(3)值為
A) 56 B) 456 C) 34 D) 30
(28) 下列不是FORTRAN77賦值語句的是
A) X=.TRUE. B) X=X*X C) X=X**2**2 D) X=X++
(29) 閱讀下列FORTRAN77程序:
READ(*,10)A,B,C
10 FORMAT(1X,F3.1,2X,2F3.2)
WRITE(*,*)B
END
如果在執(zhí)行該程序時從鍵盤輸入
1234567890↙ (其中↙為回車鍵)
則運行后輸出的B值為
A) 7.89 B) 6.78 C) 4.56 D) 0.67
(30) 閱讀下列FORTRAN77程序:
READ(*,*)A
B=0.0
IF(A.GE.1.0)B=B+2.0
IF(A.GE.2.0)B=B-1.0
WRITE(*,*)B
END
在執(zhí)行時,從鍵盤輸入
5.0↙ (其中↙為回車鍵)
則輸出的B值為
A) 2.0 B) -1.0 C) 0.0 D) 1.0
(31) 閱讀下列FORTRAN77程序:
PARAMETER(A=1.0)
READ(*,*)B
IF(B.LT.A)THEN
B=A
ELSE IF(B.GT.A)THEN
B=B-A
IF(B.GT.A)THEN
B=B-A
ENDIF
ELSE
B=0.0
ENDIF
WRITE(*,*)B
END
在執(zhí)行時,從鍵盤輸入
2.5↙ (其中↙為回車鍵)
則輸出的B 值為
A) 1.0 B) 2.5 C) 1.5 D) 0.5
(32) 設(shè)分段函數(shù)如下:
1 X>1
y= X 0<X≤1
-X X≤0 
實現(xiàn)上述函數(shù)功能的FORTRAN77程序段為
A) IF(X.GT.1.0)Y=1.0
IF(X.GT.0.0)Y=X
IF(X.LE.0.0)Y=-X
B) IF(X.GT.0.0)Y=X
IF(X.LE.0.0)Y=-X
IF(X.GT.1.0)Y=1.0
C) IF(X.LE.0.0)Y=-X
IF(X.GT.1.0)Y=1.0
IF(X.GT.0.0)Y=X
D) IF(X.GT.1.0)Y=1.0 
IF(X.LE.0.0)Y=-X
IF(X.GT.0.0)Y=X
(33) 下列各程序中正確的是
A) DO 10 N=1， 100
<循環(huán)體> 
10 GOTO 100
B) DO 10 N=1，100
<循環(huán)體>
10 END
C) DO 10 N=1，100
<循環(huán)體>
10 STOP
D) DO 10 N=1，100
<循環(huán)體>
10 IF(N.GT.10)M=N-10
(34) 閱讀下列FORTRAN77程序：
DO 10 I=4，2，-1
A=1.0
DO 20 J=I，4，2
A=A+1.0
20 CONTINUE
10 CONTINUE
WRITE(*，*)A
END
運行上述程序后，輸出的A值為
A) 5.0 B) 4.0 C) 3.0 D) 2.0
(35) 下列循環(huán)中不正確的是
A) DO 10 I=1，200，100
M=I
DO 10N=M，10
<循環(huán)體>
10 CONTINUE
B) DO 10 I=1，200，100
M=I
DO 20 N=M，10
<循環(huán)體>
20 CONTINUE
10 CONTINUE
C) DO 10 I=1，200，100
DO 20 N=I，10
<循環(huán)體>
20 CONTINUE
10 CONTINUE
D) DO 10 I=1，200，100
M=I
DO 20 I=M，10
<循環(huán)體>
20 CONTINUE
10 CONTINUE
(36) 對于下列給定的FORTRAN77說明和賦初值語句：
INTEGER A(2，2)
DATA A/3，4，5，6/
數(shù)組元數(shù)A(2，1)的初值為
A) 3 B) 5 C) 4 D) 6
(37) 下列有關(guān)FORTRAN77數(shù)組的說法正確的是
A) 數(shù)組定義語句只能定義一維或二維數(shù)組
B) 數(shù)組元素下標(biāo)不能出現(xiàn)負值
C) 在賦值語句中出現(xiàn)的A(3)肯定是數(shù)組元素
D) 程序中使用的數(shù)組必須進行說明
(38) 閱讀下列FORTRAN77程序：
INTEGER A(3，2)
READ(*，100)A
100 FORMAT(2I3)
WRITE(*，*)A
END
運行后要使A(1，2)的值為2，正確的鍵盤輸入為(其中□為空格) 
A) □□1□□2
□□3□□4
□□5□□6
B) □□1□□2□□3
□□4□□5□□6
C) □□1□□3□□5
□□2□□4□□6
D) □□1□□3
□□5□□2
□□4□□6
(39) 閱讀下列FORTRAN77程序：
DIMENSION A(3)
DATA A/3.0, 2.0,1.0/
X=F(A)
WRITE(*,100)X
100 FORMAT(1X,F3.1)
END
FUNCTION F(B)
DIMENSION A(3),B(3)
DO 10 I=1,3
10 A(I)=B(I)- I
F=A(1)+A(2)+(3)
X=1.0 -F
END
執(zhí)行上述程序后，輸出的X值為
A) 1.0 B) 0.0 C) 6.0 D) -5.0
(40) 設(shè)有FORTRAN77函數(shù)子程序如下：
FUNCTION IP(N，A)
IP=0
IF(A.LT.1.0)IP=N
END
下列函數(shù)調(diào)用中正確的是
A) M=IP(1.0，IP(1，1.0)) B) M=IP(IP(1，1.0)，1.O)
C) M=IP(A，A) D) M=IP(1.0，1.0)
(41) 下列FORTRAN77程序中有錯誤的是
A) DIMENSION A(10)
CALL SUB(A，3)
WRITE(*，*)(A(I)，I=1，6)
END
SUBROUTINE SUB(A，N)
DIMENSION A(N，N)
S=0.0
DO 10 I=1，N
DO 10 J=1，N
A(I，J)=S+1.0
S=S+1.0
10 CONTINUE
END
B) DIMENSION A(3，3)
CALL SUB(A，3)
WRITE(*，*)A
END
SUBROUTINE SUB(B，N)
DIMENSION B(3，3)
S=0.0
DO 10 I=1，3
DO 10 J=1，3
B(I，J)=S+1.0
S=S+1.0
10 CONTINUE
END
C) DIMENSION A(3，3)
CALL SUB(A，4)
WRITE(*，*)A
END
SUBROUTINE SUB(B，N)
DIMENSION B(N，N)
S=0.0
DO 10 I=1，N
DO 10 J=1，N
B(I，J)=S+1.0
S=S+1.0
10 CONTINUE
END
D) DIMENSION A(10) 
CALL SUB(A，3)
WRITE(*,*)(A(I),I=1,6)
END
SUBROUTINE SUB(B,N)
DIMENSION B(N,N)
S=0.0
DO 10 I=1,N
DO 10 J=1,N
B(I,J)=S+1.0
S=S+1.0
10 CONTINUE
END
(42) 下列對公用區(qū)的說明語句中錯誤的是
A) COMMON A(5)， B B) COMMON/AB/A(5)， B
C) COMMON AB/A(5)， B/ D) COMMON//A(5)， B
(43) 下列在主程序與子程序中對公用區(qū)的說明不正確的是
主程序 子程序
A) COMMON A(2)，B，C，D COMMON A(3)，B，C，D
B) COMMON A(2)，B COMMON A(3)
COMMON C，D COMMON B，C，D
C) COMMON A(2)，B COMMON A(2)，B
COMMON C，D COMMON/X/C，D
D) COMMON A(2)，B COMMON A(3)
COMMON/X/C，D COMMON/X/B，C，D
(44) 閱讀下列FORTRAN77程序：
COMMON A，B，C，D
A=1.0
B=2.0
C=3.0
D=4.0
CALL ABCD(2)
WRITE(*,*)A,C
END
SUBROUTINE ABCD(N)
COMMON B,C,D,A
IF(N.GT.0) THEN
B=A
C=D
ENDIF
END
執(zhí)行上述程序后,輸出的A與C的值分別為
A) 1.0與3.0 B) 1.0與4.0 C) 4.0與3.0 D) 4.0與2.0
(45) 字符運算'AB'//'CD'產(chǎn)生的新字符串值為(其中□表示空格):
A)'ABCD' B)'AB//CD' C)'AB□CD' D)'AB□□CD'
(46) 閱讀下列FORTRAN77程序(其中□表示空格):
CHARACTER *3 A(3)
A(1)='A□GOOD□IDEA.'
WRITE(*,*)A(1)
END
執(zhí)行該程序后,輸出的結(jié)果是
A) 'A□GOOD□IDEA.' B) A□GOOD□IDEA.
C) 'A□G' D) A□G
(47) 下列表達式中值為.TRUE.的是
A)'ARE'.GT.'IS' B)'are'.GT.'IS' C)'ARE'.GT.'are' D)'are'.GT.'is'
(48) 下列關(guān)于直接文件操作說法中不正確的是
A) 直接文件不能按記錄的順序讀取 B) 直接文件的所有記錄的長度都相等
C) 直接文件不能按表控格式存取 D) 順序?qū)懭氲奈募疾荒苤苯幼x取
(49) 閱讀下列FORTRAN77程序:
DIMENSION A(3)
OPEN(6,FILE='XY.DAT',STATUS='NEW', ACCESS='DIRECT',
* FORM='FORMATTED',RECL=30)
DO 10 I=1,6
S=2.0*I
WRITE(6,100,REC=I)S
100 FORMAT(E15.6)
10 CONTINUE
REWIND(6)
READ(6,100,REC=3)A
S=0.0
DO 20 I=1,3
S=S+A(I)
20 CONTINUE
WRITE(*,*)S
CLOSE(6)
END
上述程序執(zhí)行后,S的輸出結(jié)果是
A) 12.0 B) 18.0 C) 24.0 D) 30.0
(50) 閱讀下列FPRTRAN77程序:
COMMON C
A=1.0
B=2.0
C=3.0
CALL TEST1(4.0,A,B)
WRITE(*,*)A,B,C
END
SUBROUTINE TEST1(A,B,C)
COMMON X
X=0.0
IF(A.GT.B)C=A
IF(A,LE,B)B=A
X=C-B
END
執(zhí)行上述程序后,輸出的A,B,C值分別為
A) 1.0 2.0 1.0 B) 4.0 4.0 4.0
C) 1.0 4.0 3.0 D) 2.0 4.0 4.0

二、填空題(每空2分，共40分)
請將每空的正確答案寫在答題卡上【1】至【20】序號的橫線上，答在試卷上不得分。
(1) 在DOS狀態(tài)下,當(dāng)執(zhí)行當(dāng)前盤當(dāng)前目錄中的程序A.EXE時,為了將本該在屏幕上顯示的運行結(jié)果輸出到文件A.DAT中,應(yīng)使用的DOS命令為 【1】 。
(2) 在XCOPY、PATH、TREE三個DOS命令中，屬于內(nèi)部命令的是令是 【2】 。
(3) 設(shè)當(dāng)前盤為C盤，為了將當(dāng)前盤當(dāng)前目錄中第三個字符為X的所有文件同名復(fù)制到A盤的當(dāng)前目錄中，應(yīng)使用的DOS命令為 【3】 。
(4) 要將當(dāng)前盤的目錄A\B\C設(shè)置為當(dāng)前目錄,應(yīng)使用的DOS命令為【4】 。
(5) 計算機網(wǎng)絡(luò)按通信距離劃分為局域網(wǎng)與廣域網(wǎng),NOVELL網(wǎng)屬于 【5】 。
(6) 下列FORTRAN77程序的功能是:對輸入的N(<100)個實數(shù),求其平均值并輸出。請在程序中的下劃線處填入合適的內(nèi)容。
DIMENSION X(100)
READ(*,*)N
CALL ABC(N,X)
END

【6】
DIMENSION A(N)
DO 10 I=1,N
READ(*,*)A(I)
10 CONTINUE
【7】
DO 20 J=1,N
20 S=S+A(J)
【8】
WRITE(*,*)S
END
(7) 下列FORTRAN77子程序的功能是對給定的N×K階實矩陣A和K×M階實矩陣B，求乘積矩陣C=AB。請在程序中的下劃線處填入合適的內(nèi)容。
SUBROUTINE SM(N,K,M,A,B,C)
【9】
DO 10 I=1,N
DO 10 J=1,M
【10】
DO 20 L=1,K
20 C(I,J)=C(I,J)+A(I,L)*B(L,J)
10 【11】 
END
(8) 下列FORTRAN77子程序的功能是：統(tǒng)計字符串中字母Q、字母U和字符串QU出現(xiàn)的次數(shù)。其中字符串通過鍵盤輸入得到，其長度不超過80個字符。請在程序中的下劃線處填入適當(dāng)?shù)膬?nèi)容。
CHARACTER *80 STR
READ(*,*)STR
NUMQ=0
NUMU=0
NUMQU=0
I=0
K=0
10 【12】 
IF(STR(I:I).EQ.'Q') THEN
NUMQ=NUMQ+1
【13】 
ELSE IF(STR(I:I).EQ.'U') THEN
NUMU=NUMU+1
IF(K.EQ.1) NUMQU=NUMQU+1
K=0
ELSE
【14】 
ENDIF
IF(I.LT.80) GOTO 10
WRITE(*,*)'NUMQ=',NUMQ
WRITE(*,*)'NUMU=',NUMU
WRITE(*,*)'NUMQU=',NUMQU
END
(9) 用梯形公式求數(shù)值積分的近似公式為

取f(x)=s0+s1x+s2x2，對于不同的系數(shù)s0，s1，s2,和積分上下限a，b，計算近似積分值并輸出結(jié)果。其中f(x)用函數(shù)子程序?qū)崿F(xiàn)，數(shù)值積分用子程序?qū)崿F(xiàn)，寫成下列FORTRAN77程序。請在程序中的下劃線處填入合適的內(nèi)容。
【15】 
COMMON S0,S1,S2
WRITE(*,*)'S0,S1,S2='
READ(*,*)S0,S1,S2
READ(*,*)A,B
CALL SUB( 【16】 )
WRITE(*,*)'S0=',S0,'S1=',S1,'S2=',S2
WRITE(*,*)'A=',A,'B=',B
WRITE(*,*)'FAB=',FAB
END

FUNCTION F(X)
【17】 
F=S0+S1*X,S2*X*X
END

SUBROUTINE SUB(A,B,F,FAB)
COMMON S0,S1,S2
FAB=0.5*(B-A)*(F(A)+F(B))
END
(10) 下列FORTRAN77程序的功能是計算并輸出

請在程序中的下劃線處填入合適的內(nèi)容。
K=1
【18】 
10 IF(K.LE.5) THEN
【19】 
DO 20 M=1,K+2
FAC=FAC*M
20 CONTINUE
SUM=SUM+FAC
【20】 
GOTO 10
END IF
WRITE(*,*) SUM
END
[完]