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

23 av3=(r13+r23+r33)/324 av4=(r14+r24+r34)/325 av5=(r15+r25+r35)/326 WRITE(*,“(26X,‘5月 6月 7月 8月 9月 总雨量 平均雨量’)”)27 WRITE(*,200)‘江阴气象站五个月的雨量:’, r11,r12,r13,r14,r15,total11,av1128 WRITE(*,200)‘定波闸气象站五个月的雨量:’, r21,r22,r23,r24,r25,total21,av2129 WRITE(*,200)‘肖山气象站五个月的雨量:’, r31,r32,r33,r34,r35,total31,av3130 200 FORMAT(1X,A22,5(F5.1,2X),F6.1,2X,F7.3)  program ex0308 real u,v read *, u,v if(u0.0) then if (v0.0) then !u0,v0 print *, 西南风 else if (v0.0) then ! u0, v0 print *, 西北风‘ else ! u0,v=0 print *, 西风 end if else if (u0.0) then if (v0.0) then !u0,v0 print *, 东南风 else if (v0.0) then ! u0, v0 print *, 东北风 else ! u0,v=0 print *, 东风‘ end if * 执行过程: 先计算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字符串尾