阅读下列FORTRAN77程序:INTEGERB(4 4) PN=4CALLSUB(B N)WRITE(* *)P(B N)ENDSUBROUTINESUB(Q N)I

建筑类 程序,上述,结果 已帮助 人

阅读下列FORTRAN77程序:

INTEGERB(4,4),P

N=4

CALLSUB(B,N)

WRITE(*,*)P(B,N)

END

SUBROUTINESUB(Q,N)

INTEGERM,N,K,Q(N,N)

D010K=1,N

D010M=1,N

10Q(M,K)=8*(K-1)+M

END

INTEGER FUNCTI()N P(B,N)

INTEGERB(N,N)

P=0

D0100K=1,N

100P=P+B(K,K)

END

运行上述程序后,输出的结果为()。

(A) 55

(B) 56

(C) 57

(D) 58

热搜:第4腰椎怎么定位