急求教一个fortran的编程问题
zhuiyelangrong
2009年06月02日 19:19:12
只看楼主

请教大侠,帮忙解释一下这道题目的意思,还有就是当输入4,2,3,5时,程序的运行结果是多少? DIMENSION A(4) READ*, A I=110 J=I+120 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) GOTO 10

请教大侠,帮忙解释一下这道题目的意思,还有就是当输入4,2,3,5时,程序的运行结果是多少?
DIMENSION A(4)
READ*, A
I=1
10 J=I+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) GOTO 10
PRINT*,A(4)
END
免费打赏
jslimit
2009年06月04日 16:39:33
2楼
结果是5,4,3,2,这个是排序的程序
回复
jslimit
2009年06月06日 21:14:23
3楼
没注意看最后输出是什么。结果是2
回复

相关推荐

APP内打开