《Fortran程序设计循环结构课件》由会员分享，可在线阅读，更多相关《Fortran程序设计循环结构课件（19页珍藏版）》请在金锄头文库上搜索。
1、例： DO I=1,20,2 ENDDO 由循环变量来控制循环的次数。 即：需要执行的循环次数已经知道,DO,输入30个学生的学号和成绩，并且打印出来,DO N=1,30 READ *, NUM,GRADE PRINT * , NUM,GRADE ENDDO,DO,循环变量,步长,终值,初值,行号,行号,循环终端语句：,循环终端语句为一般的执行语句。 F90规定：循环终端语句可以是除了GOTO、块IF、CASE、CYCLE、DO、ELSE、ELSE IF、END IF、END、END SELECT、EXIT、SELECT CASE、STOP和RETURN语句以外的任一可执行语句，如打印语句、赋
2、值语句、输入语句、逻辑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
3、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由键盘输入 改为：直到
4、第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
5、/=n) do while (mn) m=m-n end do do while (nm) n=n-m end do end do print *, 最大公约数,m end,例：打印“九九表”，即 11=1 12=2 直到99=81 （程序 ex 4.f90) 例：打印3-100之间的全部素数 程序prime.f90 (先看判断素数程序 prime numb.f90),循环的流程控制,CYCLE 命令,EXIT 命令 （p109）,其它：,do end do,不带循环控制变量，从DO语句下面第一句执行起顺次执行到END DO前的最后一句，再返上来从DO语句下面第一句执行起，重复执行整个DO块
6、，则需要用exit跳出循环 程序例：guess numb.f90,隐 DO 循环,隐DO循环实际上是带控制循环变量的DO循环，但简化成只有DO循环的第一句，且把关键字DO隐去，成为I=m1,m2,m3形式。 它不是独立语句，只是用作为读写语句的输入输出表中一个组成部分，用来控制重复读写的次数。,READ *,(VALUE(I),I=1,20),WRITE(*,*)(A,B,N=1,5),隐DO表可以嵌套，如： PRINT *, (A(I,J),I=1,3),J=1,3),练习： 求级数,的前n项和，但当某项绝对值105时，虽未满n项，也因满足精度而不再加入下一项,练习：验证哥德巴赫猜想。哥德巴赫猜想提出，一个不小于6的偶数必定能表示为两个素数之和。例如：6=3+3，8=3+5，10=3+7， 要求将6100之间的全部偶数表示为两个素数之和。,程序 series.f90 程序 prime numb.f90,程序 verify.f90,
