fortran程序设计..第4章.ppt

FORTRAN语言--FORTRAN 77结构化程序设计 第四章 逻辑运算和选择结构4.1 引言 在第三章介绍了最简单FORTRAN程序，在程序中各语句是顺序执行的，这种程序只包括顺序结构。这种程序只能解决逻辑关系比较简单的问题。在解决数值计算和非数值计算的问题时，常常遇到这样问题：需要对给定条件作逻辑判断，根据判断的结果决定执行哪种操作。这需要用到选择结构。 用块IF结构实现选择结构，其形式为： IF (条件) THEN then块 ELSE else块 END IF [例4.1]计算职工工资。工人每小时计时工资为RATE，如果一周工作时间超过40小时，加班部分的工资按正常时间工资的1.5倍计算。 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 PRINT *, RATE=, RATE, HOURS=, HOURS PRINT *, REGULAR PAY=, REGPAY, OVERTIME PAY=, OVTPAY PRINT *, TOTAL PAY=, PAY END 4.2 关系表达式 关系表达式是最简单的一种逻辑表达式。 算术量 关系运算符 算术量 算术量可以是数值常数、数值型变量、数值函数，也可以是算术表达式。 FORTRAN中有六个关系运算符。见下表。 关系运算符 英语含义 数学符号 .GT. Greater Than .GE. Greater than or Equal to ≥ .LT. Less Than .LE. Less than or Equal to ≤ .EQ. EQual to = .NE. Not Equal to ≠ 关系表达式示例： 关系表达式 数学式子 A .GT. 3.5 A3.5 A+B .LE. 0.0 A+B≤0 SIN(X) .GE. 0.5 SIN(X)≥0.5 A-B .NE. C+D A-B≠C+D I .LT. J/2 IJ/2 4.3 逻辑表达式 关系表达式是最简单的逻辑表达式。关系表达式代表 “简单条件”，如X .GT. 0.0代表X0。但遇到一些比较复杂条件，如0≤X5，是0≤X和X5两个简单条件的组合，可以把它看作一个复合条件。可以写成以下逻辑表达式： X .GE. 0.0 .AND. X .LT. 5.0 所谓逻辑表达式是对逻辑量进行逻辑运算的表达式。逻辑表达式的形式： 逻辑量 逻辑运算符 逻辑量 FORTRAN 77的逻辑量： 逻辑常量 逻辑型变量 关系表达式 逻辑表达式的值是一个逻辑值，它不是真便是假。 4.3.1 逻辑常量 逻辑常量只有两个： .TRUE. .FALSE. 例如，当X=3时 X .LT. 5 的值为.TRUE.，而 X .LE. 0.0 的值为.FALSE.。 逻辑常量可以在程序中出现，可以将它们赋给逻辑型变量。逻辑常量又称逻辑常数，它的性质与其它类型的常量相类似，代表一个常值。 4.3.2 逻辑型变量 逻辑型变量存放逻辑常量。它的值也只能是.TRUE.或.FALSE.之一。 可以将一逻辑常量赋予一个逻辑变量。假定A，B已被定义为逻辑型变量，则可以用赋值语句对它们赋值： A=.TRUE. B=.FALSE. 这种赋值语句称为逻辑赋值语句。它的一般形式为： 逻辑变量=逻辑表达式 程序中对每一个逻辑变量都应加以说明，可用LOGICAL语句，如： LOGICAL A, B 4.3.3 逻辑运算符 逻辑运算符 含义 逻辑运算举例 .AND. 逻辑与 A .AND. B .OR. 逻辑或 A .OR. B .NO