fortran怎么实现冒泡程序

杨扬 发布于 2011/10/15 19:02
阅读 510
收藏 0
 if(bub(j)<=bub(j+1)) then
    maxrow=bub(j+1)
    bub(j+1)=bub(j)
    bub(j)=maxrow
   end if

bub(i)是一个一维数组,排序说输出有错误

加载中
0
WuCris
WuCris

你的代码能更详细点吗?

实现的话 下面的代码就可以:

subroutine BUBBLE_SORT(A,N)

 IMPLICIT NONE

 INTEGER :: N, A(N)

INTEGER I,J,TEMP

DO I = N-1,1,-1

   DO J = 1,I

        IF(A(J) > A(J+1))THEN

           TEMP = A(J)

           A(J) = A(J+1)

           A(J+1) = TEMP

      ENDIF

     ENDDO

   ENDDO

RETURN

END SUBROUTINE 
返回顶部
顶部