Question

在 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]