2000年9月二级笔试试题FORTRAN
发布时间：2008/2/27 8:44:42 来源：xue.net 编辑：城市教育在线
(考试时间：120分钟，满分100分)
一、选择题((1)--(40)每小题1分, (41)--(50)每小题2分, 共60分)
下列各题 A) 、B)、C)、D)四个选项中，只有一个选项是正确的，请将正确选项在答题卡相应位置上涂黑，答在试卷上不得分。
(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网提供的服务，必须采用FTP协议
B) 为了使用Internet网提供的服务，必须采用TELNET协议
C) 为了使用Novell网提供的服务，必须采用TCP/IP协议
D) 为了使用Internet网提供的服务，必须采用TCP/IP协议
(3) 下列说法中不正确的是
A) 调制解调器(Modem)是局域网络设备
B) 集线器(Hub)是局域网络设备
C) 网卡(NIC)是局域网络设备
D) 中继器(Repeater)是局域网络设备
(4) 十进制数397的十六进制值为
A) 18D B) 18E C) 277 D) 361
(5) 下列说法中不正确的是
A) CD-ROM是一种只读存储器但不是内存储器
B) CD-ROM驱动器是多媒体计算机的基本部分
C) 只有存放在CD-ROM盘上的数据才称为多媒体信息
D) CD-ROM盘上最多能够存储大约650兆字节的信息
(6) Windows应用环境中鼠标的拖动操作不能完成的是
A) 当窗口不是最大时，可以移动窗口的位置
B) 当窗口最大时，可以将窗口缩小成图标
C) 当窗口有滚动条时可以实现窗口内容的滚动
D) 可以将一个文件移动(或复制)到另一个目录中去
(7) 从Windows中启动MS-DOS方式进入了DOS状态，如果想回到Windos状态，在DOS提示符下，应键入的命令为
A) EXIT B) QUIT C) WIN D) DOS -U
(8) 要在WINDOWS标准窗口的下拉菜单中选择命令，下列操作错误的是
A) 用鼠标单击该命令选项
B) 用键盘上的上下方向键将高亮度条移至该命令选项后再按回车键
C) 同时按下ALT键与该命令选项后括号中带有下划线的字母键
D) 直接按该命令选项后面括号中带有下划线的字母键
(9) ASCLL码(含扩展)可以用一个字节表示，则可以表示的ASCLL码值个数为
A) 1024 B) 256 C) 128 D) 8O
(10) 字长为32位的计算机是指
A) 该计算机能够处理的最大数不超过232
B) 该计算机中的CPU可以同时处理32位的二进制信息
C) 该计算机的内存量为32MB
D) 该计算机每秒钟所能执行的指令条数为32MIPS
(11) 在DOS系统中，下列文件名中非法的是
A) ABCDEFG1 B) ABCDEFG1.234 C)ABCD_EFG D)ABCD\EFG
(12) DOS系统启动后，下列文件中驻留内存的是
A) CONFIG.SYS B) COMMAND.COM C) AUTOEXEC.BAT D) MEM.EXE
(13) DOS下的“DIR *2”命令将列出当前目录下的
A) 所有名字末尾为字符2的非隐含文件和目录
B) 所有名字末尾为字符2的非隐含文件
C) 所有非隐含文件
D) 所有非隐含文件和目录
(14) 软驱的盘符为A，A盘上只有一个目录\XYZ,而\XYZ下有若干子目录和文件，若想把A盘的所有内容复制到C盘根目录下，应使用的命令为
A) COPY A:\*.* C: B) COPY A:\*.* C:\*.*
C) XCOPY A:\*.* C:\ /S D) DISKCOPY A: C:
(15) 若要将当前盘目录下的文件A.TXT连接在文件B.TXT后面，应使用的命令为
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的任何可执行语句都可以有标号
D) FORTRAN77的所有语句都是可执行语句
(17) 下列叙述中不正确的是
A) FORTRAN77子程序可以单独编译
B) 对一个FORTRAN77源程序进行编译和连接无误后可生成可执行文件
C) 即使编译和连接都正确无误，FORTRAN77程序运行时仍可能出错
D) FORTRAN77连接的主要任务是把函数库中的函数翻译成机器指令
(18) 以下关于FORTRAN77源程序书写格式的叙述中正确的是
A) 程序行的第1列为注释标志区，不能用作标号
B) 程序行的7-72列为语句区
C) 利用续行标志，一条语句可以继续任意多行
D) 只要以字母C或字符*起头，就是注释区
(19) 阅读下列FORTRAN77程序：
S=1.0
DO 10 K=2,4,2
10 S=S+1/K
WRITE(*,*)S
END
执行上述程序后,输出的S值为
A) 0.75 B) 1.75 C) 0.0 D) 1.0
(20) 下列标识符中不能作为FORTRAN77的合法变量名的是
A) A_1 B) A1 C) A1A D) A+1
(21) 设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) ½²sin²(½)的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) 不等式0A) 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) 设M=2000,为了在屏幕上输出
□□***2000*** (其中□表示空格):
则应使用的格式输出语句为
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)
如果在执行时从键盘输入
□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
如果在执行该程序时从键盘输入
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
在执行时,从键盘输入
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
在执行时,从键盘输入
2.5↙ (其中↙为回车键)
则输出的B 值为
A) 1.0 B) 2.5 C) 1.5 D) 0.5
(32) 设分段函数如下:
1 X>1
y= X 0 -X X≤0
实现上述函数功能的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
<循环体>
10 GOTO 100
B) DO 10 N=1，100
<循环体>
10 END
C) DO 10 N=1，100
<循环体>
10 STOP
D) DO 10 N=1，100
<循环体>
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) 下列循环中不正确的是
A) DO 10 I=1，200，100
M=I
DO 10N=M，10
<循环体>
10 CONTINUE
B) DO 10 I=1，200，100
M=I
DO 20 N=M，10
<循环体>
20 CONTINUE
10 CONTINUE
C) DO 10 I=1，200，100
DO 20 N=I，10
<循环体>
20 CONTINUE
10 CONTINUE
D) DO 10 I=1，200，100
M=I
DO 20 I=M，10
<循环体>
20 CONTINUE
10 CONTINUE
(36) 对于下列给定的FORTRAN77说明和赋初值语句：
INTEGER A(2，2)
DATA A/3，4，5，6/
数组元数A(2，1)的初值为
A) 3 B) 5 C) 4 D) 6
(37) 下列有关FORTRAN77数组的说法正确的是
A) 数组定义语句只能定义一维或二维数组
B) 数组元素下标不能出现负值
C) 在赋值语句中出现的A(3)肯定是数组元素
D) 程序中使用的数组必须进行说明
(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
执行上述程序后，输出的X值为
A) 1.0 B) 0.0 C) 6.0 D) -5.0
(40) 设有FORTRAN77函数子程序如下：
FUNCTION IP(N，A)
IP=0
IF(A.LT.1.0)IP=N
END
下列函数调用中正确的是
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) 下列对公用区的说明语句中错误的是
A) COMMON A(5)， B B) COMMON/AB/A(5)， B
C) COMMON AB/A(5)， B/ D) COMMON//A(5)， B
(43) 下列在主程序与子程序中对公用区的说明不正确的是
主程序 子程序
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
执行上述程序后,输出的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’产生的新字符串值为(其中□表示空格):
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
执行该程序后,输出的结果是
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) 下列关于直接文件操作说法中不正确的是
A) 直接文件不能按记录的顺序读取
B) 直接文件的所有记录的长度都相等
C) 直接文件不能按表控格式存取
D) 顺序写入的文件都不能直接读取
(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
上述程序执行后,S的输出结果是
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
执行上述程序后,输出的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状态下,当执行当前盘当前目录中的程序A.EXE时,为了将本该在屏幕上显示的运行结果输出到文件A.DAT中,应使用的DOS命令为 [1] 。
(2) 在XCOPY、PATH、TREE三个DOS命令中，属于内部命令的是令是 [2] 。
(3) 设当前盘为C盘，为了将当前盘当前目录中第三个字符为X的所有文件同名复制到A盘的当前目录中，应使用的DOS命令为 [3] 。
(4) 要将当前盘的目录A\B\C设置为当前目录,应使用的DOS命令为 [4]。
(5) 计算机网络按通信距离划分为局域网与广域网,NOVELL网属于 [5] 。
(6) 下列FORTRAN77程序的功能是:对输入的N(<100)个实数,求其平均值并输出。请在程序中的下划线处填入合适的内容。
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。请在程序中的下划线处填入合适的内容。
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子程序的功能是：统计字符串中字母Q、字母U和字符串QU出现的次数。其中字符串通过键盘输入得到，其长度不超过80个字符。请在程序中的下划线处填入适当的内容。
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) 用梯形公式求数值积分的近似公式为
取f(x)=s0+s1x+s2x2，对于不同的系数s0，s1，s2,和积分上下限a，b，计算近似积分值并输出结果。其中f(x)用函数子程序实现，数值积分用子程序实现，写成下列FORTRAN77程序。请在程序中的下划线处填入合适的内容。
[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程序的功能是计算并输出
请在程序中的下划线处填入合适的内容。
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