- 4
- 0
- 约1.24万字
- 约 18页
- 2021-04-07 发布于天津
- 举报
第
第 PAGE # 页 /共 页
第
第 PAGE # 页 /共 页
、选择题
1、 下列关于 SUBROUTINE MAP(,X Y) 语句行的叙述中,不正确的是 ( )
这是子程序的第一个语句 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=3WRITE(*,(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、 阅读下列FORTRAI程序: 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 、 下列输出语句行中正确的是 ( )
WRITE(* , *)(A(K , L) , K=1, 3, L=1, 3)
WRITE(* , *)A(K , L) , K=1, 3, L=1, 3
WRITE(* , *)((A(K , L) , K=1, 3), L=1 , 3)
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*1
原创力文档

文档评论(0)