营销fortran第5章(循环).pptVIP

第*页 f(x) f(x1) f(x) f(x2) x x1 x2 0 第*页 10 read *,x1,x2 y1=((x1-2.0)*x1+8.0)*x1-16.0 y2=((x2-2.0)*x2+8.0)*x2-16.0 if (y1*y2=0) goto 10 20 x=x1*(f2-x2*f1)/(f2-f1) y=((x-2.0)*x+8.0)*x-16.0 if(y*y10)then y1=y x1=x else x2=x y2=y end if if (abs(y).gt.1E-6) goto 20 Print*,’The root of equation is:’,x end 例：用弦截法求方程 x3 -2x2 +8x-16=0 的近似根。 第*页 5.5无循环变量的DO构造 ?? ? 一般形式： [构造名:] DO 块 END DO 注意：对于不带控制变量的DO构造，DO块中必须有EXIT语句，使它停止循环，否则循环将无休无止地一直进行下去，形成死循环。 第*页 DO构造也可在自身中再嵌DO构造，例如： FIRST: DO 块1的第一部分 SECOND: DO 块2 END DO SECOND 块1的第二部分 END DO FIRST 第*页 ? EXIT语句 EXIT语句的作用是停止循环，使控制退出循环结构，因此又称出口语句。 它的一般形式是：EXIT [DO构造名] 执行EXIT语句，其功能是导致循环终止。 注意：1〉 如果语句引用了DO构造名，则它属于该构造，否则属于它所出现的最内层DO构造。 2〉对于多层嵌套的DO构造，尤为需要指明是从哪一个构造名的DO构造中退出。如当EXIT指明从第三层结构退出，则第三层与第三层内各层嵌套的DO构造都将被停止执行。 3〉通常将EXIT语句与IF语句结合使用，即在DO构造内使用：IF(逻辑表达式) EXIT。当逻辑表达式为真时，EXIT语句被执行，循环终止，否则循环将继续进行。 第*页 例如： implicit none integer i,j real y, term y=0 xx: do j=1,1000 ww: do i=1,1000 term=1./(i*(i+1)) y=y+term if(abs(term)=1.e-5) exit xx end do ww print *,ok end do xx print *, sum,y, term=,i ,j end 第*页 implicit none integer :: i,n real :: y=0, term read *, n do i=1,n term=1./(i*(i+1)) y=y+term if(abs(term)=1.e-5) exit end do print *, sum,y, term=,i end 例：求级数的前n项和，但当某项绝对值≤10-5时，虽未满n项，也因满足精度而不再加入下一项。 第*页 ?? ?? CYCLE语句 CYCLE语句的一般形式为： CYCLE [DO构造名] CYCLE语句的功能是在循环中跳过它下面那部分的DO块，重新返回到块的第一个语句开始执行。 运用CYCLE语句，可以在执行循环中某一次迭代时不执行下面的部分语句，使DO结构更为灵活。 CYCLE语句与EXIT语句一样属于特定的DO构造。如果语句引用了DO构造名，则它属于该构造，否则属于它所出现的最内层DO构造。 第*页 parameter (n=10) write(*,(a)) Loop: 1st 2nd 3rd loop_1: do i=1,n if(i.gt.3) exit loop_1 write(*,1) i loop_2: do j=1,n if(j.g