fortran程序设计第4章xhb

《fortran程序设计第4章xhb》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。

1、FORTRAN语言--FORTRAN77结构化程序设计第四章逻辑运算和选择结构4.1引言在第三章介绍了最简单FORTRAN程序，在程序中各语句是顺序执行的，这种程序只包括顺序结构。这种程序只能解决逻辑关系比较简单的问题。在解决数值计算和非数值计算的问题时，常常遇到这样问题：需要对给定条件作逻辑判断，根据判断的结果决定执行哪种操作。这需要用到选择结构。用块IF结构实现选择结构，其形式为：IF(条件)THENthen块ELSEelse块ENDIF[例4.1]计算职工工资。工人每小时计时工资为RATE，如果一周工作时间超过40小时，加班部分的工资按正常时间工资的1.5倍计算。CPayroll

2、withovertimePROGRAMPAYROLLREAD(*,*)RATE,HOURSIF(HOURS.GT.40.0)THENREGPAY=RATE*40.0OVTPAY=1.5*RATE*(HOURS-40.0)ELSEREGPAY=RATE*HOURSOVTPAY=0.0ENDIFPAY=REGPAY+OVTPAYPRINT*,'RATE=',RATE,'HOURS=',HOURSPRINT*,'REGULARPAY=',REGPAY,'OVERTIMEPAY=',OVTPAYPRINT*,'TOTALPAY=',PAYEND4.2关系表达式关系表达式是最简单的一种逻辑表达式

3、。<算术量><关系运算符><算术量>算术量可以是数值常数、数值型变量、数值函数，也可以是算术表达式。FORTRAN中有六个关系运算符。见下表。关系运算符英语含义数学符号.GT.GreaterThan>.GE.GreaterthanorEqualto≥.LT.LessThan<.LE.LessthanorEqualto≤.EQ.EQualto=.NE.NotEqualto≠关系表达式示例：关系表达式数学式子A.GT.3.5A>3.5A+B.LE.0.0A+B≤0SIN(X).GE.0.5SIN(X)≥0.5A-B.NE.C+DA-B≠C+DI.LT.J/2I

4、达式是最简单的逻辑表达式。关系表达式代表“简单条件”，如X.GT.0.0代表X>0。但遇到一些比较复杂条件，如0≤X<5，是0≤X和X<5两个简单条件的组合，可以把它看作一个复合条件。可以写成以下逻辑表达式：X.GE.0.0.AND.X.LT.5.0所谓逻辑表达式是对逻辑量进行逻辑运算的表达式。逻辑表达式的形式：<逻辑量><逻辑运算符><逻辑量>FORTRAN77的逻辑量：逻辑常量逻辑型变量关系表达式逻辑表达式的值是一个逻辑值，它不是真便是假。4.3.1逻辑常量逻辑常量只有两个：.TRUE..FALSE.例如，当X=3时X.LT.5的值为.TRUE.，而X.LE.0.0的值为.FALS

5、E.。逻辑常量可以在程序中出现，可以将它们赋给逻辑型变量。逻辑常量又称逻辑常数，它的性质与其它类型的常量相类似，代表一个常值。4.3.2逻辑型变量逻辑型变量存放逻辑常量。它的值也只能是.TRUE.或.FALSE.之一。可以将一逻辑常量赋予一个逻辑变量。假定A，B已被定义为逻辑型变量，则可以用赋值语句对它们赋值：A=.TRUE.B=.FALSE.这种赋值语句称为逻辑赋值语句。它的一般形式为：逻辑变量=逻辑表达式程序中对每一个逻辑变量都应加以说明，可用LOGICAL语句，如：LOGICALA,B4.3.3逻辑运算符逻辑运算符含义逻辑运算举例.AND.逻辑与A.AND.B.OR.逻辑或A.O

6、R.B.NOT.逻辑非.NOT.A.EQV.逻辑等A.EQV.B.NEQV.逻辑不等A.NEQV.B逻辑表达式示例:(A.LT.B).AND.(A.GT.C)(X.LT.0.0).OR.(X.GT.100.0)NOT.(X.LE.0.0)(A.GT.B).EQV.(C.GT.D)L1.NEQV.L24.3.4逻辑表达式的运算次序一个逻辑表达式中可以包括多个逻辑运算符。即多个逻辑量经过逻辑运算后可以得到一个逻辑值。例如以下逻辑表达式：A.LE.0.0.AND.A+C.GT.B+D.OR..NOT..TRUE.FORTRAN77规定按以下次序进行运算：先计算算术表达式的值再求关系表达式的值

7、最后进行逻辑运算运算类型运算符优先级括号()1算术运算**2*/3+-4关系运算.GT..GE..LT.5.LE..EQ..NE.逻辑运算.NOT.6.AND.7.OR.8.EQV.,.NEQV.94.4用块IF实现选择结构4.4.1块IF的组成块IF的形式：IF(逻辑表达式)THEN块1ELSE块2ENDIF4.4.2块IF的执行过程若逻辑表达式的值为真，则执行块1，否则执行块2。4.4.3块IF的嵌套[例4.2]学生考试成绩，大于等于80分