Fortran第4章讲诉.ppt

FORTRAN语言及程序设计 计算机中心 楚红 2012.10 Visual Fortran 90 程序设计 选择结构 顺序结构 选择结构 4.1 关系表达式 4.2逻辑表达式——表示复杂的条件 4.3逻辑IF语句 4.4 块IF结构 应用 PROGRAM MAIN INTEGER::N READ*,N IF(MOD(N,2)==0)THEN PRINT*,N,’是偶数’ ELSE PRINT*,N,’是奇数’ ENDIF END 4.5 多分支结构 方法2：逐次二分，转化为块IF结构，块IF结构嵌套 边画N-S图，边写程序 注： 从一头顺序二分 缩进对齐写法 或 带名写法（第61页） 利用else含义：条件不要重复 静态调试（阅读技巧） READ*,X IF(X=80)THEN PRINT*,’A’ ELSE IF(X=70)THEN PRINT*,’B’ ELSE IF(X=60)THEN PRINT*,’C’ ELSE PRINT*,’D’ ENDIF ENDIF ENDIF 块IF结构的命名 READ*,X F=X**2-16 IF(F0)THEN G=1+EXP(X+1) ELSEIF(F0)THEN G=0 ELSE G=SQRT(X**3)+25 ENDIF Y=F+G 4.5 CASE结构 几点说明 4.5.2.CASE结构的执行过程 4.5.3 CASE结构的命名 4.6 程序设计举例 块IF结构取名的一般格式为： 块IF结构名：IF( E ) THEN BLOCK1 ELSE [块IF结构名] BLOCK2 ENDIF [块IF结构名] 注意： (1)??? 块IF结构取名时，将名字写在IF-THEN语句的前面，与IF-THEN语句用冒号分割； (2)??? ENDIF的后面应写上块IF结构名，并用空格分开； (3)??? ELSE语句后的块IF结构名可以省略，如果不省略，ELSE语句与块IF结构名之间用空格分开； (4)??? IF-THEN语句、ELSE语句和ENDIF语句中的块IF结构名应一致。 方法3：将之简写为Else IF——多重条件的IF结构 READ*,X IF(X=80)THEN PRINT*,’A’ ELSEIF(X=70)THEN PRINT*,’B’ ELSEIF(X=60)THEN PRINT*,’C’ ELSE PRINT*,’D’ ENDIF 注： Else IF无ENDIF匹配 以前面所讲的判断学生成绩等级为例，编写出相应的程序。设学生成绩为整型变量，成绩等级为字符型变量： PROGRAM DJ IMPLICIT NONE INTEGER :: X CHARACTER(LEN=1)::GRADE READ*,X IF (X = 80) THEN GRADE = ’A’ ELSE IF (X =70) THEN GRADE = ’B’ ELSE IF (X = 60) THEN GRADE = ’C’ ELSE GRADE = ’D’ END IF PRINT *, ’X = ’,X, ’GRADE = ’, GRADE END Else IF一般结构: IF（e1）THEN block1 ELSEIF（e2）then block2 ELSEIF（e3）then block3 -------- [ELSE