第三章结构化程序设计.ppt

* 执行过程: 先计算E1、E2、E3的值，然后转换为与循环控制变量相同的类型； 给循环控制变量赋初值 I = E1； 计算循环次数，计算公式为： R = MAX ( INT ( ( E2 - E1 + E3 ) / E3 )，0 ) 检查循环次数，当R ? 0时，执行循环体，继续做第(3)步；当 R≤0时，转向(7)； 当执行到循环终端语句时，循环变量按步长增值，即：循环变量 = 循环变量 + E3； 循环次数减1：R = R – 1 ；返回 (4) 继续执行。 循环结束。 重点： 循环的次数：R = MAX ( INT ( ( E2 - E1 + E3 ) / E3 )，0 ) * 执行过程: 先计算E1、E2、E3的值，然后转换为与循环控制变量相同的类型； 给循环控制变量赋初值 I = E1； 计算循环次数，计算公式为： R = MAX ( INT ( ( E2 - E1 + E3 ) / E3 )，0 ) 检查循环次数，当R ? 0时，执行循环体，继续做第(3)步；当 R≤0时，转向(7)； 当执行到循环终端语句时，循环变量按步长增值，即：循环变量 = 循环变量 + E3； 循环次数减1：R = R – 1 ；返回 (4) 继续执行。 循环结束。 重点： 循环的次数：R = MAX ( INT ( ( E2 - E1 + E3 ) / E3 )，0 ) * 嵌套DO循环的说明 三种DO循环都可以相互嵌套。但在嵌套时，循环必须完整地嵌套。 循环嵌套时，内、外层不能使用相同的循环变量。而并列的循环结构可以使用相同的循环变量。 在执行嵌套的循环时，可以将执行控制从循环体内转到本循环体内某个位置，或DO结构以外。但不能从DO结构外转到循环体内，也不能从外循环体转到内循环体。 DO循环结构可以与块IF结构和CASE块互相嵌套，但无论何种嵌套，都必须进行完整嵌套。当块IF结构中嵌套DO结构时，DO结构应完整地嵌套在THEN块、ELSE块或ELSEIF块中。当CASE结构中嵌套DO循环时，DO结构也应完整的嵌套在某个CASE块中 * 执行过程: 先计算E1、E2、E3的值，然后转换为与循环控制变量相同的类型； 给循环控制变量赋初值 I = E1； 计算循环次数，计算公式为： R = MAX ( INT ( ( E2 - E1 + E3 ) / E3 )，0 ) 检查循环次数，当R ? 0时，执行循环体，继续做第(3)步；当 R≤0时，转向(7)； 当执行到循环终端语句时，循环变量按步长增值，即：循环变量 = 循环变量 + E3； 循环次数减1：R = R – 1 ；返回 (4) 继续执行。 循环结束。 重点： 循环的次数：R = MAX ( INT ( ( E2 - E1 + E3 ) / E3 )，0 ) 见书本137页 * 思考不用if块处理，只用write(mo(1:2),’i2’)im语句，会出现什么问题。 TRIM(string)，返回把string字符串尾端多余空格清除过后的字符串，即消除右端多余空格。 * * 执行过程： 当逻辑表达式为真时，中止正在执行的循环体的剩余语句，将控制转到循环体的开始重新循环；当逻辑表达式为假时，继续正在执行的循环，不进行任何转移。 【例3-13】顺序输出1-10序列中除了9以外的其它数字 do i=1,10 if(i==9) cycle print *, i enddo end 运行结果 * 3.3.3 循环语句的嵌套 ? DO循环结构嵌套的一般格式为： [ 结构名1：] DO V1=E11,E12,E13 [其它循环体] [ 结构名2：] DO V2=E21,E22,E23 内部循环体 ENDDO [ 结构名2 ] [其它循环体] ENDDO [ 结构名1 ] 【例3-13】 do j=1,2 print *, 第,j,次外循环开始 print *, **** do i=1,3 print *, 第,(j-1)*3+i,次内循环 enddo print *, 第,j,次外循环结束 print *, **** enddo end 运行结果 * 循环嵌套执行的过程 计算外层循环次数R1，I赋初值 R10 计算内层循环次数R2，J赋初值 R20 执行内层循环体 J=J＋内层循环步长 R2＝ R2－1 I=I＋外层循环步长 R1＝ R1－1 * 循环嵌套循环的次数： 外层循环的次数为：R1 内层循环的次数为：R2 整个循环的次数为：R R=R1*R2 * 计算循环嵌套循环次数： M=0 DO