阅读下列FORTRAN程序: DIMENSIONA(3) DATAA/3.0,2
题型:单项选择题
问题:
阅读下列FORTRAN程序: DIMENSIONA(3) DATAA/3.0,2.0,1.0/ X=F(A) WRITE(*,100)X 100FORMAT(1X,F3.1) END FUNCTIONF(B) DIMENSIONA(3),B(3) DO10I=1,3 10A(1)=B(1)-I F=A(1)+A(2)+A(3) X=1.0-F END 执行上述程序后,输出的X值为( )。
A.( 1.0
B.( 0.0
C.( 6.0
D.( -5.0