题目内容
（请给出正确答案）
阅读下列FORTRAN程序： DO I=1，5 SUM=SUM+I ENDDO WRITE(*，*) SUM END 上述程序运行后，输出结果是()。
A．15
B．15.0
C．不确定
D．0
如果结果不匹配，请 联系老师 获取答案
更多“阅读下列FORTRAN程序：DOI=1，5SUM=SUM+I…”相关的问题
阅读下列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
(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
阅读下列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
阅读下列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
阅读下列FORTRAN程序： INTEGER M(3，3) DATA M/1，2，3，4，5，6，7，8，9/ DO 10 1=1，3 WRITE(*，100) (M(I，J)，J=1，I) 10 CONTINUE 10 FORMAT (1X，312) END 上述程序执行后，输出结果是()。
A．1 4 7 2 5 8 3 6 9
B．1 2 3 4 5 6 7 8 9
C．1 2 5 3 6 9
D．1 4 5 7 8 9
阅读下列FORTRAN程序： INTEGER S(2，4) ，A(2) DATA S/4*1，4*2/ CALL SUB(S，2，4，A) M=A(1) -A(2) WRITE(*，*) M END SUBROUTINE SUB(S，N，K，A) INTEGER S(N，K)，A(N) DO 20 I=1，N A(I)=0 DO 10 J=1，K 10 A(I)=A(I)+S(I，J) A(I)=A(I)/K 20 CONTINUE END 执行上述程序后，输出的M值为()。
A．0
B．1
C．2
D．3
(2008年) 阅读下列FORTRAN程序： DIMENSION M(6) READ (*，*)M DO 10 J=1，6 D0 10 K=J，6 IF(M(K)．LTM(J)THEN N=M(K) M(K)=M(J) END IF 10 CONTINUE WRITE(*，100)(M(I)，I=1，6) 100 FORMAT(2X，614) END 键盘输入10、7、9、2、1、3；程序运行后的输出结果是()。
A．1 2 3 7 9 10
B．10 9 7 3 2 1
C．7 9 2 1 3 10
D．3 1 2 9 7 10
阅读下列FORTRAN程序
INTEGERX(3，3)，A
DATA X/1，2，3，4，5，6，7，8，9/
DO 10 I=1，3
DO 10 J=I+1，3
A=X(I，J)
X(I，J)=x(J，I)
X(J，I)=A
10 CONTINUE
20 WRITE(*，20)((X(I，J)，J：l=3)，I=1，3)
20 FORMAT(1X，3I2)
END
运行上述程序后，其输出是()。
(A) 1 4 7
2 5 8
3 6 9
(B) 1 2 3
4 5 6
7 8 9
(C) 9 6 1
8 5 2
7 4 3
(D) 9 8 7
6 5 4
3 2 1
阅读以下 FORTRAN 程序：
READ(* ， *)X
IF(X ， LE ， 0)RHEN
Y=0.0
ELSEIF(X ， LT ， 5 ， 0) ， AND ， (X ， NE ， 2 ， 0)THEN
Y=1 ／ X
ELSEIF(X ， LE ， 10 ， 0)THEN
Y=1 ／ (X+2)
ELSE
Y=10.0
ENDIF
WRITE
WRITE(* ， *)Y
END
运行上述程序时，若由键盘输入： 2 ，则程序输出结果为 () 。
(A)0.0
(B)0.5
(C)0.25
(D)10.0
阅读下列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
