题目内容（请给出正确答案）

[主观题]

阅读下列FORTRAN77程序：F（X，Y)＝XX+YYOPEN（8，FILE＝'FD.DAT，STATUS＝'NEW'，ACCESS＝'DIRECr'，*FORM

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

41.0

85.0

(D) 41.0

61.0

85.0

提问人：网友wastelandxf 发布时间：2022-01-07

参考答案

查看官方参考答案

如搜索结果不匹配，请联系老师获取答案

您可能会需要：

重置密码查看订单联系客服

安装简答题APP，拍照搜题省时又省心！

更多“阅读下列FORTRAN77程序：F（X，Y)＝X*X+Y*Y…”相关的问题

第1题

阅读下列FORTRAN77程序： READ(*，100) X，Y，Z，S WRITE(*，*) S 100 FORMAT(F2.1，3(1X，F3.1)) END 运行上述程序时，如果从键盘输入 9876543210987654321<回车>则最后输出的S值为

A.9.8

B. 98.7

C. 8.7

D. 87.6

点击查看答案

第2题

阅读FORTRAN77程序：READ（*，100)A，B，C，DWRITE（*，*)D100FORMAT（F2．1，3（1X，F3.1))END运行上述程序时

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

(D) 23.4

点击查看答案

第3题

阅读下列FORTRAN77程序：F＝1.0D020K＝3，7，320WRTTE（*，（I3，F8.1)K，K*KEND程序运行结果的最后一行是（

阅读下列FORTRAN77程序：

F＝1.0

D020K＝3，7，3

20WRTTE(*，(I3，F8.1)K，K*K

END

程序运行结果的最后一行是()。

(A) 36.0

(B) 66.0

(D) 7180.0

点击查看答案

第4题

阅读下列FORTRAN77程序： READ（* , *)X IF（X.LE.0) THEN Y=0.0 ELSE IF （（X.LT.5.0).AND.（X.N

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

点击查看答案

第5题

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

(D)4.0

点击查看答案

第6题

阅读下列FORTRAN77程序：DIMENSIONP（3，3)D010K＝1，3D010J＝1，310P（K，J)＝（K-1)*3+JCALLSUB（P（2，1)，3，

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

(D) 13.0

点击查看答案

第7题

阅读下列FORTRAN77程序段：S＝0.0DO10J＝0，NS＝S+XX＝X+0.510CONTINUE下面程序段中与上述程序段等价的

阅读下列FORTRAN77程序段：

S＝0.0

DO10J＝0，N

S＝S+X

X＝X+0.5

10CONTINUE

下面程序段中与上述程序段等价的是()。

(A)

S＝X

J＝0

101F(J.LT.N)THEN

X＝X+0.5

S＝S+X

J＝J+1

GOT010

ENDIF

(B)

S＝0.0

J＝0

101F(J.LE.N)THEN

J＝J+1

S＝S+X

X＝X+0.5

GOT010

END IF

(C)

S＝0.0

J＝0

10S＝S+K

J＝J+1

X＝X+0.5

1F(J.LE.N)GOTO10

(D)

S＝X

J＝0

10X＝X+0.5

S＝S+X

J＝J+1

1F(J.LT.N)GOTO10

点击查看答案

第8题

阅读下列FORTRAN77程序： READ(*，*) P，Q X=MOD(Q，P) 10 IF (ABS(X).GT.0.1) THEN Q=P P=X X=MOD(Q，P) GOTO 10 END IF WRITE(*，*) P END 运行上述程序时，如果从键盘输入 5.7,2.4<回车>则最后输出的P值为

A.2.4

B. 0.9

C. 0.6

D. 0.3

点击查看答案

第9题

阅读FORTRAN77程序：READ（*，100)X100 FORMAT（3F3.1)WRITE（*，*)XEND运行上述程序时，如果从键盘输入

阅读FORTRAN77程序：

READ(*，100)X

100 FORMAT(3F3.1)

WRITE(*，*)X

END

运行上述程序时，如果从键盘输入

1234.675＜回车＞则最后输出的X值为()。

(A)1234.675

(B)1234.6

(D)123.0

点击查看答案

第10题

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

阅读下列FORTRAN77程序：

PI＝3.14159265

WRITE(*，‘(F7.4)’)PI

END

程序运行后输出结果是()。

(A) 3.142

(B) 3.1415

(D) 3.1416

点击查看答案

警告：系统检测到您的账号存在安全风险

为了保护您的账号安全，请在“简答题”公众号进行验证，点击“官网服务”-“账号验证”后输入验证码“”完成验证，验证成功后方可继续查看答案！

微信搜一搜

简答题

点击打开微信

警告：系统检测到您的账号存在安全风险

抱歉，您的账号因涉嫌违反简答题购买须知被冻结。您可在“简答题”微信公众号中的“官网服务”-“账号解封申请”申请解封，或联系客服。

微信搜一搜

简答题

点击打开微信

阅读下列FORTRAN77程序：F（X，Y)＝X*X+Y*YOPEN（8，FILE＝'FD.DAT，STATUS＝'NEW'，ACCESS＝'DIRECr'，*FORM

阅读下列FORTRAN77程序：F（X，Y)＝XX+YYOPEN（8，FILE＝'FD.DAT，STATUS＝'NEW'，ACCESS＝'DIRECr'，*FORM