阅读下列FORTRAN77程序:EXTERNALPPINTEGER P PP Q(4 4)DATAQ/1 2 3 4 5 6 7 8 9 10 11 12 13 14

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

阅读下列FORTRAN77程序:

EXTERNALPP

INTEGER P,PP,Q(4,4)

DATAQ/1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16/

WRITE(*,*)P(Q,4,PP)

END

INTEGER FUNCTION PP(B,N)

INTEGERB(N,N)

PP=0

D010K=1,N

10PP=PP+B(K,K)

END

INTEGER FUNCTIONP(B,N,S)

INTEGER S,B(N,N)

P=0

D()10K=1,N

10P=P+S(B,K)

END

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

(A) 55

(B) 56

(C) 57

(D) 58

热搜:关于要约程序,下列说法正确的有