2.2 IF分支结构.pptVIP

2.2 IF分支结构 2.2 IF分支结构 2-1 基本程序结构 2.2 IF分支结构 2.2 IF分支结构 2.2 IF分支结构 IF（逻辑判断式） THEN … … … END IF 逻辑成立时，才会执行这里的程序代码 IF基本用法 单句执行命令时，可写为： If(speed100.) write(*,*) “Slow down” IF（逻辑判断式） THEN … … … ELSE … … … END IF 逻辑成立，执行这一块代码 逻辑不成立，执行这一块代码 双分支条件 模块内的执行语句后缩， 便于阅读和分辨 FORTRAN90 FORTRAN77 == 判断是否“相等” .EQ. /= 判断是否“不相等” .NE. 判断是否“大于” .GT. = 判断是否“大于或等于” .GE. 判断是否“小于” .LT. = 判断是否“小于或等于” . LE. 逻辑运算符号：两个数值的比较 大部分FORTRAN 77也 可以接受数学表到式 逻辑运算符号 功能 .AND. 交集，如果两边表达式成立，整个表达式成立 .OR. 并集，两边的表达式只要一个成立，整个表达式成立 .NOT. 逻辑反向，如果后面的表达式不成立，整个表达式成立 .EQV. 两边的表达式逻辑运算结果相同，整个表达式成立 .NEQV. 两边的表达式逻辑运算结果不相同，整个表达式成立 逻辑表达式之间的关系运算，集合运算符号 运算优先级低于大于小于和等式的运算符号 如：80 a90 OR “或者”，只要一边成立即为真 【.NOT.】 只跟一个表达式在后面，把原本的逻辑结果取反 (.not. 35) !35 不成立，经过.not.取反为‘真’ (.not. 12) !12成立，取反后为‘F’ 【.EQV.】 (13 .EQV. 23) !两边都不成立，表达式为真 (13 .EQV. 23) !两边结果不同，表达式为假 逻辑A 逻辑B A .EQV. B TRUE TRUE TRUE TRUE FALSE FALSE FALSE TRUE FALSE FALSE FALSE TRUE 【.NEQV.】 (13 .NEQV. 23) !两边都不成立，表达式为假 (13 .NEQV. 23) !两边结果不同，表达式为真 逻辑A 逻辑B A .NEQV. B TRUE TRUE FALSE TRUE FALSE TRUE FALSE TRUE TRUE FALSE FALSE FALSE 运算类别 运算符 优先级 括号 （ ） 1 算术运算符 ** *， / +， - 2 3 4 关系运算 .GT. , .GE., .LT., .LE. ,.EQ. , .NE. 5 集合逻辑运算 .NOT. .AND. .OR. .EQV., .NEQV. 6 7 8 9 各种运算符的优先级 A+C=6.0; B+D=5.5 A =0.0为T; A+CB+D为F .NOT. .TRUE. 为’F’ 执行.AND.， .TRUE. .AND. .FALSE.为F 执行.OR., 结果为F 例：设A=3.5, B=5.0, C=2.5, D=0.5，求表达式结果： A=0.0 .AND. A+C B+D .OR. .NOT. .TRUE. If 的括号中可以直接是一个逻辑值，逻辑变量可以通过逻辑运算赋值 IF…ELSE IF结构 可以一次列出多个条件判断及相应的多个程序模块，但是其中最多只有一个条件成立，并执行相应条件条件下的程序模块 一个条件有多个值时怎么办? 各判断条件如果重复，则会以最前面的模块被执行 IF…ELSE IF语法格式 IF(条件1) THEN ...... !条件1成立时执行本模块代码 ELSE IF(条件2) THEN ...... !条件2成立时执行本模块代码 ELSE IF(条件3) THEN ...... !条件3成立时执行本模块代码 ELSE IF(条件4) THEN ...... !条件4成立时执行本模块代码 ...... ELSE IF(条件N) THEN ...... !条件N成立时执行本模块代码 ELSE !此模块可省略 ...... !以上条件都不成立时执行本模块代码 END IF 例：判断某同学的成绩等级，90～100为A；80～89、70～79、60～69及60分以下分别为B、C、D、E 从第一判断开始， 只会执行其中的一个 满足条件下的模块， 执行后会跳到end if 注意写判断条件 时，从端点条