题目内容
（请给出正确答案）
A.0.0
B. 0.5
C. 0.75
D. 0.91
安装简答题APP，拍照搜题省时又省心！
更多“阅读下列FORTRAN77程序： P=0.0 DO 20 N…”相关的问题
阅读下列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
阅读下列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
(C) 57
(D) 58
阅读下列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程序：
DIMENSIONP(3，3)
D010K＝1，3
D010J＝1，3
10P(K，J)＝(K-1)*3+J
CALLSUB(P(2，1)，3，X)
WRITE(*，*)X
END
SUBROUTINESUB(Q，N，P)
DIMENSIONQ(N)
P＝0.0
D0100K＝1，N
100P＝P+Q(K)
END
运行上述程序后，输出的x值为()。
(A) 12.0
(B) 15.0
(C) 16.0
(D) 13.0
阅读下列FORTRAN77程序：
DIMENSIONM(3，4)
DATAM/4*2，4*1，4*-1/
N＝0
D010K＝1，4
10N＝N十M(1，K)
WRITE(*，*)N
END
运行上述程序后，输出的N的值为()。
(A) 8
(B) 5
(C) 4
(D) 3
A.2.4
B. 0.9
C. 0.6
D. 0.3
A.8
B. 5
C. 4
D. 2
阅读下列FORTRAN77程序：
F(X，Y)＝X*X+Y*Y
OPEN(8，FILE＝'FD.DAT，STATUS＝'NEW'，ACCESS＝'DIRECr'，
*FORM＝'UNFORMATTED'，RECL＝16)
D010K＝1，6
P＝F(REAL(K)，REAL(K+1))
10WRITE(8，REC＝K)P
CLOSE(8)
OPEN(6，FILE＝'FD.DAT'，STATUS＝'OLD'，ACCESS＝'DIRECr'，
*FORM＝'UNFORMATTED'，RECL＝16)
DO20K＝2，6，2
READ(6，REC＝K)T
20WRITE(*，100)T
100FORMAT(1X，F4.1)
CLOSE(6)
END
运行上述程序后，输出的结果为()。
(A) 5.0
13.0
25.0
(B) 5.0
25.0
61.0
(C) 13.0
41.0
85.0
(D) 41.0
61.0
85.0
A.0
B. 3
C. 2
D. 4
阅读下列FORTRAN77程序： PARAMETER(L=3) INTEGER N(L) DATA N/3*0/ DO 20 I=1，L DO 20 J=1，L N(J)=N(I)+l 20 CONTINUE WRITE(*，*)N(L) END 上述程序运行后，输出的值为()。
A．3
B．5
C．7
D．9
为了保护您的账号安全，请在“简答题”公众号进行验证，点击“官网服务”-“账号验证”后输入验证码“”完成验证，验证成功后方可继续查看答案！
微信搜一搜
简答题
微信搜一搜
简答题
如搜索结果不匹配，请 
