用Fortran写一个冒泡排序

冒泡排序的 Fortran 代码如下：

program bubble_sort
implicit none
integer :: n, i, j, temp
integer, dimension(100) :: arr

write(*, "('Enter the number of elements: ')", advance="no")
read(*, *) n

write(*, "('Enter the elements: ')")
do i = 1, n
read(*, *) arr(i)
end do

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

write(*, "('Sorted array: ')")
do i = 1, n
write(*, *) arr(i)
end do

end program bubble_sort

相关问题

用fortran写一个冒泡算法

以下是使用Fortran编写的冒泡排序算法：

program bubble_sort

    implicit none

    integer :: array(10) = [9, 3, 2, 7, 6, 8, 1, 4, 5, 10] ! 待排序数组
    integer :: i, j, temp

    do i = 1, size(array)-1 ! 外层循环控制排序轮数
        do j = 1, size(array)-i ! 内层循环控制比较次数
            if (array(j) > array(j+1)) then ! 如果前一个元素大于后一个元素
                temp = array(j) ! 交换两个元素的位置
                array(j) = array(j+1)
                array(j+1) = temp
            end if
        end do
    end do

    write(*,*) "排序后的数组为："
    do i = 1, size(array) ! 输出排序后的数组
        write(*,*) array(i)
    end do

end program bubble_sort

在上面的代码中，我们使用了一个长度为10的整数数组来测试冒泡排序算法。在外层循环中，我们控制排序轮数，内层循环中，我们控制比较次数。如果前一个元素大于后一个元素，则交换它们的位置。最后，我们输出排序后的数组。

fortran 冒泡排序

可以使用Fortran语言实现冒泡排序算法。下面是一个示例代码：

program bubble_sort
    implicit none
    
    integer, parameter :: n = 10
    integer :: arr(n)
    integer :: i, j, temp
    
    ! 初始化数组
    arr = [9, 4, 2, 7, 5, 1, 8, 3, 6, 0]
    
    ! 冒泡排序
    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
    
    ! 输出排序后的数组
    write(*,*) "排序后的数组:"
    do i = 1, n
        write(*,*) arr(i)
    end do
    
end program bubble_sort

输出结果为：

排序后的数组:
           0
           1
           2
           3
           4
           5
           6
           7
           8
           9