单项选择题
阅读下列程序
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
点击查看答案
相关考题
-
单项选择题
阅读下列程序 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 -
单项选择题
阅读下列程序 READ（*，*）K WRITE（*，100）K 100 FORMAT（I5） END 程序运行时输入初始值12345，那么显示结果是（）
A. 2345
B. 12345
C. ****
D. ***** -
单项选择题
阅读下列程序 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
