FORTRAN90第5节循环.ppt

FORTRAN语言及程序设计 计算机中心 2006.4 例题精讲 用梯形法计算定积分 分析：等分、以直代曲、累加求和 ★ DO WHILE结构的一般形式： [结构名:] DO WHILE（逻辑表达式） 循环体 END DO [结构名] * Fortran 90 * a b y x 复习循环的定义： …… 重复地执行某一段程序的情形，称为循环。 循环均由Do结构表示 ★ DO结构共有哪三种形式?适用范围? 带循环变量的DO结构 不带循环变量的DO结构 DO WHILE循环结构 用于已知循环次数 用于已知循环条件 带循环变量的DO结构 S=0 Do N=1,10 A=1.0/N S=S+A ENDDO 不带循环变量的DO结构 S=0 N=1 DO A=1.0/N IF(A1E-5)EXIT S=S+A N=N+1 ENDDO 执行过程的区别 循环体组成的区别 重复语句 循环变量的变化 循环的控制 重复语句 循环体 DO WHILE 判定条件 ENDDO的下一个语句 T F 执行过程 相当于 DO IF（.NOT.逻辑表达式）EXIT 循环体 END DO 条件相反、循环体相同 含循环变量变化语句 应用：1、求以下公式的值： 当通项的绝对值小于10-10时停止累加。 分析： 重复执行 S新=S原+通项 循环变量n为项数 循环次数未知，但已知循环条件 通项 累加和算法? 1、重复语句 计算通项A S=S+A 2、 DO结构的选择与写法 三种循环结构循环体的区别 3、循环初值的确定: 第一次循环所需要的值 ★循环结构编程步骤? 用DO WHILE结构表示 n=1;a=1;s=1 Do WHILE(abs(a)=1E-10) a=a*x/n S=s+a n=n+1 enddo 用不带循环变量的DO结构表示 n=1;a=1;s=1 Do a=a*x/n If(abs(a)1E-10)exit S=s+a n=n+1 enddo 通项A的类型 已知循环的 条件还是次数 先项数---分子、分母不得为零 再将项数代入通项计算公式，决定通项 后看累加和语句 循环变量的变化 条件相反、循环体相同 阅读程序 验证 2、求以下公式的值： S=1-1/2+1/3-……+1/99-1/100+… 当通项的绝对值小于10-10时停止累加。 分析： 通项 累加和算法——重复执行 S新=S原+通项A   循环变量n为项数 循环次数未知，但已知循环条件 用DO WHILE结构表示 n=1; s=0 Do WHILE(abs(a)=1e-10) a= (-1)**(n-1)*1.0/n S=s+a n=n+1 enddo 用不带循环变量的DO结构表示 n=1; s=0 Do a=(-1)**(n-1)*1.0/n If(abs(a)1e-10)exit S=s+a n=n+1 enddo 阅读程序验证： 条件a未定义 表达式的写法 改变初值或语句顺序 原则：程序执行结果与公式一致 1、适用于已知条件的循环 2、循环体的组成成分一致： 重复语句 循环变量的变化语句——使条件老化 ★ DO WHILE结构与不带循环变量的DO结构的比较 相同点： 不同点： 1、循环条件相反 2、循环条件的语句、位置不同 ——考虑第一次循环时条件的值 3、执行过程有差异 练习： DO WHILE 循环结构的循环体执行次数最少为 次 带循环变量的DO结构的循环体执行次数最少为 次 不带循环变量的DO结构的循环体执行次数最少为 次 应用：求最大值 例5-8: 有一批实数，用零作终止标记。请编写程序找出这批数中的最大值，并求出该最大值是这批数中的第几个数（若最大值数多次出现，只打印出第一个位置）。 引入变量BMAX——存放最大值 IMAX——存放最大值序号 分析： 1、赋初值：输入第一