题目内容
（请给出正确答案）
阅读下列FORTRAN77程序：
F＝1.0
D020K＝3，7，3
20WRTTE(*，(I3，F8.1)K，K*K
END
程序运行结果的最后一行是()。
(A) 36.0
(B) 66.0
(C) 6180.0
(D) 7180.0
简答题官方参考答案
（由简答题聘请的专业题库老师提供的解答）
更多“阅读下列FORTRAN77程序：F＝1.0D020K＝3，7，320WRTTE（*，（I3，F8.1)K，K*KEND程序运行结果的最后一行是（”相关的问题
阅读下列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
A.9.8
B. 98.7
C. 8.7
D. 87.6
阅读下列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
阅读FORTRAN77程序：
READ(*，100)A，B，C，D
WRITE(*，*)D
100FORMAT(F2．1，3(1X，F3.1))
END
运行上述程序时，如果从键盘输入
1234567890123456＜回车＞
则最后输出的X值为()。
(A) 1.2
(B) 12.3
(C) 2.3
(D) 23.4
阅读下列FORTRAN77程序：
PI＝3.14159265
WRITE(*，‘(F7.4)’)PI
END
程序运行后输出结果是()。
(A) 3.142
(B) 3.1415
(C) 0.31416
(D) 3.1416
阅读下列FORTRAN77程序： READ(*，*)A B=0.0 IF (A.GE.1.0) THEN B=B+2.0 END IF IF (A.GE.2.0) B=B-1.0 WRITE(*，*) B END 在执行时，从键盘输入 5.0<回车>则输出的B值为
A. 2.0
B. -1.0
C. 0.0
D. 1.0
阅读下列FORTRAN77程序：
INTEGERAA(2.3)
DATAAA/1，2，3，4，5，6/
CALLS2D19(AA)
CALLS2D19(AA(1，2))
END
SUBROUTINES2D19(BB)
INTEGERBB(2，2)
WRITE(*，'(1X，2I3)’)BB(1，1)，BB(2，2)
END
程序运行结果是()。
(A)14
(B)15
3626
(C)14
(D)12
2534
阅读下列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
阅读下列FORTRAN77程序： INTEGER A(3，3) DATA A/1，2，3，4，5，6，7，8，9/ S=0.0 DO 10 I=1，3 J=MOD(I，3)+1 S=S+A(I，J) 10 CONTINUE WRITE(*，*)S END 上述程序运行后，输出的S值为()。
A．15.0
B．12.0
C．18.0
D．24.0
A.0.0
B. 0.5
C. 0.75
D. 0.91
警告：系统检测到您的账号存在安全风险
为了保护您的账号安全，请在“简答题”公众号进行验证，点击“官网服务”-“账号验证”后输入验证码“”完成验证，验证成功后方可继续查看答案！
