Fortran中的elseif语句

在Fortran中，elseif语句用于测试多个条件并在每种情况下执行不同的操作。它是if语句的扩展形式，允许程序员测试多个条件而不是仅仅测试一个条件。

使用elseif语句的语法

elseif语句有以下语法结构：

if (condition1) then
    ! 程序块1
elseif (condition2) then
    ! 程序块2
elseif (condition3) then
    ! 程序块3
else
    ! 程序块4
end if

• if (condition1) then：首先检查条件1，如果此条件为True，则执行程序块1。如果它为False，则继续检查下一个elseif块。如果没有elseif块，则执行else块（如果存在else块）。
• elseif (condition2) then：如果条件1为False，则继续检查条件2。如果条件为True，则执行程序块2。如果条件为False，则继续检查下一个elseif块。如果没有其他elseif块，则执行else块（如果存在else块）。
• elseif (condition3) then：类似地，如果条件2为False，则继续检查条件3。如果条件为True，则执行程序块3。如果条件为False，则继续检查下一个elseif块。如果没有其他elseif块，则执行else块（如果存在else块）。
• else：如果上面的所有条件都为False，则执行else块。

示例代码

以下示例展示如何在Fortran中使用elseif语句：

program main
    implicit none
    integer :: num
    
    print *, "请输入一个整数："
    read *, num
    
    if (num < 0) then
        print *, "您输入的数为负数。"
    elseif (num == 0) then
        print *, "您输入的数为零。"
    else
        print *, "您输入的数为正数。"
    end if
    
end program main

此程序将要求用户输入一个整数，并根据其值输出相应的消息。

如果用户输入负数，则输出“您输入的数为负数。”。如果他们输入0，则输出“您输入的数为零。”。如果用户输入正数，则输出“您输入的数为正数。”。