阅读下列程序&ensp;A=3.5&ensp;CALL&ensp;SUBA（...

单项选择题 阅读下列程序
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.5
D. 1.5

1.单项选择题 阅读下列程序
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

2.单项选择题 阅读下列程序
READ（*，*）K
WRITE（*，100）K
100 FORMAT（I5）
END
程序运行时输入初始值12345，那么显示结果是（）

A. 2345
B. 12345
C. ****
D. *****

3.单项选择题 阅读下列程序
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

4.单项选择题 阅读下列程序
CHARACTER*10 W
DO K=1，10
READ *，W
IF （W（1：2）.EQ.’AB’.OR.W（1：2）.EQ.’ab’）WRITE（*，*）’’，W
ENDDO
END
程序的功能是（）

A. 首字符是A或B的字符串被输出显示
B. 第一、二个字符是AB或ab的字符串被输出显示
C. 首字符是a或b的字符串将被输出显示
D. 第一、二个字符是Aa或Bb的字符串将被输出显示

5.单项选择题 阅读下列程序
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

6.单项选择题一次成功的FORTRAN源程序编译操作，不能（）

A. 同时编译一个主程序和一个子程序
B. 同时编译几个子程序
C. 同时编译一个主程序和几个子程序
D. 同时编译几个主程序

7.单项选择题在FORTRAN的变量类型说明语句中没有（）

A. REAl语句
B. CHAR语句
C. INTEGER语句
D. LOGICAL语句

8.单项选择题要选拔身高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

9.单项选择题梯形的上底为A，下底为B，高为H，计算其面积的FORTRAN表达式中错误的是（）

A. 1/2*（AB）*H
B. （A+B）*H/2
C. （A+B）/2*H
D. 0.5*（A+B）*H

10.单项选择题 阅读下列程序
X=0.618
WRITE（*，’（E12.4）’）X
END
程序运行后显示结果是（）

A. .6180
B. 6.180E-01
C. .0618E+01
D. .6180E+00