FORTRAN90第5章1.pptVIP

FORTRAN90程序设计 计算机中心 2006.3 第5章 循环结构程序设计 5.1 引言 例1 打印sinx的值，每10度为一个间隔，x的范围为0~360。 请采用顺序结构编写该程序。 5.1 引言 利用循环结构实现如下： Program main Real::x,pi X=0;pi=3.14159/180 Do print *,sin(x*pi) x=x+10 if(x360)exit enddo End program main 5.1 引言 常见的循环运算还有： 5.1 引言 循环的分类： 1、已知循环次数 2、已知循环条件 循环的表示及适用范围： 循环均由Do结构表示，其Do结构共有三种形式： 1．带循环变量的DO结构 2．不带循环变量的DO结构 3．Do WHILE循环结构 5.2 无循环变量的DO结构 一般形式 [结构名:]DO !循环开始语句 循环体 !循环体 ENDDO [结构名] !循环结束语句 结构名 可以省略，多层嵌套时，为使结构清晰才用 循环体 可以为0~n条语句或结构，包含以下语句： 重复语句，循环变量的变化，循环控制语句 DO 循环入口语句，只能从该语句进入循环 ENDDO 循环终止语句，可以不经过该语句退出循环 5.2 无循环变量的DO结构 使用范围 循环次数未知，仅给定了循环终止条件 执行过程 进入DO结构后，从DO语句下面第一句执行起顺次执行到END DO前的最后一句， 再返上来从DO语句下面第一句执行起，重复执行整个DO块。 如此反复执行DO块，其间如遇到EXIT语句，就停止执行DO块，退出循环，转向执行END DO下面的语句。 对于不带控制变量的DO结构，DO块中必须有EXIT语句，使它停止循环，否则循环将无休无止一直进行下去，形成死循环。 5.2 无循环变量的DO结构 EXIT语句：循环出口语句 EXIT [结构名] 作用：停止循环，将控制转移到当前循环（或指定结构）之外。 一般用法 IF (逻辑表达式) EXIT [DO结构名] 5.2 无循环变量的DO结构 CYCLE语句：短路语句 CYCLE [DO结构名] 作用：在循环执行到该语句时，跳过循环体在它后面的那些语句。再从循环体的第一条语句开始执行。 该语句不能终止循环，仅为跳过本次循环，直接进入下一轮循环。 5.2 无循环变量的DO结构 例2 求一批数中，负数的个数及负数的总和。要求从键盘一个一个的输入，当输入的数据为0时，终止循环。 分析 重复：计数 count=count+1 求和 sm=sm+x 终止：if(x==0)exit 跳过：if(x0)cycle 5.2 无循环变量的DO结构 例3 用迭代法求方程X2+4X+1=0的根。 算法： 将方程改写成X=F(X)形式； 找出初值X0，代入上式，求得X1； 将X1作为X0，代入上式，求得新的X1； 反复代入； 当两次求得的X1的值达到一定精度，则得到方程的根。 5.3 带循环变量的DO结构 一般形式： [结构名:] DO 循变V=初值e1, 终值e2 [ , 步长值e3] 循环体 !重复执行的语句 ENDDO [DO结构名] 5.3 带循环变量的DO结构 计算初值式、终值式、增量式的值，并将它们转换成循环变量的类型。 将初值赋予循环变量。 计算应循环的次数。 检查循环次数，若≤0则跳过循环体，执行循环终端语句下面的一个执行语句。如果＞0，则执行循环体。 执行终端语句时，循环变量增值。 循环次数减1。 返回④，重复执行④⑤⑥⑦。 5.3 带循环变量的DO结构 e1,e2,e3可为常量、已有值的变量或表达式 e3=1时可省略 语句执行次数： do语句：1次（负责赋初值和循环次数的计算） 循环体语句次数：max(int((e2-e1)/e3)+1, 0) e2不允许为最大整数值 循环正常结束，循环变量的值肯定超过终值 e3不允许为零(可正、可负)，否则循环不能终止 5.3 带循环变量的DO结构 DO循环变量在循环体内不能再次定义 DO I=3，6 I=5 ！！错误 J=J+I ENDDO 循环变量的初值E1、终值E2和步长E3只是在循环入口有效，进入循环后，它的值与循环次数无关。 例如： 5.3 带循环变量的DO结构 在DO结构中包含的IF结构和CASE