阅读下列程序 
FUN（c，d）=a*c+b/d 
DATA a，b/1.0，1.0/ 
WRITE（*，’（F4.1）’）
FUN（a，b）-FUN（b，a） 
END 
程序运行结果是（）

阅读下列程序  N=0  DO 10 K=1，3  N =N+1  M=K*N  10 CONTINUE  W...

单项选择题

阅读下列程序 
N=0 
DO 10 K=1，3 
N =N+1 
M=K*N 
10 CONTINUE 
WRITE（*，’（1X，2I3）’）M，K 
END 
程序运行结果是（）

阅读下列程序  CHARACTER A*4，B*5，C*4  DATA A，B，C/’BIG’，’MIDDLE...

单项选择题

阅读下列程序 
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=3.5  CALL SUBA（A，A，A）  WRITE（*，’（F4.1）’）A  EN...

单项选择题

阅读下列程序 
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 
程序运行的结果是（）