(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 2

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

本试题收录于：基础考试（上午）题库注册土木工程师（岩土）分类