Fortran选择结构.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