《fortran逻辑运算和选择结构4.ppt

* * * 第八章 常用算法的程序设计举例 第一章 算法 第二章 计算机和计算机程序 第四章 逻辑运算和选择结构 第五章 循环结构的实现 第六章 Fortran的数据结构 第七章 数据的输入、输出 第三章 Fortran语言程序设计初步 Evaluation only. Created with Aspose.Slides for .NET 3.5 Client Profile 5.2.0.0. Copyright 2004-2011 Aspose Pty Ltd. 一、引言 在FORTRAN77中，用块IF结构来实现选择结构， 其形式为： IF（条件）THEN then 块 ELSE else 块 END IF Evaluation only. Created with Aspose.Slides for .NET 3.5 Client Profile 5.2.0.0. Copyright 2004-2011 Aspose Pty Ltd. 例：计算职工工资。正常工资rate (yuan/h)，一周超过40 hours时，超过部分按1.5 rate (yuan/h) 。 Evaluation only. Created with Aspose.Slides for .NET 3.5 Client Profile 5.2.0.0. Copyright 2004-2011 Aspose Pty Ltd. 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 Evaluation only. Created with Aspose.Slides for .NET 3.5 Client Profile 5.2.0.0. Copyright 2004-2011 Aspose Pty Ltd. 二、关系表达式 关系表达式是最简单的一种逻辑表达式。 其一般形式为： 算术量 关系运算符 算术量 算术量：数值常数、数值型变量、数值函数、算术表达式。 关系运算符：关系比较符。 FORTRAN中有六种关系运算符 Evaluation only. Created with Aspose.Slides for .NET 3.5 Client Profile 5.2.0.0. Copyright 2004-2011 Aspose Pty Ltd. Evaluation only. Created with Aspose.Slides for .NET 3.5 Client Profile 5.2.0.0. Copyright 2004-2011 Aspose Pty Ltd. 几点注意： 1. 关系运算符字母两侧各有一个句点，不要漏写。 2. 在一个关系表达式中可能包括算术运算符和关系运算符，先进行算术运算，然后进行关系运算。（建议加括号） i+j.ne.m+n 相当于 (i+j).ne.(m+n) 3. 不同类型常变量比较时，遵循低级向高级转化规律。 X.GT.3 4.关系表达式的值不是一个数值，而是逻辑量“真”或“假”。 5.判断实数相等和不等，用.EQ.和.NE.时要特别注意。 （1.0/3.0+1.0/3.0+1.0/3.0）.EQ. 1.0 （10.0*0.1）.NE. 1.0 A.EQ.B 可改为 ABS（A-B）.LT.1E-6 C.NE.D 可改为 ABS（C-D）.GT.1E-6 Evaluation only. Created with Aspose.Slides for .NET 3.5 Client Profile 5.2.0.0. Copyright 2004-2011 Aspose Pty Ltd. 三、逻辑表达式 1. 逻辑常量 FORTRAN只有两个逻辑常量 .TRUE. 表示“真”，即满足逻辑条件 .FALSE. 表示“假”，即不满足逻辑条件