阅读下列FORTRAN77程序：DIMENSIONA（4，3)COMMON／P／AP＝0.0D010K＝1，3D010J＝1，31F（P.LE.5.0)P＝P＋A（J，-学而优知识库

阅读下列FORTRAN77程序：DIMENSIONA（4，3)COMMON／P／AP＝0.0D010K＝1，3D010J＝1，31F（P.LE.5.0)P＝P＋A（J，

阅读下列FORTRAN77程序：
DIMENSIONA(4，3)
COMMON/P/A
P＝0.0
D010K＝1，3
D010J＝1，3
1F(P.LE.5.0)P＝P+A(J，K)
10CONTINUE
WRITE(*，*)P
END
BL()CKDATAABC
DIMENSIONB(4，3)
COMMON/P/B
DATAB/4×4.0，4×-3.0，4×2.0/
END
运行上述程序后，输出的P值为()。
(A)8.0
(B)7.0
(C)5.0
(D)4.0

参考答案

查看答案