Visual Fortran90第5章节.ppt

第5章 循环结构程序设计 5.1 引言 例1 打印sinx的值，每10度为一个间隔，x的范围为0~360。 请采用顺序结构编写该程序。 利用循环结构实现如下： 常见的循环运算还有： 循环的分类： 1、已知循环次数 2、已知循环条件 循环的表示及适用范围： 循环均由Do结构表示，其Do结构共有三种形式： 1．不带循环变量的DO结构 2．带循环变量的DO结构 3．Do WHILE循环结构 5.2 不带循环变量的DO结构 一、一般形式 [结构名:]DO !循环开始语句 循环体 !循环体 ENDDO [结构名] !循环结束语句 无循环变量的DO结构 使用范围： 循环次数未知，仅给定了循环终止条件 二、无循环变量的DO结构执行过程： 进入DO结构后，从DO语句下面第一句执行起顺次执行到END DO前的最后一句， 再返上来从DO语句下面第一句执行起，重复执行整个DO块。 如此反复执行DO块，其间如遇到EXIT语句，就停止执行DO块，退出循环，转向执行END DO下面的语句。 对于不带控制变量的DO结构，DO块中必须有EXIT语句，使它停止循环，否则循环将无休无止一直进行下去，形成死循环。 例： DO READ *，X SUM=SUM+X PRINT *，SUM END DO 三、 EXIT和CYCLE语句 1、EXIT语句 循环出口语句，一般形式为： EXIT [DO结构名] 作用：停止循环，将控制转移到当前循环（或指定do结构）之外。 一般用法 IF (逻辑表达式) EXIT [DO结构名] EXIT语句流程图： 对上例改进后： DO READ *，X IF(X==0) EXIT SUM=SUM+X PRINT *，SUM END DO 分析：这类问题关键在找通项ai,只要给出n值，用循环n次的DO循环结构，每次循环时累加一个ai即可。需要的变量有：累加项数I ，通项T，总和S，总项数N。 2 、CYCLE语句 短路语句，一般形式为： CYCLE [DO结构名] 作用：在循环执行到该语句时，跳过循环体在它后面的那些语句。再从循环体的第一条语句开始执行。 一般用法: IF (逻辑表达式) CYCLE [DO结构名] 例5-3：求一批数中，负数的个数及负数的总和。 要求从键盘一个一个的输入，当输入的数据为0时，终止循环。 分析 重复：计数 num=num+1 求和 sum=sum+x 终止：if(x==0) exit 跳过：if(x0) cycle 例：求一批数中，负数的个数及负数的总和。 DO READ *,X IF(X==0) EXIT IF(X0) CYCLE NUM=NUM+1 SUM=SUM+X ENDDO 例5-5 用迭代法求方程X2+4X+1=0的根。 算法： 将方程改写成X=f(X)形式。令x=(-x2-1)/4 找出初值X0，代入上式，求得X1； 将X1作为X0，代入上式，求得新的X1； 反复代入，这就是迭代法； 当两次求得的X1的值达到一定精度，即|xn+1-xn|≤ε时，则得到方程的根。 如果迭代一定次数仍达不到给定精度，则认为迭代可能是发散的，就不再迭代下去了，并给出相应提示信息。 PROGRAM ITERATION IMPLICIT NONE INTEGER::I,M !M用于控制迭代次数 REAL::X0,X,E READ*,X0,E,M I=0 DO X=(-X0*X0-1)/4 IF(ABS(X-X0)E) EXIT X0=X I=I+1 IF(I=M) THEN PRINT*,DEVERGENT！ EXIT ENDIF ENDDO IF(IM)PRINT (1X,I=,I4,4X,X=,F12.7),I,X END PROGRAM ITERATION 5.3 带循环变量的DO结构 使用范围:计数型循环——已知循环次数 一般形式： [结构名:] DO 循环控制变量V=初值e1, 终值e2 [ , 步长值e3] 循环体 !重复执行的语句 ENDDO [DO结构名] e1、e2、e3可以是正值，也可以是负值，最好是整型。 例：DO I=1,100,2 S=S+I ENDDO 执行过程 计算初值、终值、增量（步长）的值，并将它们转换成循环变量的类型，计算得到的值不再发生变化。 将