阅读下列FORTRAN77程序: INTEGER A(4,4) DATA A/1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16/ WRITE(*,100)F(A,3) 100 FO

admin2009-08-15  30

问题 阅读下列FORTRAN77程序:        INTEGER A(4,4)        DATA A/1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16/        WRITE(*,100)F(A,3)    100 FORMAT(1X,F4.1)        END        FUNCTION F(B,N)        INTEGER B(N,N)        F=0.0        DO  10 K=1,N    10  F=F+B(K,K)        END    上述程序运行后,输出结果为(  )。

选项 A、19.0
B、9.0
C、8.0
D、18.0

答案D

解析
转载请注明原文地址:https://kaotiyun.com/show/mDqf777K
0

最新回复(0)