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

[主观题]

阅读下列FORTRAN程序：DO20K=2，5，2S=1.0DO10J=K，510S=S+J20CONTINUEWRITE（，*) SEND执行上述程序

阅读下列FORTRAN程序： DO 20 K=2，5，2 S=1.0 DO 10 J=K，5 10 S=S+J 20 CONTINUE* WRITE(*，*) S END 执行上述程序后，输出的S值为()。

A．9.0

B．1.0

C．24.0

D．10.0

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

参考答案

查看官方参考答案

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

您可能会需要：

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

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

更多“阅读下列FORTRAN程序：DO20K=2，5，2S=1.0…”相关的问题

第1题

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

41.0

85.0

(D) 41.0

61.0

85.0

点击查看答案

第2题

阅读下列FORTRAN程序：S＝1.0D010K＝2，4，210S＝S+1.0/KWRITE（*，*)SEND执行上述程序后，输出的S值为（)。

阅读下列FORTRAN程序：

S＝1.0

D010K＝2，4，2

10S＝S+1.0/K

WRITE(*，*)S

END

执行上述程序后，输出的S值为()。

(A)0.75

(B)1.75

(D)1.0

点击查看答案

第3题

阅读下列FORTRAN程序：DOI=1，5SUM=SUM+IENDDOWRITE（*，*) SUMEND上述程序运行后，输出结果是（)。A．15

阅读下列FORTRAN程序： DO I=1，5 SUM=SUM+I ENDDO WRITE(*，*) SUM END 上述程序运行后，输出结果是()。

A．15

B．15.0

C．不确定

D．0

点击查看答案

第4题

阅读下列FORTRAN程序：CHARACTER A*5A='ABCDE'CALLS（A)ENDSUBROUTINES（X)CHARACTER X*3WRITE（*，*)

阅读下列FORTRAN程序： CHARACTER A*5 A='ABCDE' CALL S(A) END SUBROUTINE S(X) CHARACTER X*3 WRITE(*，*)X END 执行上述程序后，输出的X值为()。

A．'AB

B．DE'

C．CDE

D．ABC

点击查看答案

第5题

阅读下列FORTRAN程序： S=1.0 DO100K=3，1，-1 DO100N=-1，-3100S=2*S WRITE（*，*) S END运行上述程序

阅读下列FORTRAN程序： S=1.0 DO 100 K=3，1，-1 DO 100 N=-1，-3 100 S=2*S WRITE(*，*) S END 运行上述程序后，输出的S值为()。

A．1.0

B．8.0

C．512.0

D．4.0

点击查看答案

第6题

（2008年) 阅读下列FORTRAN程序： MQIUH=N（5)+N（10) WRITE（*，‘（2X，15)’)MQIUH END

(2008年) 阅读下列FORTRAN程序： MQIUH=N(5)+N(10) WRITE(*，‘(2X，15)’)MQIUH END FUNCTION N(K) N=0 DO 10 J=1，K N=N+J 10 CONTINUE RETURN END 程序运行后的输出结果是()。

A．65

B．85

C．90

D．70

点击查看答案

第7题

阅读下列FORTRAN程序：INTEGER PP=0DO10I=0,10,3DO10J=5,100,20DO10K=-10,-510P=P+1WRITE（*，*)PEN

阅读下列FORTRAN程序： INTEGER P P=0 DO 10 I=0,10,3 DO 10 J=5,100,20 DO 10 K=-10,-5 10 P=P+1 WRITE(*，*)P END 上述程序运行时，运算的结果为()。

A．0

B．24

C．120

D．144

点击查看答案

第8题

阅读下列FORTRAN程序：READ（*，*)SCAREIF（SCARE.GE.85.0)WRITE（*，*)‘Very Good!’IF（SCARE.GE.75.0)

阅读下列FORTRAN程序： READ(*，*)SCARE IF(SCARE.GE.85.0)WRITE(*，*)‘Very Good!’ IF(SCARE.GE.75.0)WRITE(*，*)‘Good!’ IF(SCARE.GE.60.0)WRITE(*，*)‘Pass!’ IF(SCARE.LT.60.0)WRITE(*，*)‘Pass!’ 在执行上述程序时，如果从键盘输入： 75.0↙ 则运行后输出结果为()。

A．GOOd!

B．Pass!

C．Good Pass!

D．Very GOOd Pass!

点击查看答案

第9题

阅读下列FORTRAN程序：DIMENSIONA（3，4)DATAA/3*+4.0，3*-3.0，3*-2.0，3*-1.0/S=0.0DO20K=1，3D=A（K，1

阅读下列FORTRAN程序： DIMENSION A(3，4) DATA A/3*+4.0，3*-3.0，3*-2.0，3*-1.0/ S=0.0 DO 20 K=1，3 D=A(K，1) DO 10J=2，4 IF(A(K，J)＜D) D=A(K，J) 10 CONTINUE S=S+D 20 CONTINUE WRITE(*，*) S END

A．-15.0

B．-12.0

C．9.0

D．6.0

点击查看答案

第10题

阅读下列FORTRAN程序：DIMENSIONA（3)DATAA/3.0，2.0，1.0/X＝F（A) WRITE（*，100)X100FORMAT（1X，F3.1)E

阅读下列FORTRAN程序：

DIMENSIONA(3)

DATAA/3.0，2.0，1.0/

X＝F(A)

WRITE(*，100)X