题目内容
（请给出正确答案）
阅读下列FORTRAN77程序：
PI＝3.14159265
WRITE(*，‘(F7.4)’)PI
END
程序运行后输出结果是()。
(A) 3.142
(B) 3.1415
(C) 0.31416
(D) 3.1416
安装简答题APP，拍照搜题省时又省心！
更多“阅读下列FORTRAN77程序：PI＝3.14159265W…”相关的问题
阅读下列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
阅读下列FORTRAN77程序：
INTEGERA(3，2)
READ(*，100)A
100FORMAT(2I3)
WRITE*，*)A
END
运行后要使A(1，2)的值为2，正确的键盘输入为(其中口为空格)()。
(A) □□1□□2
□□3□□4
□□5□□6
(B) □□1□□2□□3
□□4□□5□□6
(C) □□1□□3□□5
□□2□□4□□6
(D) □□1□□3
□□5□□2
□□4□□6
A.0
B. 3
C. 2
D. 4
阅读下列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程序： 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
阅读下列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程序： 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程序：
READ(* , *)X
IF(X.LE.0) THEN
Y=0.0
ELSE IF ((X.LT.5.0).AND.(X.NE.2.0)) THEN
Y= 1/X
ELSE IF (X.LE.10.0) THEN
Y=1/(X+2)
ELSE
Y = 10.0
END IF
WRITE(* , *)Y
END
上述程序运行时，由键盘输入2，则输出的结果为()。
A．0.5
B．0.25
C．10.0
D．0.0
为了保护您的账号安全，请在“简答题”公众号进行验证，点击“官网服务”-“账号验证”后输入验证码“”完成验证，验证成功后方可继续查看答案！
微信搜一搜
简答题
微信搜一搜
简答题
如搜索结果不匹配，请 
