问题详情

答题翼 > 问答 > 建筑工程类考试 > 正文
目录: 标题| 题干| 答案| 搜索| 相关

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

参考答案
您可能感兴趣的试题