022.doCounted_计数循环

计数循环是计数控制循环，适合已知重复次数的求和、累积、枚举和批量输出。

计数do循环适合循环次数已经明确的任务。控制语句给出循环变量、起始值和终止值，循环体在每个合法整数值上执行一次。

• do stepIndex=1,5表示stepIndex从1依次增加到5。
• 未显式写步长时，本例按默认步长1递增。
• do与end do之间是每轮重复执行的语句。

本文代码

! do计数循环用于按整数范围重复执行语句。
program doCountedDemo
  implicit none
  integer :: stepIndex
  integer :: squareValue

  print "(A)","do计数循环："
  do stepIndex=1,5
    squareValue=stepIndex**2
    print "(A,I2,A,I3)","stepIndex=",stepIndex," 平方=",squareValue
  end do
end program doCountedDemo

编译运行

(base) hong@hongdeMacBook-Pro 024.doCounted % gfortran exampleDoCounted.f90
(base) hong@hongdeMacBook-Pro 024.doCounted % ./a.out
do计数循环：
stepIndex= 1 平方=  1
stepIndex= 2 平方=  4
stepIndex= 3 平方=  9
stepIndex= 4 平方= 16
stepIndex= 5 平方= 25

结果分析

stepIndex依次取1、2、3、4、5，squareValue每轮由stepIndex**2重新计算，因此输出的平方依次为1、4、9、16、25。

起始值1和终止值5都参与循环。第5轮结束后，循环变量已经完成规定范围，程序离开end do。

知识点总结

• 计数do循环由循环变量、起始值、终止值和可选步长控制。
• 本例未写步长，stepIndex使用默认步长1。
• stepIndex**2使用幂运算计算当前整数的平方。