、选择题
1、下列关于"SUBROUTINE MAP(，X Y)" 语句行的叙述中，不正确的是( )
A) 这是子程序的第一个语句B) 字符串"MAP"是子程序名
C)变量X是子程序的形参D) 子程序执行后，MAP各返回整型数据
2、FORTRAN表达式"2/4+0.5"的值是()
A) 0.5 B) 1 C) 1.0 D) 0
3、阅读下列FORTRA程序：
PI=3.14159265
WRITE(*,'(F7.4) ')PI
END
程序运行后输出结果是( )
A) 3.142 B) 3.1415 C) 0.31416 D) 3.1416
4、圆的直径存放在整型变量K之中，下列计算圆面积的表达式中正确的是()
A) 3.1415926*K*K/4 B) 3.1415926*(K*K/4)
C) 3.1415926*(K/2)**2 D) 3.1415926*(K/2)*(K/2)
5、要判断”月收入M在2000元以上(含2000元)且5000元以下)不含5000元)"的职工，应该使用的逻辑表达式是( )
A) M .GE. 2000 .AND. M .LE. 5000 B) M .GE. 2000 .OR. M .LE. 5000
C) M .GE. 2000 .AND. M .LT. 5000 D) M .GE. 2000 .OR. M .LT. 5000
6、设FORTRA子程序如下：
SUBROUTINE SUB(，I X)
B=I+1
X=X+B
END
若主程序中的变量MB已按I-N规则赋值，则调用上述子程序的语句中正确的是() A) CALL SUB(M，M) B) CALL SUB(M+4 ，B)
C) CALL SUB(B，B) D) CALL SUB(M ，B+4)
7、下列不是FORTRA常量的是()
A) (3.0,4.0) B) 3.1416D+00 C) 2/3 D) 'Very good!'
8、阅读下列FORTRA程序：
F=1.0
DO 20 K=3, 7, 3
DO 20 L=K-1, K
20 WRTTE(*,'(I3, F8.1)'K, F*K
END 程序运行结果的最后一行是( )
A) 3 6.0 B) 6 6.0 C) 6 180.0 D) 7 180.0
9、在FORTRA中，下列运算符的优先顺序是()
A) 逻辑运算，关系运算，算术运算B) 关系运算，逻辑运算，算术运算
C) 算术运算，关系运算，逻辑运算D) 关系运算，算术运算，逻辑运算
10、使用FORTRA内部函数时，所给的自变量()
A) 只能是常量B) 只能是变量
C) 只能是常量或者变量D) 可以是常量、变量或者表达式
11、设X=2.0, Y=8.0, Z=6.0, L=.TRUE., 则下列FORTRA表达式中值为.TRUE•的是()
A) X+Z.GT.Y.AND.L B) .NOT.(Y.LT.Z+X).NEQV..NOT.L
C) .NOT.L.OR.(L.EQV.Y+X.EQ.Z) D) Y+X.GE.Z+X.AND.(L.AND..FALSE.)
12 、下列输出语句行中正确的是( )
A) WRITE(* ，*)(A(K ，L) ，K=1，3，L=1，3)
B) WRITE(* ，*)A(K ，L) ，K=1，3，L=1，3
C) WRITE(* ，*)((A(K ，L) ，K=1，3)，L=1 ，3)
D) WRITE(* ，*)(A(K ，L) ，K=1，3) ，L=1，3
13、给定下列FORTRA子程序如下：
SUBROUTINE SUB(，KA)
A=SQRT(K*K+1.0)
END
下列调用语句中正确的是( )
A) CALL SUB(N,N) B) CALL SUB(X,X)
C) CALL SUB(N,X*X) D) CALL SUB(11,X)
14、阅读下列FORTRA程序：
INTEGER AA(2,3)
DATA AA/1,2,3,4,5,6/
CALL S2D19(AA)
CALL S2D19(AA(1,2))
END
SUBROUTINE S2D19(BB)
INTEGER BB(2,2)
WRITE(*,'(1X,2I3)') BB(1,1),BB(2,2) END
程序运行结果是( )
A) 1 4 B) 1 5 C) 1 4 D) 1 2
3 6 2 6 2 5 3 4
15、阅读下列FORTRA程序：
INTEGER A(3,3)
DO 10 K=1,3
DO 10 L=1,3
10 A(K,L)=K*10+L
WRITE(*,'(1X,3I3)')A
END
程序运行结果是: ( )
A) 11 21 31 B) 11 12 13 C) 31 32 33 D) 33 32
31
12 22 32 21 22 23 21 22 23 32 22 21
13 23 33 31 32 33 11 12 13 31 21 11
16、阅读下列FORTRA程序：
WRITE(*,10)'YEAR：', 1996
10 FORMAT(/3X,A,I4)
END
程序运行结果是(人代表空格，下同)()
A) AAAAA YEAR:1996 B) AA YEAR:1996
C) 空白行D) 空白行
AAAAAYEAR:1996 AAYEAR:1996
17、某函数子程序中使用了IMPLICIT、READ COMPLE和FUNCTION四种语句,其中属于可执行语句的是: ( )
A)FUNCTION B) READ C) COMPLEX D) IMPLICIT
18、阅读下列FORTRA程序：
DIMENSION M(4,4)
DATA M/1,2,3,4,5,6,7,8,9 ，0,1,2,3,4,5,6/
DO 10 I=1,4
WRITE (*,100)(M(I,J),J=1,I)
10 CONTINUE
100 FORMAT(1X,4I2)
END
程序运行的结果是( )
A) 1 2 3 4 B) 1 5 9 3 C) 1 D) 1
6 7 8 6 0 4 2 6 2 6 6
1 2 1 5 3 7 1 9 3 7 1 1
6 6 4 8 2 6 3 4 4 8 2 6 6
19、阅读下列FORTRA程序：
CHARACTER*® A, B*6
