单项选择题

阅读下列程序 
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

相关试题
  • 下列各逻辑IF语句中正确的是()
  • 对于下列给定的FORTRAN说明和赋初值语句:...
  • 给定子例行程序如下 SUBROUTINE SUB(K,...
  • 适用于字符型 I O的 FORTRAN77格式编...
  • 语句K=2+3.0**2 2执行后,整型...