3.2.1 无循环变量的DO构造
这种DO构造形式非常简单,一般形式为:
[构造名:] DO
块
END DO
不带循环控制变量的DO构造控制机制为:进入DO构造体后,从DO语句下面第一句执行起顺次执行到END DO前的最后一句,再返上来从DO语句下面第一句执行起,重复执行整个DO块。如此反复执行DO块,其间如遇到EXIT语句,就停止执行DO块,退出循环,转向执行END DO下面的语句。对于不带控制变量的DO构造,DO块中必须有EXIT语句,使它停止循环,否则循环将无休无止地一直进行下去,形成死循环。
DO构造也可在自身中再嵌DO构造,例如:
FIRST: DO
块1的第一部分
SECOND: DO
块2
END DO SECOND
块1的第二部分
END DO FIRST
许多实际问题中无法预先给定循环次数,而是只给出一个条件,满足此条件时就继续执行循环体,否则退出循环,故有条件循环时循环次数不是固定的。除了可以用GOTO语句跳出循环外(非结构化方法),F90还给出了其它用于条件循环方式的语句。
EXIT语句的作用是停止循环,使控制退出循环结构,因此又称出口语句。它的一般形式是:EXIT [DO构造名]。执行EXIT语句,其功能是导致循环终止。如果语句引用了DO构造名,则它属于该构造,否则属于它所出现的最内层DO构造。对于多层嵌套的DO构造,尤为需要指明是从哪一个构造名的DO构造中退出。如当EXIT指明从第三层结构退出,则第三层与第三层内各层嵌套的DO构造都将被停止执行。
单独使用将导致无条件地终止循环,没有实用意义。为了控制DO结构在满足某种条件时停止循环,通常将EXIT语句与IF语句结合使用,即在DO构造内使用:IF(逻辑表达式) EXIT。当逻辑表达式为真时,EXIT语句被执行,循环终止,否则循环将继续进行。
例:do;if((input.eq.'n').or.(input.eq.'y')) exit
write(*,'(a)') 'Enter y or n:';read(*,'(a)') input
end do
例:一个猜数游戏。用随机数产生器产生1-10之间的一个整数,你猜它,如果猜得太大或太小都会提示,猜对了结束。[e_321_01.f90]
例:求级数的前n项和,但当某项绝对值≤10-5时,虽未满n项,也因满足精度而不再加入下一项。[e_321_02.f90]
CYCLE语句的一般形式为:CYCLE [DO构造名]。CYCLE语句的功能是在循环中跳过它下面那部分的DO块,重新返回到块的第一个语句开始执行。运用CYCLE语句,可以在执行循环中某一次迭代时不执行下面的部分语句,使DO结构更为灵活。
CYCLE语句与EXIT语句一样属于特定的DO构造。如果语句引用了DO构造名,则它属于该构造,否则属于它所出现的最内层DO构造。[e_321_03.f90]
3.2.2
DO WHILE语句
在F90增强的功能中,增加了DO WHILE语句以支持当型循环。因此,DO构造不仅仅能完成循环次数已知的循环,而且能够完成此数未知的循环。它的一般形式为:[构造名] DO WHILE (逻辑表达式)。DO WHILE语句的规则和块IF语句所需满足的的块规则类似。
例:上面的例子中用EXIT语句退出循环等价于
do while ((input.ne.'n').and.(input.ne.'y'))
write(*,'(a)') 'Enter y or n:';read(*,'(a)') input
end do
例:对一个大于或等于3的正整数,判断它是不是一个素数。[e_322_01.f90][e_322_02.f90]
例:求两个整数的最大公约数。[e_322_03.f90][e_322_04.f90]
例:求正弦函数的近似值。[e_322_05.f90]
3.2.3 DO 构造的一般形式
由以上的各种DO循环可归纳为其下的DO构造一般形式:
[构造名:] DO [标号][循环控制]
块
终止语句
1) 循环控制的形式是:
[,] 循环变量=下界,上界[,增量] 或
[,] WHILE(逻辑表达式) 或
无 (用块中的EXIT和CYCLE语句进行实际的控制)
2) 终止语句的形式是:
END DO[构造名] 或
[标号] CONTINUE 或
[标号] 允许的执行语句
【作业】
[3.1] 用不带循环控制变量的DO构造求下列式(当m≥1000时停止):
(1)
(2)
(3)
[3.2] 设,编程求f(x)的前若干项之和,当相邻两项差的绝对值小于10-6即可。
[3.3] 用牛顿迭代法求方程在x=0附近的根,精度满足时停止迭代,并规定最多迭代50次。牛顿迭代公式为。