Fortran逻辑运算及选择结构.ppt

第八章 常用算法的程序设计举例;一、引言; 例：计算职工工资。正常工资rate (yuan/h)，一周超过40 hours时，超过部分按1.5 rate (yuan/h) 。;c Payroll with overtime program payroll read(*,*) rate, hours if(hours.gt.40.0) then regpay=rate*40.0 ovtpay=1.5*rate*(hours-40.0) else regpay=rate*hours ovtpay=0.0 end if pay=regpay+ovtpay write(*,*) rate=, rate, hours=, hours write(*,*) regular pay=, regpay, overtime pay=, ovtpay write(*,*) total pay=, pay end ;二、关系表达式;; 几点注意：;三、逻辑表达式;3. 逻辑运算符;4. 逻辑表达式;例如，A=3.5, B=5.0, C=2.5, D=1.0;算术运算符的运算对象是数值量，运算结果为数值。 关系运算符的运算对象是数值量，运算结果为逻辑量。 逻辑运算符的运算对象是逻辑量，运算结果仍为逻辑量。;四、用块IF实现选择结构;3. 一个块IF可以不包含ELSE语句和else块，???可以不包含then块。; read(*,*) grade if(grade.ge.60.) then if(grade.ge.70.) then if(grade.ge.80.) then write(*,*) A else write(*,*) B end if else write(*,*) C end if else write(*,*) D end if end;给a, b, c三个数排序，要求从小到大输出; read(*,*) a,b,c if(a.le.b) then else t=a a=b b=t end if if(b.le.c) then else t=b b=c c=t if(a.le.b) then else t=a a=b b=t end if end if write(*,*) a,b,c end;五、ELSE IF 语句; read(*,*) grade if(grade.ge.60.) then if(grade.ge.70.) then if(grade.ge.80.) then write(*,*) A else write(*,*) B end if else write(*,*) C end if else write(*,*) D end if end;几点说明：; read(*,*) grade if(grade.ge.80.) then write(*,*) A else if(grade.ge.70.) then write(*,*) B else if(grade.ge.60.) then write(*,*) C else write(*,*) D end if end; read(*,*) x if(x.lt.-10.0) then y=0.0 else if(x.lt.0.0) then y=2.0*x+20.0 else if(x.lt.20.0) then y=20.0 else if(x.lt.40.0) then y=30.0-0.5*x else if(x.lt.50.0) then y=50.0-x else y=0.0 end if write(*,*) y=,y end;六、逻辑IF语句; read(*,*) grade if(grade.ge.80.) write(*,*) A if(grade.ge.70..and.grade.lt.80.) write(*,*) B if(grade.ge.60..and.grade.lt.70.) write(*,*) C if(grade.lt.60.) write(*,*) D end;C 单价850，1