fortran第5章[循环].pptVIP

第五章 循环结构的实现; FORTRAN程序中有条件的循环的3种循环类型: 1. DO型循环 (用循环语句实现) 2.当型循环 （用DO WHILE语句） 3.直到型循环（用IF语句）;5.2 用DO语句实现循环(循环次数已知的循环）;循环变量的初值、终值和步长可以为正或负。初值、终值可以为零。但步长不应为0，否则循环变量的值永远不会超过终值，从而陷入死循环。 ;循环变量是实型的;DO循环的执行过程为:; 例：;继续语句（CONTINUE语句）;??? 循环终端语句 循环终端语句为一般的执行语句。 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结束的块DO构造。 ; 例1. 一球从100米高度自由落下，每次落地后反跳回原高度的一半，再落下，求它在第20次着地时，共经过了多少米?;有关DO循环的一些规定;2.循环变量的初值E1,终值E2和增量E3在执行循环体期间不能改变. 下面用法是错误的. ; 4.可以用转移语句从循环体内转到循环体外,也可以在循环体内转移,但不允许从循环体外转到循环体内.;数值积分;底的起点）;源程序:;例 正直角柱体如图所示.已知5组a, b和h,要求分别求出对应的d.; 例: 利用公式 ex=1+x/1!+x2/2!+x3/3!+…+xn/n!+… 计算ex展开式的前20项的近似值。 分析：ex的展开式中第i项是第i-1项乘以x/i的积。 例如： t1 = t0 · x/1 (t0=1) t2 = t1 · x/2 t3 = t2 · x/3 … ti = ti-1 · x/i … 这种表示方式可用循环实现。设t代表每项值的变量，i是循环控制变量，则下面的语句中，for语句的每一次循环都产生ex展开式中前n项的t值(除开始一项以外)： t=1.0 DO I=1,N t=t*x/i END DO;ex是展开式的各项之和，这种有规律的求和正好可以用循环来实现。 假设ex代表两项之和的变量，将前面for循环中求出的每一项t累加起来，可表示为： ex=1.0 t=1.0 DO I=1,N t=t*x/i ex=ex+t END DO ;;循环嵌套的概念和执行过程 一个循环体内又包含另一个完整的循环,称为循环的嵌套; AVER1=TOTAL1/(40*30);例: 打印九九表的程序; 二重循环的执行过程：;有关循环嵌套的规定; 2. 并列的循环可以用一个变量名作循环变量，而嵌套的循环不能用同一变量名作循环变量。;*循环嵌套中循环控制变量的选择;多重循环遵守的原则: 1. 变化范围大的循环变量要放在内层循环 2. 尽量减少内循环中的运算,凡与循环无关的运算均移到 循环体外 ;例:求方程I3+J3+K3=3的全部解 其中I为[-5,11],J为[-10,9],K为[-6,18];补充:百鸡问题。公鸡每只5元, 母鸡3元, 小鸡一元3只.100元买100只鸡.;INTEGER X,Y,Z DO X=1,20 DO Y=1,33 z=100-x-y IF (5*X+3*Y+Z/3.EQ.100) THEN PRINT *, X, Y, Z ENDIF END DO END DO END ;例2 求100到2