fortrn第4章(条件).ppt

　　　第四章　逻辑运算和选择结构 4.1 关系表达式 4.2 逻辑表达式 4.3 逻辑IF语句 4.4 分块条件语句 4.5 块IF构造 4.6 多重选择和CASE构造 3.当两个算术关系表达式的数据类型不相同时,求值 过程为: 将两个算术表达式化为同一类型然后比较. 转换规律是将低级类型向高级类型转换。因此，执行关系表达式的过程为：算出算术表达式的值；将两个算术表达式值转换成同一类型；将两个表达式的值进行比较。 4.3 逻辑表达式 逻辑同.EQV.(逻辑等值) 例:3.5.LE.10.0.EQV.20.0.LT.15.0 其值为假 3.5.LE.10.0.EQV.20.0.GE.15.0 其值为真 逻辑表达式中包含算术运算符、关系运算符和逻 辑运算符，它们的运算优先次序如下表： 例1：若A=1.5,B=2.0,C=1.2,X=3.0,Y=5.0,L1为真，有逻辑表达式 A.GT.3.6*B.AND.X.EQ.Y.OR.L1.AND..NOT.(3.6-C)*2.GE.D/2.5 例2: 已知 A=.FALSE. , B=.FALSE. , C=.FALSE. , X=11.5, Y=1.6 , Z=41.5 X.LT.Y.OR.X+Y.GT.Z.AND..NOT.(A.EQV.B.OR.C) 4.5 块IF条件语句 块IF的一般形式可写成： IF(逻辑表达式) THEN ← 块IF语句 块1 ← then块 ELSE 块2 ← else块 END IF 例: 有一折线其关系为: Y= 2X+3 (X≤2) X+5 (X2) 见图,要求输入一个X值,打印一个相应的Y值. 块IF语句嵌套 对于稍微复杂的问题,往往在某种条件判定后,仍需进一步判定,然后决定接下去该做什么,这种多层判定称为嵌套的判定语句.简单嵌套结构如下: IF (e1) THEN IF (e2) THEN 外 内 : ENDIF : ENDIF 在嵌套程序中找出对应的块IF,ELSE,ENDIF语句的方法: 1. 从最内层的块IF语句开始,找离它最近的ENDIF语 句,将其用线括起来,在两语句之间的ELSE语句必属 于这一层的块IF. 2. 由内向外重复上述过程直到遇到最外层的块IF语句 和ENDIF语句为止. 例:编制二次方程求根的程序. 分析: AX2+BX+C=0 的判别式为: D=B2-4AC A=0,B=0 则 C=0 A=0,B 0 则 X=-C/B A 0,D0 则 有二复根 X1+iX2 和 X1-iX2 A 0,D=0 则 有两相等的根 -B/2A A 0,D0 则 有两实根 例:编制二次方程求根的程序. PROGRAM EQUATE READ *,A,B,C PRINT *,’COEFFICIENTS ARE’,A,B,C IF (A·EQ·0.0) THEN IF (B·EQ·0.0) THEN PRINT *,’EQUATION HAS THE FORM’,C,’＝0.0’ ELSE PRINT *,’NOT QUADRATIC EQUATION ROOT IS’,-C／B ENDIF ELSE PART1＝-B/(2.0*A) TEMP＝B*B-4.0*A*C PART2＝SQRT(ABS(TEMP))/(2.0*A) IF (TEMP·LT·0.0) THEN PRINT *,’COMPLEX ROOTS’,PART1,’+I’,PART2,’ ′,PART1,’-I’,PAR