匿名使用者
匿名使用者 發問時間: 電腦與網際網路程式設計 · 7 年前

fortran的問題

簡單說就是使用者輸入五個數字

然後電腦輸出第三大的數字

該如何寫呢?

1 個解答

評分
  • 7 年前
    最佳解答

    ! 這是排序的模組副程式

    module sort_module

    implicit none

    public :: Insertion_Sort

    contains

    subroutine Insertion_Sort(A)

    integer, intent(in out), dimension(:) :: A

    integer :: temp, i, j

    do i = 2, size(A)

    j = i - 1

    temp = A(i)

    do while (j>=1 .AND. A(j)>temp)

    A(j+1) = A(j)

    j = j - 1

    end do

    A(j+1) = temp

    end do

    end subroutine Insertion_Sort

    end module sort_module

    !可以排序不同的整數輸入, 調整N可以決定要輸入幾個數字

    program sortinput

    use sort_module

    implicit none

    integer :: i

    integer, parameter :: N = 5

    integer, dimension(1:N) :: INPUT

    write(*,*) "Input ", N, " integers"

    do i = 1, N

    read(*,*) INPUT(i)

    end do

    call Insertion_Sort(INPUT)

    print *, "The third largest element is ", INPUT(N-3+1)

    end program sortinput

    參考資料: 每天跟程式作伍的研究生
還有問題?馬上發問,尋求解答。