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

阅读下列FORTRAN77程序:DIMENSIONA(4,3)COMMON/P/AP=0.0D010K=1,3D010J=1,31F(P.LE.5.0)P=P+A(J,


阅读下列FORTRAN77程序:

DIMENSIONA(4,3)

COMMON/P/A

P=0.0

D010K=1,3

D010J=1,3

1F(P.LE.5.0)P=P+A(J,K)

10CONTINUE

WRITE(*,*)P

END

BL()CKDATAABC

DIMENSIONB(4,3)

COMMON/P/B

DATAB/4×4.0,4×-3.0,4×2.0/

END

运行上述程序后,输出的P值为()。

(A)8.0

(B)7.0

(C)5.0

(D)4.0

参考答案
您可能感兴趣的试题
  • 阅读下列FORTRAN77程序:PI=3.14159265WRITE(*,‘(F7.4)’)PIEND程序运行后输出结果是()。(A) 3.142(

  • 阅读下列FORTRAN77程序:F=1.0D020K=3,7,320WRTTE(*,(I3,F8.1)K,K*KEND程序运行结果的最后一行是(

  • 阅读下列FORTRAN77程序:INTEGERAA(2.3)DATAAA/1,2,3,4,5,6/CALLS2D19(AA)CALLS2D19(AA(1,2))ENDS

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

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

  • 阅读下列FORTRAN77程序:DIMENSIONM(3,4)DATAM/4*2,4*1,4*-1/N=0D010K=1,410N=N十M(1,K)WRITE(*,*