营销Fortran逻辑运算和选择结构.pptVIP

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(*,*) grade if(grade.le.60.) then write(*,*) ‘D else if(grade.le.70.) then write(*,*) ‘C else if(grade.le.80.) then write(*,*) ‘B else write(*,*) ‘A 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语句 逻辑IF语句只有“条件为真”时才有操作，为“假”时不进行任何操作，且条件为“真”时只能执行一条执行语句，而后不论“真”或“假”，都接着执行逻辑IF语句的下一条语句。逻辑IF语句又称行IF语句。 如果在块IF结构中else块空块，而then块只有一条语句，则用逻辑IF语句比较方便。 if(x.lt.60.0) then write(*,*) grade end if end if(x.lt.60.0) write(*,*) grade 因为不论“真”或“假”，都接着执行逻辑IF语句的下一条语句,故逻辑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 read(*,*) grade if(grade.ge.80.) write(*,*) A if(grade.ge.70.) write(*,*) B if(grade.ge.60.) write(*,*) C write(*,*) D end C 单价850，100以上95折优惠，求货款。 price=850 read(*,*) n if(n.ge.100) price=price*0.95 amount=n*price write(*,*) n=,n, amount=,amount end * * 第一章 算法 第二章 计算机和计算机程序 第四章 逻辑运算和选择结构 第五章 循环结构的实现 第六章 Fortran的数据结构 第七章 数据的输入、输出 第三章 Fortran语言程序设计初步 一、引言 在FORTRAN77中，用块IF结构来实现选择结构， 其形式为： IF（条件）THEN then 块 ELSE else 块 END IF 例：计算职工工资。正常工资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=, o