(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

admin2014-08-29  23

问题 (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

答案A

解析 数组赋值以后,各数组元素的值为:
    M(1)=10 M(2)=7 M(3)=9
    M(4)=2 M(5)=1  M(6)=3
    当循环一次后M(1)的值就确定下来了,因此不需要再做下去。
转载请注明原文地址:https://kaotiyun.com/show/8blf777K
0

最新回复(0)