阅读下列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

热搜:3千伏以上10以下电气设备发生下列恶