Fortran选择结构.pptVIP

第三章选择结构程序设计 关系运算和逻辑运算 块if 选择结构 块case选择结构 逻辑if 选择结构 * .LT. 小于 .LE. = 小于等于 .EQ. == 等于 .NE. /= 不等于 .GT. 大于 .GE. = 大于等于 3.1 关系运算和逻辑运算 关系运算符 * 两个表达式可以是数值常量，数值变量， 数值函数，也可以是算术表达式。 关系表达式的一般形式 表达式1 关系运算符 表达式2 例如： A.GE.B MOD(M,2).EQ.1 A-B/=C-D X+Y+Z == 0.0 AB/3.0 SIN(X)0.3 * 说明 (1)先算术运算，再关系运算，建议给算术运算加括号。 (2) 两个不同类型的数值量相比较时，自动进行数据 类型的转化，转换的规律是将低级类型向高级类 型转换。 (3)关系表达式的结果为逻辑值，即结果为.TRUE. 或.FALSE.。 计算结果不能再参与关系运算，例如： （A.GT.B）.LT.C 非法 因为（A.GT.B）结果为逻辑型值，不能再参与关 系运算。 * (4)由于实数运算和存储存在误差，因此 对于 A.EQ.B 应改写为 ABS(A-B).LT.1E-6 对于 A.NE.B 应改写为 ABS(A-B).GT.1E-6 (5)字符关系表达式，将两个字符量进行比较。 * 逻辑运 算符 含义 逻辑运 算例子 例子含义 .AND. 逻辑与 A.AND.B A,B同时为.TRUE.时结果为真 .OR. 逻辑或 A.OR.B A,B之一为.TRUE.时结果为真 .NOT. 逻辑非 .NOT.A A为.TRUE.时，结果为假 .EQV. 逻辑等 A.EQV.B A,B为同一逻辑常量.时，结果为真 .NEQV. 逻辑不等 A.NEQV.B A,B为不同逻辑常量值时，结果为真 逻辑运算 逻辑表达式的值是 .TRUE. .FALSE. 逻辑运算符 * 逻辑量有三种：逻辑常量、逻辑型变量、关系表达式 (1)逻辑常量：.TRUE. .FALSE. 例如：当A=10 A3的值为 .TRUE. (2)逻辑型变量： LOGICAL L1,L2,L3,L4,L5 REAL A,B,C L1=.TRUE. L2=( B*B-4*A*C = 0 ) L3=(A==0) L4=(L1.AND.(.NOT.L2)).OR . L3 逻辑表达式形式：逻辑量逻辑运算符逻辑量 * 运算类别 运算符 优先级 括号 （ ） 1 算术运算 ** * / + － 2 3 4 关系运算 .GT. .LT . .GE. .LE. .EQ. .NE. 5 逻辑运算 .NOT. .AND. .OR. .EQV. .NEQV. 6 7 8 9 逻辑表达式的运算次序（运算符的优先级别） * 注意： 1.关系运算符的运算对象是数值量，运算结果是逻辑量 2.逻辑运算符的运算对象是逻辑量，运算结果是逻辑量 3.一个算术运算量只能和一个关系运算符相连 如：数学上 ABCD 不能写成：A .LT.B .LT.C .LT.D 应写成：(A .LT.B).AND.(B .LT.C).AND.(C .LT.D) 4.除 .AND..NOT 和 .OR ..NOT.外，其他任意两个逻辑 运算符不能连用 * 3.2 块IF选择结构 IF (G60) THEN WRITE(*,*) “不及格” ELSE WRITE(*,*) “及格” END IF 块IF结构有三种形式 （1） IF (逻辑表达式) THEN 块1 ELSE 块2 END IF 逻辑表达式 块1 块2 T F * IF (G60) THEN WRITE(*,*) “不及格” ENDIF (2)单分支块IF结构 IF (逻辑表达式) THEN 块 ENDIF 逻辑表达式 块 T F * IF (G60) THEN WRITE(*,*) “不及格” ELSE IF(G=60.and.G90) THEN WRITE(*,*) “及格” ELSE WRITE(*,*) “优秀” ENDIF （3）多分支结构 IF (逻辑表达式1) THEN 块1 ELSE IF(逻辑表达式2) THEN 块2