FORTRAN90第5章循环.ppt

FORTRAN 语言及程序设计计算机中心 Fortran 90 例题精讲?用梯形法计算定积分分析:等分、以直代曲、累加求和? ba dx x) sin( ab yx Fortran 90 复****循环的定义: ……重复地执行某一段程序的情形,称为循环。重复地执行某一段程序的情形,称为循环。循环均由 Do 结构表示循环均由 Do 结构表示 Fortran 90 ★DO结构共有哪三种形式?适用范围? ★★DO DO结构共结构共有哪三种形有哪三种形式式? ?适用范围适用范围? ?带循环变量的 DO 结构带循环变量的 DO 结构不带循环变量的 DO 结构不带循环变量的 DO 结构 DO WHILE 循环结构 DO WHILE 循环结构用于已知循环次数用于已知循环条件 Fortran 90 带循环变量的 DO 结构 S=0 Do N=1,10 A= S=S+A ENDDO 不带循环变量的 DO 结构 S=0 N=1 DO A= IF(A<1E-5)EXIT S=S+A N=N+1 ENDDO 执行过程的区别执行过程的区别循环体组成的区别循环体组成的区别重复语句循环变量的变化循环的控制重复语句循环变量的变化循环的控制重复语句重复语句 Fortran 90 ★★DO WHILE DO WHILE 结构的一般形式: 结构的一般形式: [ [结构名结构名:] DO WHILE :] DO WHILE ( (逻辑表达式) 逻辑表达式) 循环体循环体 END DO [ END DO [ 结构名结构名] ] 循环体 DO WHILE 判定条件 ENDDO 的下一个语句 T F执行过程执行过程相当于 DO IF ( .NOT. 逻辑表达式) EXIT 循环体 END DO 条件相反、循环体相同条件相反、循环体相同含循环变量变化语句含循环变量变化语句 Fortran 90 ?????????! !3!2 321 n x xx x n xe应用: 1、求以下公式的值: 当通项的绝对值小于 10 -10时停止累加。分析: 分析: 重复执行 S 新=S 原+通项循环变量 n为项数循环次数未知,但已知循环条件???? 0! n n xn x e通项累加和算法? 累加和算法累加和算法? ? Fortran 90 1、重复语句计算通项 A S=S+A 2 、 DO 结构的选择与写法三种循环结构循环体的区别 3、循环初值的确定:第一次循环所需要的值★循环结构编程步骤? ★★循环结构编程步骤? ? Fortran 90 用 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 ???? 0! n n xn xe通项 A的类型已知循环的条件还是次数先项数--- 分子、分母不得为零再将项数代入通项计算公式,决定通项后看累加和语句循环变量的变化条件相反、循环体相同条件相反、循环体相同阅读程序验证阅读程序验证 Fortran 90 2、求以下公式的值: S=1-1/2+1/3- ……+1/99-1/100+ …当通项的绝对值小于 10 -10时停止累加。分析: 分析: ?????? 1 11)1( n nn S 通项累加和算法——重复执行 S 新=S 原+通项 A 循环变量 n为项数循环次数未知,但已知循环条件