请输入或粘贴题目内容
搜题
拍照、语音搜题，请扫码下载APP
题目内容
（请给出正确答案）
以下程序段
DIMENSION A(4)
READ *，A
I=1
10 J=1+1
20 IF(A(I).LT.A(J))THEN
T=A(J)
A(J)=A(I)
A(I)=T
ENDIF
J=J+1
IF(J.LE.4)GOTO 20
I=I+1
IF(I.LE.3)GOT0 10
PRINT *，A(4)
END
若输入4，2，3，5则程序运行结果为()。
(A) 4
(B) 2
(C) 3
(D) 5
答案
更多“以下程序段DIMENSION A（4)READ *，AI=110 J=1+120 IF（A（I).LT.A（J))THENT=A（J)A（J)=A（I)A（I)=TEND”相关的问题
第1题
A.DIMENSION语句必须出现在程序中的所有语句之前
B.DATA语句必须出现在DIMENSION语句之后
C.DIMENSION语句只能出现在PARAMETER语句之后
D.DIMENSION语句必须出现在所有可执行语句之前
第2题
有一段说明语句如下： DIMENSION A(5) ，B(5) EQuiVALENCE(A(3) ，B(4) ) 说明语句EQuiVALENCE(A(3) ，B(4) )在程序中的作用是()
A．用于在数组A和B之间传递数据
B．说明数组A和B是同一个数组
C．说明数组A和B共用相同的存储单元
D．说明数组A和B的部分元素共用相同的存储单元
第3题
(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
第4题
当输入1，2，3，4，5，6下列程序执行后的输出结果为 DIMENSION A(2，3) READ(*，*) A CALL SS1(A) END SUBROUTINE SS1(B) DIMENSION B(3，2) WRITE(*，*) B(3，1) END
A．2
B．3
C．4
D．5
第6题
指针p、q和r依次指向某循环链表中三个相邻的结点，交换结点*q和结点*r在表中次序的程序段是 ()
A．p—＞next=r; q—＞next=r—＞next; r—＞next=q;
B．p—＞next=r; r—＞next=q; q—＞next=r—＞next;
C．r—＞next=q; q—＞next=r—＞next; p—＞next=r;
D．r—＞next=q; p—＞next=r; q—＞next=r—＞next;
第7题
(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
第8题
(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
第9题
阅读下列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
第10题
A.当程序给定的圆弧半径小于刀具半径时，向圆弧圆心方向的半径补偿时
B.刀具半径补偿使刀具中心向编程路径反方向运动时
C.在半径编程模式下，使用无坐标轴移动类指令，即两个或两个以上连续程序段内无指定补偿平面内的坐标移动时
D.过渡圆角R≥刀具半径r+精加工余量
