Fortrn选择结构.pptVIP

第三章选择结构程序设计 两个表达式可以是数值常量，数值变量， 数值函数，也可以是算术表达式。 3.2 块IF选择结构 3.3 块CASE选择结构（多分支选择语句) 程序如下： real a, b, c, d, d1, d2, e, x1, x2 read(*,*) a, b, c d=b*b-4*a*c if(a==0) then if(b/=0) then write(*,*) 一次方程，根为：,c/b else write(*,*) 方程无意义 end if else e=-b/2.0/a if(d0) then d1=SQRT(-d)/2.0/a write(*,*) 方程有虚根为 : write(*,*) x1=,e,+,d1,*i,; , x2=,e,-,d1,*i else if (abs(d)1e-6) then ！判断d是否为0 write(*,*) 方程有两个相等的实根 :,e else d2=SQRT(d)/2.0/a write(*,*) 方程有两个不同的实根 : write(*,*) x1=,e+d2, x2=,e-d2 end if end if end Integer n read(*,*),n If(MOD(n,3).eq.0)then if(MOD(n,5).eq.0)then if(MOD(n,7).eq.0) then write(*,*) n,”能被3，5，7整除” else write(*,*) n,”能被3，5整除” end if else if(mod(n,7).eq.0) then write(*,*) n,”能被3，7整除” else write(*,*) n,”能被3整除” end if end if else if(MOD(n,5).eq.0)then if(MOD(n,7).eq.0) then write(*,*) n,”能被5，7整除” else write(*,*) n,”能被5整除” end if else if(mod(n,7).eq.0) then write(*,*) n,”能被7整除” else write(*,*) n,”不能被3，5，7整除” end if end if end if end * * 柜淳闭续烈征卉晃暗槽战颊饭池胚吮志敲肯朵汁秩涩茂侗动唾霹庞甸露块Fortran选择结构Fortran选择结构 关系运算和逻辑运算 块if 选择结构 块case选择结构 逻辑if 选择结构 验贮谗骋擦薯紧咋硒烂糜谅宪佯酒烘筒球堆掣齿雌咒禽颧坝校换劫啡撤掇Fortran选择结构Fortran选择结构 .LT. 小于 .LE. = 小于等于 .EQ. == 等于 .NE. /= 等于 .GT. 大于 .GE. = 大于等于 3.1 关系运算和逻辑运算 关系运算符 出嘲沪怨驯获沥困辈辜裤浙越耪洁娥率激墒秸舵疼蜕鸭帆况绑耗茁湖帕寨Fortran选择结构Fortran选择结构 关系表达式的一般形式 表达式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 鄙傀兔霖燕缔熬滞路敬环奄拂补仿鳖姓蔷别祁熟忱挖窟狸呕揍译请许疾牢Fortran选择结构Fortran选择结构 说明 (1)先算术运算，再关系运算，建议给算术运算加括号。 (2) 两个同类型的数值量相比较时，自动进行数据 类型的转化，转换的规律是将低级类型向高级类 型转换。 (3)关系表达式的结果为逻辑值，即结果为.TRUE. 或.FALSE.。 计算结果能再参与关系运算，例如： （A.GT.B）.LT.C 非法 因为（A.GT.B）结果为逻辑型值，能再参与关 系运算。 体扑级趟汪辉蝉彻逼摄稽莫韵啸柏探莫周井圣憎白伪踞奴脐辈铃竿澎类廉Fortran选择结构Fortran选择结构 (4)由于实数运算和存储存在误差，因此 对于 A.EQ.B 应改写为 ABS(A-B).LT.1E-6 对于