网友您好，请在下方输入框内输入要搜索的题目：

搜题

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

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

[主观题]

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

简答题官方参考答案（由简答题聘请的专业题库老师提供的解答）

查看官方参考答案

更多“阅读下列FORTRAN77程序：F（X，Y)＝X*X+Y*YOPEN（8，FILE＝'FD.DAT，STATUS＝'NEW'，ACCESS＝'DIRECr'，*FORM”相关的问题

第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

点击查看答案

账号：尚未登录

登录没有账号？去注册

搜题记录

联系客服

购买搜题卡

考试指南全部 >

2024年成人高考的学历层次有哪些？高起专/本和专升本新规 | 教育部：非全日制和全日制研究生教育坚持同一标准 2024年成人高考专升本考试科目是什么？考试科目详解 24上半年云南自考成绩查询时间 2024年成人高考考什么科目？辽宁24年成考考试时间安排 2024年成人高考什么时候考试 2023年内蒙古成考考试时间在什么时候甘肃24年成考考试时间安排 2024年自考本科都后悔了吗含金量怎么样

购买搜题卡查看答案

购买前请仔细阅读《购买须知》

请选择支付方式

微信支付

支付宝支付

点击支付即表示你同意并接受《服务协议》和《购买须知》

立即支付已付款，但不能查看答案，请点这里登录即可>>

搜题卡使用说明

1. 搜题次数扣减规则：

功能	扣减规则
功能	基础费（查看答案）	加收费（AI功能）
文字搜题、查看答案	1/每题	0/每次
语音搜题、查看答案	1/每题	2/每次
单题拍照识别、查看答案	1/每题	2/每次
整页拍照识别、查看答案	1/每题	5/每次