三 迴圈的結構

以下的範例程式，示範 fortran 所提供的
三種回圈結構

迴圈很重要，請多加練習。


[pre]

! begin of main()
implicit none
integer no, sum, i

! loop for 1 + 2 + ... + no
no= 10000000

sum= 0
do i=1, no, 1
sum= sum + i
end do
print *, 'do loop, sum= ', sum
pause
! -----------------------------------------------

sum= 0
i= 1
do while (i <= no)
sum= sum + i
i= i + 1
end do
print *, 'do while(), sum= ', sum + 1
pause
! -----------------------------------------------

! repeat ... until
sum= 0
i= 1
do
sum= sum + i
i= i + 1
if (i > no) exit
end do
print *, 'repeat ... until(), sum= ', sum + 2

end


[/pre]