(考试时间120分钟,满分100分)

一.选择题:( (1)一(40) )题每题1分,共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)34H 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 C)PROMPT $P$G D)CD USER

(10)MS-DOS文件系统目录的组织形式属于
A)关系型结构 B)网络型结构 C)树型结构 D)直线型结构

(11)应用软件系统TH的总容量大约1MB,其主要程序文件存放在
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+B.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)W─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月二级笔试试题BASIC答案
下一篇： 1998年9月二级笔试试题BASIC答案