返回首页
次数未知
当型循环
1.使用do while语句实现当型循环,当while后括号内为".true."时,重复执行循环体内的语句,如下:
integer::n=1
do while (n<=50)
print*, 'now, n=',n
print*, 'let us continue.'
n=n+1
end do
2.也可以采用有标号的格式,如下:
integer::n=1
do 10 while (n<=50)
print*, 'now, n=',n
print*, 'let us continue.'
n=n+1
10 continue
end
3.还可以借助if和go to 语句实现:
integer::n=1
a if (n<=50) then
print*, 'now, n=',n
print*, 'let us continue.'
n=n+1
go to a
end if
直到型循环
1.使用go to 语句实现:
integer::n=1
a print*, 'now, n=',n
print*, 'let us continue.'
n=n+1
if(n<=50)go to a
2.使用do和exit语句实现
integer::n=1
do
print*, 'now, n=',n
print*, 'let us continue.'
n=n+1
if (n<=50) exit
end do
次数已知
可以使用do 加上循环变量来进行指定次数的循环,如下:
do i = 1,5,1
print*, 'now, n=',n
print*, 'let us continue.'
end do
其中do语句后面的 i=1,5,1 表示设定循环变量i的初值为1,终值为5,步长为1。
也可以使用如下带标号的格式:
do 10 i = 1,5,1
print*, 'now, n=',n
print*, 'let us continue.'
10 continue