单项选择题
阅读下列程序
FUN（c，d）=a*c+b/d
DATA a，b/1.0，1.0/
WRITE（*，’（F4.1）’）
FUN（a，b）-FUN（b，a）
END
程序运行结果是（）
A. 0.0
B. 4.0
C. 2.O
D. 3.O
点击查看答案
相关考题
-
单项选择题
阅读下列程序 N=0 DO 10 K=1，3 N =N+1 M=K*N 10 CONTINUE WRITE（*，’（1X，2I3）’）M，K END 程序运行结果是（）
A. 9 4
B. 9 3
C. 12 4
D. 12 3（#^） -
单项选择题
阅读下列程序 CHARACTER A*4，B*5，C*4 DATA A，B，C/’BIG’，’MIDDLE’，’SMALL’/ WRITE（*，20）A，B，C 20 FORMAT（1X，A2，A3，A4） END 程序运行结果是（）
A. BIGMIDDLE
B. *********
C. BIGMIDSMA
D. BIMIDSMAL -
单项选择题
阅读下列程序 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
