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

(D) 58

参考答案

您可能感兴趣的试题

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

答案解析
阅读下列FORTRAN77程序：INTEGERAA（2.3)DATAAA／1，2，3，4，5，6／CALLS2D19（AA)CALLS2D19（AA（1，2))ENDS

答案解析
阅读下列FORTRAN77程序：EXTERNALPPINTEGER P，PP，Q（4，4)DATAQ／1，2，3，4，5，6，7，8，9，10，11，12，13，14，

答案解析
阅读下列FORTRANN77程序：INTEGERB（4，5)DATAB／11，20，15，1，9，12，18，2，6，8，*10，3，22，15，21，3，17，9，3

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

答案解析
阅读下列FORTRAN77程序：DIMENSIONA（4，3)COMMON／P／AP＝0.0D010K＝1，3D010J＝1，31F（P.LE.5.0)P＝P＋A（J，

答案解析

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