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

(D) 58

参考答案

您可能感兴趣的试题

阅读下列FORTRAN77程序： READ（* , *)X IF（X.LE.0) THEN Y=0.0 ELSE IF （（X.LT.5.0).AND.（X.N

答案解析
阅读下列FORTRAN77程序：PI＝3.14159265WRITE（*，‘（F7.4)’)PIEND程序运行后输出结果是（)。（A) 3.142（

答案解析
阅读下列FORTRAN77程序：F＝1.0D020K＝3，7，320WRTTE（*，（I3，F8.1)K，K*KEND程序运行结果的最后一行是（

答案解析
阅读下列FORTRAN77程序：INTEGERB（4，4)，PN＝4CALLSUB（B，N)WRITE（*，*)P（B，N)ENDSUBROUTINESUB（Q，N)I

答案解析
阅读下列FORTRAN77程序段：S＝0.0DO10J＝0，NS＝S＋XX＝X＋0.510CONTINUE下面程序段中与上述程序段等价的

答案解析
阅读下列FORTRAN77程序：DIMENSIONM（3，4)DATAM／4*2，4*1，4*－1／N＝0D010K＝1，410N＝N十M（1，K)WRITE（*，*

答案解析