Fortran輸入成績排名

在Fortran中，你可以使用以下代碼來輸入成績並進行排名：

program grade_ranking

implicit none

! 變量聲明
integer :: i, n
real :: grade
character(len=10) :: input_message
integer :: rank

! 提示用戶輸入成績
input_message = "請輸入成績(按Enter鍵結束): "

! 用戶輸入成績
print *, input_message
read *, grade

! 計算排名
rank = 1

! 重複輸入直到用戶輸入空值
do while (grade /= 0.0)
    ! 輸出當前排名
    print *, "成績", rank, "：", grade

    ! 提示用戶輸入下一個成績
    input_message = "請輸入下一個成績(按Enter鍵結束): "
    print *, input_message
    read *, grade

    ! 更新排名
    rank = rank + 1
end do

end program grade_ranking

這個程式會提示用戶輸入一個成績，並將其作為第一個成績進行排名。然後，程式會提示用戶輸入下一個成績，並重複這個過程，直到用戶輸入空值（即按下Enter鍵）為止。每個成績都會被輸出並給予一個排名。

請注意，這個程式假設成績是單獨的數字，而不是分數或百分比。如果你需要處理分數或百分比，你可能需要將它們轉換為一個可以比較的格式（例如，將分數轉換為整數，或將百分比轉換為小數）。

此外，這個程式沒有提供錯誤檢查，如果用戶輸入了非數字字元，程式將會崩潰。如果你需要錯誤檢查，你可能需要添加一些額外的代碼來處理用戶輸入錯誤的情況。