(考试时间120分钟,满分100分)
一、选择题（(1)-(40)题每题1分，(41)-(50)每个选项2分，共60分）
下列各题 A) 、B)、C)、D)四个选项中，只有一个选项是正确的，请将正确选项涂
写在答题卡相应位置上，答在试卷上不得分。
(1) 微型计算机的性能产要取决于：
A) 内存 B) 中央处理器 C) 硬盘 D) 显示卡
(2) 有一个数值152，它与十六进制6A相等，那么该数值是
A) 二进制数 B) 八进制数 C) 十进制数 D) 四进制数
(3) 使用超大规模集成电路制造的计算机应该归属于
A) 第一代 B) 第二代 C) 第三代 D) 第四代
(4) 已知英文字母a的ASCII代码值是十六进制61H，那么字母d的ASCII代码值是:
A) 2H B) 54H C) 24H D) 64H
(5) 一片存储容量是1，44MB的软磁盘，可以存储大约140万个
A) ASCII字符 B) 中文字符 C) 磁盘文件 D) 子目录
(6) 在MS-DOS环境中同时按下[Ctrl]和[Break]两个键，其作用是
A) 终止当前操作 B) 暂停当前操作 C) 关机 D) 热启动
(7) 将二进制数10000001转换为十进制数应该是
A) 127 B) 129 C) 126 D) 128
(8) 磁盘处于写保护状态，那么磁盘中的数据
A) 不能读出，不能删改，也不能写入新数据
B) 可以读出，不能删改，也不能写入新数据
C) 可以读出，可以删改，但不能写入新数据
D) 可以读出，不能删改，但可以写入新数据
(9) 微型机启动后，DOS提示符是C:\>,现提示符变为C:\USER>,则说明刚执行过命令:
A) PROMPT B) PROMPT USER C)PROMPT $P$G D) CD USER
(10) MS-DOS文件系统目录的组织形式属于
A) 关系型结构 B) 网络型结构 C) 树型结构 D) 直线型结构
(11) 应用软件系统TH的总容量大约1MB，其主要程序文件存放在C:\TH目录中,而数
据文件存放在C:\TH\DATA目录中。如要将它 们完整地复制到A盘，应使用的命
令是：
A) XCOPY C:\TH A:\ B) XCOPY C:\TH A:\ /S
C) XCOPY C:\TH A\ /M D) XCOPY C:\TH A:\ /P
(12) 执行COPY A.TXT+TXT这个DOS命令后,得到的磁盘文件是
A) A.TXT B) B.TXT C) AB.TXT D) A+B.TXT
(13) 在WINDOWS中，将一个应用程序窗口最小化后，该应用程序
A) 仍在后台运行 B) 暂时停止运行 C) 完全停止运行 D) 出错
(14) CD-ROM属于
A) 感觉媒体 B) 表示媒体 C) 表现媒体 D) 存储媒体
(15) 在因特网(Internet) 中，电子公告板的缩写是
A) FTP B) WWW C) BBS D) E-mail
(16) 按照翻译类型分类,FORTRAN77程序设计语言属于
A) 汇编型 B) 解释型 C) 编译型 D) 解释型兼编译型
(17) 一个完整的FORTRAN77源程序的组成不应该
A) 只有一个主程序没有子程序 B) 有一个主程序和若干子程序
C) 有一个主程序和一个子程序 D) 只有子程序而没有主程序
(18) 下列关于FORTRAN77源程序编辑规则的叙述之中,正确的是
A) 编辑时一行都必须从第7列开始 B) 主程序第一行必须是PROGRAM语句
C) 每个FORMATO语句必须具有标号 D) 每个子程序中必须有一个RETURN语句
(19) 在FORTRAN77源程序中不能用作续行标志的字符是
A) 0 B) X C) + D) $
(20) 下列关于FORTRAN77源程序编辑规则的叙述之中,正确的是
A) IMPLICIT语句可以放在REAL语句行之后
B) DATA语句可以在放在紧靠END语句行之前
C) 注释行不可以放在END语句行之后
D) FORMAT语句可以放在PROGRAM语句行之前
(21) 下列FORTRAN77源程序的变量名之中,不符合规则的是
A) W B) W3 C) -3 D) W3W
(22) 若FORTRAN77中一个INTEGER型数据占用2个字节,那么该类型的数据值范围是
A) -2147484648 2147483647 B) -32768 32767
C) 0 4294967295 D) 0 65535
(23) 阅读下列程序
X=0.618
WRITE(*,'(E12.4)')X
END
程序运行后显示结果是
A) .6180 B) 6.180E-01 C) .0618E+01 D) .6180E+00
(24) 梯形的上底为A,下底为B,高为H,计算其面积的FORTRAN77表达式中错误的是
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的逻辑表达式是
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) 同时编译一个主程序和一个子程序
B) 同时编译几个子程序
C) 同时编译一个主程序和几个子程序
D) 同时编译几个主程序
(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
程序运行结果是
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) 第一、二个字符是Aa或ab的字符串被输出显示
C) 首字符是a或b的字符串将被输出显示
D) 第一、二个字符是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
使用键盘为上述程序输入两个初值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
程序运行时输入初始值12345,那么显示结果是
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
程序运行的结果是
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
程序运行的结果是
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
程序运行结果是
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
程序运行结果是
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
程序运行结果是
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
程序运行结果是
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
程序运行时输入初始值01234567899,结果显示的是
A) *****67.899 B) 12.3456.789 C) ********** D) 123.4567.899
(39) 阅读下列程序
Y=-123WRITE(*,200)Y
200 FORMAT('Y=',F5.1)
END
程序运行结果是
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
程序运行结果是
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
程序运行结果是
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
程序运行时输入的初始值是3,6,9,7,则运行结果是
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
程序运行结果是
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
程序运行结果是
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
程序运行结果是
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
程序运行时输入初始值246035701240,输出结果是
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
程序运行结果是
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) 点P在直角坐标系中的横坐标U=-3.5,纵坐标V=1.8,使用下列FORTRAN77程序
计算射线OP与X轴正向的夹角度数.O是坐标原点.
PK=45/ATAN(1.O)
U=-3.5
V=1.8
WRITE(*,*) *PK,'(deg)'
END
在输出语句WRITE(*,*)与*PK,'(deg.)'之间的空白处应该添加的是
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
程序运行结果是
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
程序运行结果是
A) YOURBOYSGIRLS! B) YOUR凵BOYS凵GIRLS!
C) YOUR凵BOYSGIRLS! D) YOURBOYS凵GIRLS!
二、填空题:(每空2分,共40分)
请将每空的答案写在答题卡[1]至[20]序号的横线上.答在试卷上不得分.
(1) DOS中的自动批处理文件的全名是__1__.
(2) 在DOS启动盘中,除CONNAND.COM外,还有两个必备的系统文件,它们是MSDOS,SYS
(或IBMDOS.COM)与__2__.
(3) 在DOS下,要将当前目录中AB.TXT文件设置为只读属性,应该使用的完整命令
行是__3__.
(4) 在DOS下,要查看当前目录中所有批处理文件的总字节数,应该使用的完整命令
行是__4__.
(5) 计算机病毒除有破坏性,潜伏性激发性外,还有一个最明显的特性是__5__.
(6) 阅读下列程序.其功能是求出方程2X3-3X2+4X-11=0在区间(1,5)中的一个实数
根,运行结果是显示根值和对分次数.使用的是二分算法. 请在其中_____处
填入适当的内容.
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) 阅读下列程序.其功能是计算Y=1+1.1X+1.2X2+1.3X3+1.4X4+1.5X5当X=3.1时的
值.主程序调用了函数子程序.
请在其衉___处填入适当的内容.
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) 函数子程序DTOH能够将一个十进制正整数DEC转换为一个表示十六进制数的字
符字符串,其长度不超过8.例如127转换为'7F'.算法是:将DEC除16取余,将所
得的商再除16取余,如此反复,直到商和零为止,最后按照逆序输出所得的各个
余数.
请在其中____处填入适当的内容.
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) 有一个十进制的四位数ABCD与一个十进制的三位数CDC的差等于十进制的三位
数ABC.下列程序按"ABCD=9876"的样式打印出ABCD这个数.
请在其中____外填入适当的内容.
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以内的自然数列中先筛除2的倍数;在2之后筛乘下的第一个数是3,于
是再筛除3的倍数;在3之后筛剩下的第一个数是5,于是再筛除5的倍数;如此重
复下去,直到遇见筛剩下的第一个数是最接近N的平方根的那个数为止.
请在其中____处填入适当的内容.
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月
全国计算机等级考试二级笔试试卷
基础知识和FORTRAN语言程序设计
答案及评分标准
一、选择题((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
