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

搜题

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

提问人：网友yanweiwei55 发布时间：2022-01-06

[单选题]

阅读下列FORTRAN77程序： P=0.0 DO 20 N=2，6，2 P=P+1/N 20 CONTINUE WRITE(，) P END 运行上述程序后，输出的P值为

A.0.0

B. 0.5

C. 0.75

D. 0.91

参考答案

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

查看官方参考答案

网友提供的答案

共位网友提供了参考答案，

查看全部

· 有4位网友选择 C，占比40%
· 有3位网友选择 D，占比30%
· 有2位网友选择 B，占比20%
· 有1位网友选择 A，占比10%

ABCD

提交我的答案

登录提交答案，可赢取奖励机会。登录

更多“阅读下列FORTRAN77程序： P=0.0 DO 20 N=2，6，2 P=P＋1／N 20 CONTINUE WRITE（*，*) P END 运行上”相关的问题

第1题

阅读下列FORTRAN77程序：EXTERNALPPINTEGER P，PP，Q（4，4)DATAQ/1，2，3，4，5，6，7，8，9，10，11，12，13，14，

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

点击查看答案

第2题

阅读下列FORTRAN77程序：INTEGERB（4，4)，PN＝4CALLSUB（B，N)WRITE（*，*)P（B，N)ENDSUBROUTINESUB（Q，N)I

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

点击查看答案

第3题

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

(C)5.0

(D)4.0

点击查看答案

第4题

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

(C) 16.0

(D) 13.0

点击查看答案

第5题

阅读下列FORTRAN77程序：DIMENSIONM（3，4)DATAM/4*2，4*1，4*-1/N＝0D010K＝1，410N＝N十M（1，K)WRITE（*，*

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

点击查看答案

第6题

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

点击查看答案

第7题

阅读下列FORTRAN77程序： DIMENSION M(3，4) DATA M/4*2，4*1，4*-1/ N=0 DO 10 K=1，3 10 N=N+M(K，K) WRITE(*，*) N END 运行上述程序后，输出的N值为

A.8

B. 5

C. 4

D. 2

点击查看答案

第8题

阅读下列FORTRAN77程序：F（X，Y)＝X*X+Y*YOPEN（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

(C) 13.0

41.0

85.0

(D) 41.0

61.0

85.0

点击查看答案

第9题

阅读下列FORTRAN77程序： INTEGER S(2) DATA S/2*0/ DO 100 K=1，2 DO 100 J=1，2 S(J)=S(K)+1 100 CONTINUE WRITE(*，200) S(2) 200 FORMAT(1X，I1) END 运行上述程序后，输出的结果为

A.0

B. 3

C. 2

D. 4

点击查看答案

第10题

阅读下列FORTRAN77程序：PARAMETER（L=3)INTEGER N（L)DATA N/3*0/DO 20 I=1，LDO 20 J=1，LN（J)=N（I)

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

点击查看答案

账号：尚未登录

登录没有账号？去注册

搜题记录

联系客服

购买搜题卡

考试指南全部 >

青海2024年成人高考报名及入口 2024年初中自考本科考几门课有什么用 2024年成人高考高起专考什么甘肃24年成人高考报名及考试时间初中学历提升学历的第一步是什么考完要多久四川统招专升本报名时间2023 2024年浙江省成人高考考试时间江西2023成考分数线公布时间陕西24年成人高考报名及考试时间 2024年初中学历怎么考大专考什么内容

购买搜题卡查看答案

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

请选择支付方式

微信支付

支付宝支付

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

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

搜题卡使用说明

1. 搜题次数扣减规则：

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