单项选择题 阅读下列FORTRAN77程序: INTEGERA(4,4) DATA A/1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16/ WRITE(*,100)F(A93) 100 FORMAT(1X,F4.1) END FUNCTION F(B,N) INTEGERB(N,N)F=0.0 D0 10K=1,N 10 F=F+B(K,K) END 上述程序运行后,输出结果为( )。
A.19.0
B.9.0
C.8.0
D.18.0
正确答案:D
查看试题解析 进入焚题库