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

[单选题]

阅读下列FORTRAN 程序： N=0 DO K=1,3 N=N+K ENDDO PRINT*,N,K END 执行上述程序后，输出的结果为：。 [A] 3 3 [B] 3 4 [C] 6 3 [D] 6 4

A.错误

B.错误

C.错误

D.正确

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

参考答案

查看官方参考答案

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

网友答案

查看全部（）

· 有4位网友选择 A，占比44.44%
· 有2位网友选择 B，占比22.22%
· 有2位网友选择 C，占比22.22%
· 有1位网友选择 D，占比11.11%

ABCD

提交我的答案

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

登录/注册

您可能会需要：

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

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

更多“阅读下列FORTRAN 程序： N=0 DO K=1,3 N…”相关的问题

第1题

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

(C)0.0

(D)1.0

点击查看答案

第2题

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

点击查看答案

第3题

阅读下列FORTRAN程序：DO20K=2，5，2S=1.0DO10J=K，510S=S+J20CONTINUE*WRITE（*，*) 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

点击查看答案

第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程序：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!

点击查看答案

第6题

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

点击查看答案

第7题

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

100FORMAT(1X，F3.1)

END

FUNCTIONF(B)

DIMENSIONA(3)，B(3)

DO10I＝1，3

10A(1)＝B(1)-I

F＝A(1)+A(2)+A(3)

X＝1.0-F

END

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

(A) 1.0

(B) 0.0

(C) 6.0

(D) -5.0

点击查看答案

第8题

阅读下列FORTRAN程序：X=1.0Y=2.0CALL SUB（X，Y，Z，3.0)WRITE（*，100) X，Y，Z100FORMAT（1X，13.1)ENDSU

阅读下列FORTRAN程序： X=1.0 Y=2.0 CALL SUB(X，Y，Z，3.0) WRITE(*，100) X，Y，Z 100 FORMAT(1X，13.1) END SUBROUTINE SUB(A，B，X，Z) A=A+1 B=B+2 Y=1.0 X=Y+Z END 执行上述程序后，输出的结果为()。

A．2.0 5.0 4.0

B．4.0 1.0 2.0

C．4.0 2.0 4.0

D．2.0 4.0 4.0

点击查看答案

第9题

阅读下列FORTRAN程序： I=1; J=1; M=4; N=4 IF（I==1）THEN IF（J==0）THEN M=M+1 ELSE IF（J==1）THEN N=N+1 END IF ELSE M=M+1 N=N-1 END IF PRINT *, M, N END 执行上述程序后，输出的结果为：。 [A] 4 4 [B] 4 5 [C]5 4 [D]5 3

A.不正确

B.正确

C.不正确

D.不正确

点击查看答案

第10题

阅读下列FORTRAN程序：REALA（5)COMMON/CC/XDATA A/1，2，3，4，5/X=0Y=FUN（A，5) +FUN（A，5)WRITE（*，*)

阅读下列FORTRAN程序： REAL A(5) COMMON /CC/X DATA A/1，2，3，4，5/ X=0 Y=FUN(A，5) +FUN(A，5) WRITE(*，*) Y END FUNCTION FUN(A，N) REAL A(N) COMMON /CC/X X=X+1 F=1 DO 10 I=N，1 F=F+A(I) 10 CONTINUE FUN=F+X END 上述程序执行后，输出结果是()。

A．4.0

B．5.0

C．16.0

D．33.0

点击查看答案