大师作文网各位fortran语言大侠们,求助!题目如下：
来源：学生作业帮 编辑：大师作文网作业帮 分类：综合作业 时间：2024/11/19 00:21:41
各位fortran语言大侠们,求助!题目如下：
有一个一维数组a,含10个整数元素,分别为5,6,3,9,12,18,1,10,25,21,编一个程序把它们按从小到大的顺序排列出来.
有一个一维数组a,含10个整数元素,分别为5,6,3,9,12,18,1,10,25,21,编一个程序把它们按从小到大的顺序排列出来.
PROGRAM TEST !冒泡排序法
IMPLICIT NONE
INTEGER,PARAMETER::N=10
INTEGER,DIMENSION(N)::A=(/5,6,3,9,12,18,1,10,25,21/)
INTEGER::I,J,T
PRINT 100,A
100 FORMAT(1X,10I5)
DO I=1,N-1
DO J=1,N-1
IF(A(J)>A(J+1))THEN
T=A(J)
A(J)=A(J+1)
A(J+1)=T
END IF
END DO
END DO
PRINT 100,A
END PROGRAM TEST
IMPLICIT NONE
INTEGER,PARAMETER::N=10
INTEGER,DIMENSION(N)::A=(/5,6,3,9,12,18,1,10,25,21/)
INTEGER::I,J,T
PRINT 100,A
100 FORMAT(1X,10I5)
DO I=1,N-1
DO J=1,N-1
IF(A(J)>A(J+1))THEN
T=A(J)
A(J)=A(J+1)
A(J+1)=T
END IF
END DO
END DO
PRINT 100,A
END PROGRAM TEST