FORTRAN90第二章_选择结构程序设计程序.ppt

§2.4 选择结构程序设计举例 例:输入一个整数,如果能被7整除则输出“YES”,否则输出“NO”。 logical l integer k read*,k l=mod(k,7)==0 if(l)then print*,yes else print*,no endif end 例：打印学生成绩等级 implicit none real g select case(int(g)) case(90:100) print*, ’a’ case(80:89) print*, ’b’ case(70:79) print*, ’c’ case(60:69) print*, ’d’ case(:59) print*, ’e’ case default print*, ’输入有错’ end select end 程序设计语言 授课教师: 范兴朗 E-mail: xinglangfan@zjut.edu.cn §2.1 关系表达式与逻辑表达式 §2 选择结构程序设计 §2.2 块IF结构与IF语句 §2.3 CASE结构 §2.4 选择结构程序设计举例 §2.5 小结 §2.1关系表达式与逻辑表达式 算法中经常要根据某种逻辑判断的结果来决定下一个步骤应该做什么。这就是带分支选择的算法。选择结构是结构化算法中一种基本结构。 实现选择结构的前提是进行关系运算和逻辑判断。 §2.1.1 关系表达式 算术量a与b之间存在六种关系: ab a≥b a≠b a=b a≤b ab fortran用六种关系运算符表示它们: (.gt.)表示 =(.ge.)表示≥ /=(.ne.)表示≠ ==(.eq.)表示= =(.le.)表示≤ (.lt.)表示 ()中是早期版本的写法,不提倡使用。 格式: E1关系运算符 E2 E1与E2为算术量或字符型的量 关系表达式的值是逻辑量:真或假 算术运算符的优先级别高于关系运算符: 3+5.gt.sqrt(49.0)-3 =8.gt.4,真 实数的运算与存储都有误差,对实数进行==或/=运算时要特别当心。一般用两者之差的绝对值作为判断的依据。 用abs(a-b)1e-6来代替a==b 用abs(a-b)1e-6来代替a/=b 对于整型数,可直接用==,/=来判断. §2.1.2 逻辑表达式 逻辑型变量:可以将关系表达式的结果赋值给一个变量,该变量的值只能是真或假,类型是逻辑型 logical a,b,l1 a=3+5.gt.sqrt(49.0)-3 逻辑赋值语句 fortran用五种逻辑运算符表示布尔运算: .not.逻辑非 .and.逻辑与 .or.逻辑或 .eqv.逻辑等 .neqv.逻辑不等 .neqv.也可用 .xor.表示。 布尔运算按照数学上的规定进行。要在理解的基础上掌握逻辑运算的“真值表” 判断几个条件是否同时满足,数学上可以用布尔运算,fortran用逻辑表达式表示。 逻辑表达式的格式: E1逻辑运算符 E2 E1与E2为逻辑型的量,可以是: 逻辑变量、逻辑常量、关系表达式、逻辑表达式、整型量 逻辑表达式运算次序: 括号函数算术表达式关系表达式逻辑运算 同一级别的运算,从左至右进行 逻辑运算符优先级别: .NOT.高于.AND.高于.OR.高于.EQV.和 .NEQV. 逻辑表达式的值也是逻辑量:真或假 当逻辑运算符作用于整型量时,执行整数的按位操作,结果是一个整数而不是逻辑型数据。 3.XOR.5=6 3.and.5 = 5 3.or.5=7 五种逻辑运算符中,逻辑非、逻辑与、逻辑或是基本的。其它两种可以由它们组合得到,例如:ａ.eqv.b 等价于(注意逻辑运算符两边小圆点) a.and.b .or. .not.a.and..not.b ａ.neqv.b 等价于 a.and..not.b .or. .not.a.and.b 关系表达式不可连写:ＡB≤C 不能写成 A.LT.B.LE.C 须用逻辑表达式A.LT.B.AND.B.LE.C §2.2块IF结构与IF语句 FORTRAN 90有三种方法实现选择结构:IF语句、块IF结构和CASE结构。 §4.2.1逻辑IF语句 §4.2.2 块IF结构 §2.2.1 逻辑IF语句 逻辑IF语句也称为行IF语句。 格式: IF (E) 可执行语句 例:if(x0) print *, x if(x0.and.y0) print *,‘第一象限’ 逻辑IF语句本身仅仅是一条语句,当条件为真时,也只执行一条语句,而不