阅读下列FORTRAN77程序：DIMENSIONP（3，3)D010K＝1，3D010J＝1，310P（K，J)＝（K

阅读下列FORTRAN77程序：DIMENSIONP（3，3)D010K＝1，3D010J＝1，310P（K，J)＝（K－1)*3＋JCALLSUB（P（2，1)，3，

阅读下列FORTRAN77程序：
DIMENSIONP(3，3)
D010K＝1，3
D010J＝1，3
10P(K，J)＝(K-1)*3+J
CALLSUB(P(2，1)，3，X)
WRITE(*，*)X
END
SUBROUTINESUB(Q，N，P)
DIMENSIONQ(N)
P＝0.0
D0100K＝1，N
100P＝P+Q(K)
END
运行上述程序后，输出的x值为()。
(A) 12.0
(B) 15.0
(C) 16.0
(D) 13.0

参考答案

查看答案