Fortran exit 语句

2023-12-29 14:55 更新

当我们在使用 do 循环语句时，如果想要在某个与循环条件无关的条件满足时提前退出循环，就要使用 if 语句和 exit 语句的组合了。如示例 14 所示，当 sum 的值超过 10 时循环就会被提前终止。由于 1+2+3+4=10，所以 i 加到 5 才会使得 sum 值超过 10，此时的 sum 则为 1+2+3+4+5=15，而 i 也因为提前退出循环而不会执行自增操作，所以此时输出的 i 值为最后的 5。如果将原来的 exit 语句换成 goto 语句，并将 goto 语句指向的跳转行设为循环外的下一行，则最后的效果也是一样的，如示例 15 所示。

!!! 示例 14
sum = 0
do i = 1, 10
    sum = sum + i
    if (sum > 10) exit
enddo
print *, i, sum      ! 输出 i 的值为 5，sum 的值为 15

!!! 示例 15
    sum = 0
    do i = 1, 10
        sum = sum + i
        if (sum > 10) goto 8
    enddo
8   print *, i, sum  ! 输出 i 的值仍为 5，sum 的值仍为 15

以上内容是否对您有帮助：