Fortran 冒泡排序算法示例程序

下面是一个 Fortran 冒泡排序的程序示例：

program bubble_sort
    implicit none
    integer, parameter :: n = 10
    real :: arr(n) = [9.1, 2.6, 7.8, 3.4, 1.2, 5.7, 6.9, 4.3, 8.5, 0.9]
    real :: temp
    integer :: i, j

    ! 冒泡排序算法
    do i = 1, n-1
        do j = 1, n-i
            if (arr(j) > arr(j+1)) then
                temp = arr(j)
                arr(j) = arr(j+1)
                arr(j+1) = temp
            end if
        end do
    end do

    ! 输出排序结果
    print *, '排序后的数组：'
    do i = 1, n
        print *, arr(i)
    end do

end program bubble_sort

这个程序使用冒泡排序算法对一个包含 10 个实数的数组进行排序。初始数组值为 [9.1, 2.6, 7.8, 3.4, 1.2, 5.7, 6.9, 4.3, 8.5, 0.9]。程序会打印出排序后的数组。

冒泡排序算法通过比较相邻的元素并交换位置，将较大的元素逐渐“浮”到数组的尾部，从而达到排序的目的。

请注意，这只是一个简单的示例，你可以根据自己的需要修改数组大小和初始值。