ex0604.f90

来自「Fortran 95程序设计&Code-彭国伦」· F90 代码 · 共 17 行

program ex0604
implicit none
  integer, parameter :: limit=10  ! 计数器的上限
  integer counter      ! 计数器
  integer :: ans = 0   ! 拿来累加使用

  counter = 2  ! 设定计数器初值
  do while( counter <= limit )
    ans = ans + counter
    counter = counter + 2  ! 计数器累加
  end do

  write(*,*) ans

  stop
end