全國計(jì)算機(jī)等級考試二級筆試試卷
基礎(chǔ)知識和FORTRAN語言程序設(shè)計(jì)
(考試時(shí)間120分鐘,滿分100分)
1999年4月
一、選擇題（(1)-(40)題每題1分，(41)-(50)每個(gè)選項(xiàng)2分，共60分）
下列各題 A) 、B)、C)、D)四個(gè)選項(xiàng)中，只有一個(gè)選項(xiàng)是正確的，請將正確選項(xiàng)涂寫在答題卡相應(yīng)位置上，答在試卷上不得分。
(1) 微型計(jì)算機(jī)的性能產(chǎn)要取決于：
A) 內(nèi)存 B) 中央處理器 C) 硬盤 D) 顯示卡
(2) 有一個(gè)數(shù)值152，它與十六進(jìn)制6A相等，那么該數(shù)值是
A) 二進(jìn)制數(shù) B) 八進(jìn)制數(shù) C) 十進(jìn)制數(shù) D) 四進(jìn)制數(shù)
(3) 使用超大規(guī)模集成電路制造的計(jì)算機(jī)應(yīng)該歸屬于
A) 第一代 B) 第二代 C) 第三代 D) 第四代
(4) 已知英文字母a的ASCII代碼值是十六進(jìn)制61H，那么字母d的ASCII代碼值是:
A) 2H B) 54H C) 24H D) 64H
(5) 一片存儲容量是1，44MB的軟磁盤，可以存儲大約140萬個(gè)
A) ASCII字符 B) 中文字符 C) 磁盤文件 D) 子目錄
(6) 在MS-DOS環(huán)境中同時(shí)按下[Ctrl]和[Break]兩個(gè)鍵，其作用是
A) 終止當(dāng)前操作 B) 暫停當(dāng)前操作 C) 關(guān)機(jī) D) 熱啟動
(7) 將二進(jìn)制數(shù)10000001轉(zhuǎn)換為十進(jìn)制數(shù)應(yīng)該是
A) 127 B) 129 C) 126 D) 128
(8) 磁盤處于寫保護(hù)狀態(tài)，那么磁盤中的數(shù)據(jù)
A) 不能讀出，不能刪改，也不能寫入新數(shù)據(jù)
B) 可以讀出，不能刪改，也不能寫入新數(shù)據(jù)
C) 可以讀出，可以刪改，但不能寫入新數(shù)據(jù)
D) 可以讀出，不能刪改，但可以寫入新數(shù)據(jù)
(9) 微型機(jī)啟動后，DOS提示符是C:\>,現(xiàn)提示符變?yōu)镃:\USER>,則說明剛執(zhí)行過命令:
A) PROMPT B) PROMPT USER C) PROMPT $P$G D) CD USER
(10) MS-DOS文件系統(tǒng)目錄的組織形式屬于
A) 關(guān)系型結(jié)構(gòu) B) 網(wǎng)絡(luò)型結(jié)構(gòu) C) 樹型結(jié)構(gòu) D) 直線型結(jié)構(gòu)
(11) 應(yīng)用軟件系統(tǒng)TH的總?cè)萘看蠹s1MB，其主要程序文件存放在C:\TH目錄中,而數(shù)據(jù)文件存放在C:\TH\DATA目錄中。如要將它 們完整地復(fù)制到A盤，應(yīng)使用的命令是：
A) XCOPY C:\TH A:\ B) XCOPY C:\TH A:\ /S
C) XCOPY C:\TH A\ /M D) XCOPY C:\TH A:\ /P
(12) 執(zhí)行COPY A.TXT+TXT這個(gè)DOS命令后,得到的磁盤文件是
A) A.TXT B) B.TXT C) AB.TXT D) A+B.TXT
(13) 在WINDOWS中，將一個(gè)應(yīng)用程序窗口最小化后，該應(yīng)用程序
A) 仍在后臺運(yùn)行 B) 暫時(shí)停止運(yùn)行 C) 完全停止運(yùn)行 D) 出錯
(14) CD-ROM屬于
A) 感覺媒體 B) 表示媒體 C) 表現(xiàn)媒體 D) 存儲媒體
(15) 在因特網(wǎng)(Internet) 中，電子公告板的縮寫是
A) FTP B) WWW C) BBS D) E-mail
(16) 按照翻譯類型分類,FORTRAN77程序設(shè)計(jì)語言屬于
A) 匯編型 B) 解釋型 C) 編譯型 D) 解釋型兼編譯型
(17) 一個(gè)完整的FORTRAN77源程序的組成不應(yīng)該
A) 只有一個(gè)主程序沒有子程序 B) 有一個(gè)主程序和若干子程序
C) 有一個(gè)主程序和一個(gè)子程序 D) 只有子程序而沒有主程序
(18) 下列關(guān)于FORTRAN77源程序編輯規(guī)則的敘述之中,正確的是
A) 編輯時(shí)一行都必須從第7列開始 B) 主程序第一行必須是PROGRAM語句
C) 每個(gè)FORMATO語句必須具有標(biāo)號 D) 每個(gè)子程序中必須有一個(gè)RETURN語句
(19) 在FORTRAN77源程序中不能用作續(xù)行標(biāo)志的字符是
A) 0 B) X C) + D) $
(20) 下列關(guān)于FORTRAN77源程序編輯規(guī)則的敘述之中,正確的是
A) IMPLICIT語句可以放在REAL語句行之后
B) DATA語句可以在放在緊靠END語句行之前 
C) 注釋行不可以放在END語句行之后
D) FORMAT語句可以放在PROGRAM語句行之前
(21) 下列FORTRAN77源程序的變量名之中,不符合規(guī)則的是
A) W B) W3 C) -3 D) W3W
(22) 若FORTRAN77中一個(gè)INTEGER型數(shù)據(jù)占用2個(gè)字節(jié),那么該類型的數(shù)據(jù)值范圍是
A) -2147484648 2147483647 B) -32768 32767
C) 0 4294967295 D) 0 65535
(23) 閱讀下列程序
X=0.618
WRITE(*,'(E12.4)')X
END
程序運(yùn)行后顯示結(jié)果是
A) .6180 B) 6.180E-01 C) .0618E+01 D) .6180E+00
(24) 梯形的上底為A,下底為B,高為H,計(jì)算其面積的FORTRAN77表達(dá)式中錯誤的是
A) 1/2*(AB)*H B) (A+B)*H/2 C) (A+B)/2*H D) 0.5*(A+B)*H
(25) 要選拔身高T>1.7米且體重W<62.5公斤的人,FORTRAN的邏輯表達(dá)式是
A) T.CE.1.7.AND.W.LE.62.5 B) T.LE.1.7.OR.W.GE.62.5
C) T.GT.1.7.AND.W.LT.62.5 D) T.GT.1.7.OR.W.LT.62.5
(26) 在FORTRAN77的變量類型說明語句中沒有
A) REAl語句 B) CHAR語句 C) INTEGER語句 D) LOGICAL語句
(27) 一次成功的FORTRAN77源程序編譯操作,不能
A) 同時(shí)編譯一個(gè)主程序和一個(gè)子程序 B) 同時(shí)編譯幾個(gè)子程序
C) 同時(shí)編譯一個(gè)主程序和幾個(gè)子程序 D) 同時(shí)編譯幾個(gè)主程序
(28) 閱讀下列程序
F=1.0
DO 20,J=3,7,2
DO 20,K=J-1,J
20 F =F*K
WRITE(*,'(13,F8.1)')J,F
END
程序運(yùn)行結(jié)果是
A) 3 6.0 B) 5 120.0 C) 9 5040.0 D) 9362880.0
(29) 閱讀下列程序
CHARACTER*10 W
DO 10 K=1,10
READ(*,'(A 10)'W
IF (W(1:2).EQ.'AB'.OR.W(1:2).EQ.'ab')WRITE(*,*)'',W10 CONTINUE
END
程序的功能是
A) 首字符是A或B的字符串被輸出顯示
B) 第一、二個(gè)字符是Aa或ab的字符串被輸出顯示
C) 首字符是a或b的字符串將被輸出顯示
D) 第一、二個(gè)字符是Aa或Bb的字符串將被輸出顯示
(30) 閱讀下列程序
LOGICAL L
READ(*,*)A,B
L=A.GT.B
IF(L)THEN
X=B+2*A
ELSE
X=B
END IF
WRITE(*,*)X
END
使用鍵盤為上述程序輸入兩個(gè)初值4和3,其輸出的X值是
A) 4.0 B) 3.0 C) 11.0 D) 10.0
(31) 閱讀下列程序
READ(*,*)K
WRITE(*,100)K
100 FORMAT(15)
END
程序運(yùn)行時(shí)輸入初始值12345,那么顯示結(jié)果是
A) 12345 B) 2345 C) **** D) *****
(32) 閱讀下列程序
INTEGER F
F(X,Y)=X+Y
A=-2.5
B=2.1
B=B+F(A,B)
WRITE(*,'(F3.1)')B
END
程序運(yùn)行的結(jié)果是
A) .1 B) .7 C) 2.1 D) 1.7
(33) 閱讀下列程序
A=3.5
CALL SUBA(A,A,A)
WRITE(*,'(F4.1)')A
END
SUBROUTINE SUBA(X,Y,Z)
Y=Y-2.0
Z=Z+X
END
程序運(yùn)行的結(jié)果是
A) 7.0 B) 5.0 C) 3.0 D) 1.5
(34) 閱讀下列程序
CHARACTER A*4,B*5,C*4
DATA A,B,C/','MIDDLE','SMALL'/
WRITE(*,20)A,B,C
20 FORMAT(1X,A2,A3,A4)
END
程序運(yùn)行結(jié)果是
A) BIGMIDDLE B) ********* C) BIGMIDSMA D) BIMIDSMAL
(35) 閱讀下列程序
N=0
DO 10 K=1,3
N =N+1
M=K*N
10 CONTINUE
WRITE(*,'(1X,2I3)')M,K
END
程序運(yùn)行結(jié)果是
A) 9 4 B) 9 3 C) 12 4 D) 12 3(#^)
(36) 閱讀下列程序
FUN(c,d)=a*c+b/d
DATA a,b/1.0-1.0/
WRITE(*,'(F4.1)')FUN(a,b)-FUN(b,a)
END
程序運(yùn)行結(jié)果是
A) 0.0 B) 4.0 C) 2.O D) 3.O
(37) 閱讀下列程序
LOGICAL L1,L2,L3,L4,L5
DATA L1,L2,L3/3*.TRUE./
L4=.NOT.L1.AND..NOT.L2.AND.L3
L5=.NOT.L1.OR..NOT.L2.OR.L3
WRITE(*,*)L4,L5
END
程序運(yùn)行結(jié)果是
A) T T B) T F C) F F D) F T
(38) 閱讀下列程序
READ(*.500)R.W
WRITE(*.500)R.W
500 FORMAT(1X,F5.2,F5.3)
END
程序運(yùn)行時(shí)輸入初始值01234567899,結(jié)果顯示的是
A) *****67.899 B) 12.3456.789 C) ********** D) 123.4567.899
(39) 閱讀下列程序
Y=-123WRITE(*,200)Y
200 FORMAT('Y=',F5.1)
END
程序運(yùn)行結(jié)果是
A) Y=***** B) =***** C) Y=-123.0 D) =-123.0
(40) 閱讀下列程序
K(X,Y)=X/Y+X
A=-2.0
B=4.0
B=1.0+K(A,B)
WRITE(*,'(F4.1)')B
END
程序運(yùn)行結(jié)果是
A) -1.0 B) 1.0 C) 2.0 D) 3.0
(41) 閱讀下列程序
DIMENSION M(3,3)
DATA M/1,2,3,4,5,6,7,8,9/
WRITE(*,100)(M(3,J),J=1,3)
100 FORMAT(1X,3I2)
END
程序運(yùn)行結(jié)果是
A) 2 5 8 B) 3 6 9 C) 4 5 6 D) 7 8 9
(42) 閱讀下列程序
INTEGER A(100),G
READ(*,*)N,(A(I),I=1,N)
DO 10 I=1,N-1
G=I
DO 20 J=I+1,N
IF(A(J).LT.A(G))THEN
G=J
ENDIF
20 CONTINUE
K=A(I)
A(I)=A(G)
A(G)=K
10 CONTINUE
WRITE(*,'(1X,10I2)')(A(I),I=1,N)
END
程序運(yùn)行時(shí)輸入的初始值是3,6,9,7,則運(yùn)行結(jié)果是
A) 6 7 8 B) 8 7 6 C) 6 8 9 D) 9 8 6
(43) 閱讀下列程序
I=1
M=1
10 IF(I.LE.3)THEN
FACT=1
DO 100K=1,2*I+1
FACT=FACT*K
100 CONTINUE
M=M+FACT
I=I+1
GOTO 10
WRITE(*,'(I15)')M
END
程序運(yùn)行結(jié)果是
A) 5040 B) 5160 C) 5166 D) 5167
(44) 閱讀下列程序
DIMENSION S(3)
DATA S/1.0,2.0,3.0/
WRITE(*,*)LA(3,S)
END
FUNCTION LA(N,X)
DIMENSION X(N)
LA=0
L=2
DO 20 I=1,N
LA=LA+X(I)/L
20 CONTINUE
END
程序運(yùn)行結(jié)果是
A) 1.0000000 B) 2.0000000 C) 1 D) 2
(45) 閱讀下列程序
DIMENSION N(2)
DO 10 I=1,2
N(I)=0
10 CONTINUE
K=2
DO 20 I=1,K
DO 30 J=1,K
N(J)=N(I)+1
30 CONTINUE
20 CONTINUE
WRITE(*,100),N(2)
100 FORMAT(I3,I3)
END
程序運(yùn)行結(jié)果是
A) 2 3 B) 3 3 C) 2 2 D) 3 2
(46) 閱讀下列程序
WRITE(*,*)'INPUT A,B,H(cm)'
READ(*,100)A,B,H
S=(A+B)*H/2
S=INT(S*10+0.5)/10
WRITE(*,200)S
100 FORMAT(3F4.2)
200 FORMAT(1X,'S=',F6.2)
END
程序運(yùn)行時(shí)輸入初始值246035701240,輸出結(jié)果是
A) S=373.86 B) S=373.90 C) S=****** D) S=3738600.00
(47) 閱讀下列程序
INTEGER A(3,3)
DATA A/9,8,7,6,5,4,3,2,1/
WRITE(*,10)((A(M,N),N=1,M=1,3)
10 FORMAT(I2/,2I2/,3I2)
END
程序運(yùn)行結(jié)果是
A) 9 6 3 B) 9 8 7 C) 9 D) 9
5 2 5 4 8 5 6 5
1 1 7 4 1 3 2 1
(48) 點(diǎn)P在直角坐標(biāo)系中的橫坐標(biāo)U=-3.5,縱坐標(biāo)V=1.8,使用下列FORTRAN77程序
計(jì)算射線OP與X軸正向的夾角度數(shù).O是坐標(biāo)原點(diǎn).
PK=45/ATAN(1.O)
U=-3.5
V=1.8
WRITE(*,*) *PK,'(deg)'
END
在輸出語句WRITE(*,*)與*PK,'(deg.)'之間的空白處應(yīng)該添加的是
A) ATAN2(U/V) B) ATAN2(U,V) C) ATAN2(V/U) D) ATAN2(V,U)
(49) 閱讀下列程序
N=0
DO 10 K=50,0,-2
DO 10 L=-100,100,1
10 N=N+1
WRITE(*,*)N
END
程序運(yùn)行結(jié)果是
A) 5000 B) 5026 C) 5200 D) 5226
(50) 閱讀下列程序
CHARACTER*4 A,B,C*5
DATA A,B,C/'YOUR','BOYS','GIRLS'/
WRITE(*,'(1X,A4,A5,A6,A1)')A,B,C,'!'
END
程序運(yùn)行結(jié)果是
A) YOURBOYSGIRLS! B) YOUR凵BOYS凵GIRLS!
C) YOUR凵BOYSGIRLS! D) YOURBOYS凵GIRLS!
二、填空題:(每空2分,共40分)
請將每空的答案寫在答題卡【1】至【20】序號的橫線上.答在試卷上不得分.
(1) DOS中的自動批處理文件的全名是 【1】 。
(2) 在DOS啟動盤中，除CONNAND.COM外，還有兩個(gè)必備的系統(tǒng)文件，它們是MSDOS.SYS
(或IBMDOS.COM)與【2】 。
(3) 在DOS下，要將當(dāng)前目錄中AB.TXT文件設(shè)置為只讀屬性，應(yīng)該使用的完整命令行是【3】 。
(4) 在DOS下，要查看當(dāng)前目錄中所有批處理文件的總字節(jié)數(shù)，應(yīng)該使用的完整命令行是【4】 。
(5) 計(jì)算機(jī)病毒除有破壞性,潛伏性激發(fā)性外，還有一個(gè)最明顯的特性是【5】 。
(6) 閱讀下列程序，其功能是求出方程2X3-3X2+4X-11=0在區(qū)間(1,5)中的一個(gè)實(shí)數(shù)根，運(yùn)行結(jié)果是顯示根值和對分次數(shù)，使用的是二分算法。請?jiān)谄渲衉____處填入適當(dāng)?shù)膬?nèi)容。
FUN(X)=2.0*X**3-3.0*X**2+4.0*X-11.0
DATA XL,XR,N/1.O,5.0,0/
10 CONTINUE
【6】
X=(XL+XR)/2.0
【7】
IF(ABS(FX).LT.1E-6 .OR.N.GE.1000)THEN
WRITE(*,'(1X,A2,F12.7,A5,14)')'X=',X,'N=',N
ELSE
IF(FUN(【8】)*FX.GE.0.0)THEN
XR=X
ELSE
XL=X
ENDIF
GOTO 10
ENDIF
END
(7) 閱讀下列程序.其功能是計(jì)算Y=1+1.1X+1.2X2+1.3X3+1.4X4+1.5X5當(dāng)X=3.1時(shí)的值。主程序調(diào)用了函數(shù)子程序。請?jiān)谄渲衉___處填入適當(dāng)?shù)膬?nèi)容。
PROGRAM PVALUE
【9】
DATA A/1.0,1.1,1.2,1.3,1.4,1.5/,N,X/6,3.1/
【10】
WRITE(*,'(1X,A5,6F5.1)')'a(k)=',A
WRITE(*,'(1X,A2,F5.1,A6,F8.2)')'X=',X,'; Y=',Y
END 
FUNCTION POLY(B,M,V)
DIMENSION B(M)
POLY=B(1)
FV=1.0
DO 10K=2,M
FV=FV*V
10 【11】=POLY+B(K)*FV
END
(8) 函數(shù)子程序DTOH能夠?qū)⒁粋€(gè)十進(jìn)制正整數(shù)DEC轉(zhuǎn)換為一個(gè)表示十六進(jìn)制數(shù)的字符字符串，其長度不超過8。例如127轉(zhuǎn)換為'7F'。算法是：將DEC除16取余，將所得的商再除16取余，如此反復(fù)，直到商和零為止，最后按照逆序輸出所得的各個(gè)余數(shù)。請?jiān)谄渲衉___處填入適當(dāng)?shù)膬?nèi)容。
CHARACTER*8 FUNCTION DTOH(DEC)
INTEGER DEC,R,POS
POS=9
DTOH=''
111 CONTINUE
【12】
IF(POS.GE.1)THEN
R=MOD(DEC,16)
IF(R.LT.1O)THEN
【13】=CHAR(ICHAR('0')+R )
ELSE
DTOH(POS:POS)=CHAR(ICHAR('A')+R-10)
ELSE
DTOH='**********'
GOTO999
ENDIF
DEC=DEC/16
IF(【14】)GOTO 111
999 CONTINUE
END
PROGRAM DECHEX
CHARACTER*8 DTOH
WRETE(*,*) DTOH(127)
END
(9) 有一個(gè)十進(jìn)制的四位數(shù)ABCD與一個(gè)十進(jìn)制的三位數(shù)CDC的差等于十進(jìn)制的三位數(shù)ABC.下列程序按"ABCD=9876"的樣式打印出ABCD這個(gè)數(shù)。請?jiān)谄渲衉___外填入適當(dāng)?shù)膬?nèi)容.
INTEGER A,B,C,D
DO 10 A=1,9
DO 10 B=0,9
DO 10 C=1,9
【15】
L=1000*A+100*B+10*C+D
M=100*C+10*D+C
N=100*B+C
IF(【16】)WRITE(*,'(【17】)')'XABCD=',A,B,C,D
10 CONTINUE
END
(10) 閱讀下列程序，其功能是使用篩法選出N以內(nèi)的所有素?cái)?shù)并顯示算法在N以內(nèi)的自然數(shù)列中先篩除2的倍數(shù)；在2之后篩乘下的第一個(gè)數(shù)是3，于是再篩除3的倍數(shù)；在3之后篩剩下的第一個(gè)數(shù)是5，于是再篩除5的倍數(shù)；如此重復(fù)下去,直到遇見篩剩下的第一個(gè)數(shù)是最接近N的平方根的那個(gè)數(shù)為止。請?jiān)谄渲衉___處填入適當(dāng)?shù)膬?nèi)容。
PROGRAM PRINES
PARAMETER (N=100)
INTEGER A(N),P(N)
DO 10 K=1,N
10 A(K)=K
DO 20 K=3,N
20 IF(【18】.EQ.0)A(K)=0
ISR=SQRT(REAL(N))
DO 30M=3,ISR,2
DO 30K=M+2,N
30 IF(A(K).NE.0.AND.MOD(A(K),M).EQ.0)A(K)=0
M=1
DO 40K=2.N
IF(A(K).NE.0)THEN
【19】
M=M+1
ENDIF
40 CONTINUE
WRITE(*,'(1X,1018)')(P(K), 【20】)
END
「完」

1999年4月
全國計(jì)算機(jī)等級考試二級筆試試卷
基礎(chǔ)知識和FORTRAN語言程序設(shè)計(jì)
答案及評分標(biāo)準(zhǔn)

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

二、填空題(每空2分,共40分)(所有字母都允許大,小寫或大小寫混合)
(1) 【1】 AUTOEXEC.BAT
(2) 【2】 IO.SYS或IBMBIO.COM
(3) 【3】 ATTRIB AB.TXT +R AB.TXT
(4) 【4】 DIR *.BAT或DIR *.BAT/P或DIR *.BAT/W或DIR *.BAT/P/W
或DIR *.BAT/W/P
(5) _【5】 傳染性或傳播性
(6) 【6】 N=N+1或N=1+N 【7】FX=FUN(X) 【8】XR
(7) 【9】 DIMENSION A(6)或REPL A(6) 【10】Y=POLY(A,N,X)
【11】 POLY
(8) 【12】POS=POS-1 【13】DTOH(POS:POS)
【14】 DEC.NE.0或DEC.GT.0
(9) 【15】 DO 10 D=0,9或DO 10,D=0,9 【16】L-M.EQ.N或(L-M).EQ.N
【17】A6.411
(10) 【18】 MOD(A(K),2) 【19】P(M)=A(K) 【20】K=1,M-1