fortran的程序设计循环结构.pptVIP

六、 循环结构程序设计 DO DO WHILE DO循环的嵌套 隐含DO循环 循环的流程控制 * * 例： DO I=1,20,2 …… ENDDO 由循环变量来控制循环的次数。 即：需要执行的循环次数已经知道 DO 输入30个学生的学号和成绩，并且打印出来 DO N=1,30 READ *, NUM,GRADE PRINT * , NUM,GRADE ENDDO 也称“循环变量” 也称“步长”,缺省为1 DO 循环变量 步长 终值 初值 行号 行号 循环终端语句： 循环终端语句为一般的执行语句。 F90规定：循环终端语句可以是除了GOTO、块IF、CASE、CYCLE、DO、ELSE、ELSE IF、END IF、END、END SELECT、EXIT、SELECT CASE、STOP和RETURN语句以外的任一可执行语句，如打印语句、赋值语句、输入语句、逻辑IF语句等都可以作为终端语句。 特殊的循环终端语句是：END DO(常用于无语句标号时)和CONTINUE(常用于有语句标号时)。END DO语句使老的CONTINUE语句显得没有什么用处了，虽然F90的向下兼容性使CONTINUE语句仍然可用，但新编写的程序应该尽量使用以END DO结束的块DO构造 练习1 用展开式 求指数函数的数值 (参考程序：exponent.f90 ) 练习2 用展开式 求pi 的近似值。N由键盘输入 program exponent implicit none integer i,n real x, term, sum read *, n,x term=1.0 sum=1.0 do 10 i=1,n term=term * x/i sum=sum+term 10 continue print *, sum end do i=1,n term=term*x/i sum=sum+term end do 练习1 练习2 PROGRAM MAIN implicit none integer i,n real PI, term, SUM read *, n,x SUM=0.0 DO I=1,N term= 1.0 / I**2 SUM=SUM+term ENDDO PI=SQRT(SUM*6.0) END 循环变量的终值N由键盘输入 改为：直到第n项小于1e-6 ？ SUM=0. I=1 DO WHILE(1./ I**2=1E-6) SUM=SUM+1./I**2 I=I+1 ENDDO DO WHILE 用逻辑运算来控制循环的次数 循环的嵌套 在一个DO循环中又完整地包含另一个DO循环，称为DO循环的嵌套。 嵌套层数可以不限，各层的循环变量不允许同名。 注意内循环应当完整地嵌套在外循环之内，即内循环是外循环体中的一部分，内外循环不能交叉 do i=1,1O do j=1,20 ……… end do end do 例：求两个整数的最大公约数 (DO WHILE 结构程序见DIVISOR.F90) read *, m,n do while (m/=n) do while (mn) m=m-n end do do while (nm) n=n-m end do end do print *, 最大公约数＝,m end *