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

[单选题]

阅读下列FORTRAN77程序： DIMENSION M(3，4) DATA M/42，41，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

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

参考答案

查看官方参考答案

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

网友答案

查看全部（）

· 有3位网友选择 B，占比37.5%
· 有3位网友选择 A，占比37.5%
· 有1位网友选择 C，占比12.5%
· 有1位网友选择 D，占比12.5%

ABCD

提交我的答案

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

登录/注册

您可能会需要：

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

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

更多“阅读下列FORTRAN77程序： DIMENSION M（3…”相关的问题

第1题

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

(C) 0.31416

(D) 3.1416

点击查看答案

第2题

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

(C) 6180.0

(D) 7180.0

点击查看答案

第3题

阅读下列FORTRAN77程序： READ（*，*)A B=0.0 IF （A.GE.1.0) THEN B=B＋2.0 END IF IF （A.GE.2.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

点击查看答案

第4题

阅读下列FORTRAN77程序：INTEGERAA（2.3)DATAAA/1，2，3，4，5，6/CALLS2D19（AA)CALLS2D19（AA（1，2))ENDS

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

点击查看答案

第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程序：INTEGERA（3，3)DATAA/1，2，3，4，5，6，7，8，9/S=0.0DO10I=1，3J=MOD（I，3)+1S=S+A

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

点击查看答案

第7题

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

点击查看答案

第8题

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

点击查看答案

第9题

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

点击查看答案

第10题

阅读下列FORTRAN77程序：INTEGERA（3，2)READ（*，100)A100FORMAT（2I3)WRITE*，*)AEND运行后要使A（1，2)

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

点击查看答案

第11题

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

点击查看答案

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

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

微信搜一搜

简答题

点击打开微信

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

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

微信搜一搜

简答题

点击打开微信

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

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