windows平台下fortran编程实现冒泡排序

2025-10-21 02:25:00

1、关于codeblocks IDE的极速安装

请参考百度经验<<Windows下极速搭建fortran开发环境>>

windows平台下fortran编程实现冒泡排序

2、fortran编程实现冒泡排序(由大到小)

源代码如下:

    implicit none

    integer::i,j,N

    real*8::x(8)

    real*8::tmp

    x=[1,2,3,4,5,6,7,8]

    N=size(x)

    do i=1,N-1

        do j=i+1,N

            if(x(j)>x(i))then

                tmp=x(i)

                x(i)=x(j)

                x(j)=tmp

            end if

        end do

    end do

    do i=1,N

        print *, x(i)

    end do

windows平台下fortran编程实现冒泡排序

3、编译、运行,结果如下:

windows平台下fortran编程实现冒泡排序

4、fortran编程实现冒泡排序(由小到大)

源代码如下:

    implicit none

    integer::i,j,N

    real*8::x(8)

    real*8::tmp

    x=[81,72,63,54,45,36,27,18]

    N=size(x)

    do i=1,N-1

        do j=i+1,N

            if(x(j)<x(i))then

                tmp=x(i)

                x(i)=x(j)

                x(j)=tmp

            end if

        end do

    end do

    do i=1,N

        print *, x(i)

    end do

windows平台下fortran编程实现冒泡排序

5、编译、运行、结果如下:

windows平台下fortran编程实现冒泡排序

声明:本网站引用、摘录或转载内容仅供网站访问者交流或参考,不代表本站立场,如存在版权或非法内容,请联系站长删除,联系邮箱:site.kefu@qq.com。
猜你喜欢