Fortran循环

Fortran是一种编程语言。在Fortran中，循环结构用于重复执行一组操作。本文将介绍Fortran中的循环结构。

do循环

一种常见的循环结构是do循环。在Fortran中，do循环可以使用以下方式进行定义：

do index = start, stop[, increment]
    ! 代码块
end do

上述代码中，index是循环计数器，start是起始值，stop是终止值（循环将在达到此值时停止），increment是可选的，表示循环计数器递增的数量。如果未提供增量，则默认为1。

下面是一个示例代码片段，它演示了如何使用do循环在Fortran中计算1到10之间整数的平方。

program square
    implicit none
    integer :: i, result

    do i = 1, 10
        result = i ** 2
        write(*,*) result
    end do

end program square

该程序将输出以下内容：

           1
           4
           9
          16
          25
          36
          49
          64
          81
         100

循环控制语句

在Fortran中，有三种循环控制语句：

• exit：用于从循环块中退出。
• cycle：用于跳过循环块中的当前迭代。
• stop：用于停止程序的执行。

下面是一个示例代码片段，演示了如何在Fortran中使用循环控制语句。

program loop_control
    implicit none
    integer :: i

    do i = 1, 10
        if (i == 3) then
            cycle ! 跳过i等于3的迭代
        elseif (i == 8) then
            exit ! 退出循环
        endif

        write(*,*) i
    end do

    stop ! 停止程序的执行

end program loop_control

该程序将输出以下内容：

           1
           2
           4
           5
           6
           7

总结

本文介绍了在Fortran中使用循环结构的方法，重点介绍了do循环和循环控制语句。Fortran中的循环结构可以帮助程序员更有效地组织代码，并提高程序的可读性和可维护性。