题目内容
（请给出正确答案）
(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
简答题官方参考答案
（由简答题聘请的专业题库老师提供的解答）
更多“（2008年) 阅读下列FORTRAN程序： DIMENSION M（6) READ （*，*)M DO 10 J=1，6”相关的问题
(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
(2008年)阅读下列FORTRAN程序： DIMENSION M(4，3) DATE M／-10，12，24，11，20，-15，61，78，93，30，44，-45／ N=M(1，1) DO 10 I=1，4 DO 10 J=1，3 IF (M(I，J)．LT．N)THEN N=M(I，J) K1=I K2=J ENFIF 10 CONTINUE WRITE(*，‘(2x，314)’)N，K1，K2 END 程序运行后的输出结果是()。
A．93，3，1
B．-10，1，1
C．-45，4，3
D．78，3，2
阅读下列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!
A.7.89
B.6.78
C.4.56
D.0.67
阅读下列FORTRAN程序： LOGICAL P，Q READ(*，100)P，Q 100 FORMAT(2L4) F(P) THEN Y=1.0 ELSE IF(Q) THEN Y=2.0 ELSE IF(.NOT.P.OR.Q)THEN Y=3.0 ELSE Y=0.0 VENDIF WRITE(*，*) Y END 在执行上述程序时，由键盘输入FABDTXYZ，最后输出的Y值为()。
A．0.0
B．1.0
C．2.0
D．3.0
阅读以下FORTRAN程序
READ(*,*)M,N
K=MOD(M,N)
M=N
N=K
K=MOD(M,N)
GOTO 10
END IF
WRITE(*,*)N
END
若运行以上程序时，由键盘输入25，11，则程序输出为()。
A．3
B．2
C．1
D．0
阅读以下FORTRAN程序：
READ(*，*)M，N
K=MOD(M，N)
10IF(K.GT.0)THEN
M=N
N=K
K=MOD(M，N)
COTO10
ENDIF
WRITE(*，*)N
END
若运行以上程序时，由键盘输入：25，11则程序输出为()。
(A)3
(B)2
(C)1
(D)0
阅读以下 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
(2008年) 已知顺序数据文件FILE3．DAT有如下数据： 50，54，64，55 65，70，85，90 46，73，60，72 阅读FORTRAN程序： DIMENSION M(12) OPEN(10，FILE=‘FILE3．DAT’) READ(10，*)(M(I)，I=1，12) DO 10 J=1，12 IF(M(J)．GE．60) N=N+1 10 CONTONUE WRITE(*，20)N 20 FORMAT(2X，‘N=’，N) END 程序运行后的输出结果是()。
A．N=7
B．N=8
C．N=4
D．N=9
阅读下列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
警告：系统检测到您的账号存在安全风险
为了保护您的账号安全，请在“简答题”公众号进行验证，点击“官网服务”-“账号验证”后输入验证码“”完成验证，验证成功后方可继续查看答案！
