面试题：Fortran条件语句的嵌套应用

Question

编写一个Fortran程序，实现如下功能：输入一个学生的成绩，根据成绩范围进行评级。如果成绩大于等于90分，评为'A'；如果成绩在80 - 89分之间，评为'B'；如果成绩在70 - 79分之间，评为'C'；如果成绩在60 - 69分之间，评为'D'；小于60分评为'F'。要求使用条件语句的嵌套来完成。

Answer 1

program grade_evaluation
    implicit none
    real :: score
    character(1) :: grade

   ! 输入成绩
    write(*,*) '请输入学生成绩:'
    read(*,*) score

   ! 使用条件语句嵌套进行评级
    if (score >= 90) then
        grade = 'A'
    else
        if (score >= 80) then
            grade = 'B'
        else
            if (score >= 70) then
                grade = 'C'
            else
                if (score >= 60) then
                    grade = 'D'
                else
                    grade = 'F'
                end if
            end if
        end if
    end if

   ! 输出评级结果
    write(*,*) '该学生的评级为:', grade
end program grade_evaluation