FORTRAN教案

变量之间用逗号隔开，例如： READ*，X，Y，Z

其中，READ后面的“*”号表示“表控输入”，语句含义是从系统隐含指定的输入设备上（一般为键盘）读入3个实型数据分别给X、Y、和Z。

表控输入也可以写为：READ（*，*）变量表，其中第一个*表示“系统隐含指定的输入设备”，第二个*是指“表控输入”。

表控输入语句使用注意：

（1）在输入数据时，如果只输入一个数据，则直接输入，再按回车键即可。但当输入多个数据时，数据之间必须分隔，分隔方法有两种：一种是每输入一个数据，键入一个回车，即一个数据作为一行。另一种方法是在一行输入数据，但数据之间用分隔符隔开，允许的分隔符号有空格、逗号和斜杠。两个数据之间空格可以有多个，但逗号只能有一个，多个逗号意味着对某些变量输入空数据，即不输入数据。例如：

READ*，S1，S2，S3

输入方式为：1.2 2.5 3.45或1.2，2.3，3.45再回车，还可以每输入一个数据一个回车。 （2）如果输入数据少于变量个数，则计算机将等待继续输入，如果数据多于变量个数，则多余的数据不起作用。

（3）当多个输入语句并列使用时，一个READ语句对应一行。

（4）如果在输入数据行中出现“/”号，表示READ语句的输入到此结束，未被赋值的变量将不被赋值。例如：

READ*，I，J，X，Y 输入数据为： 2，6/14.3，12.64回车

这时，I为2，J为6，而X、Y将得不到值。

（5）特别注意：输入的数据类型应与变量类型尽量保持一致，整型变量不能接受实型数据，否则运行时将出错，实型变量可以接受整型数据，但最后按实型数据处理。

2.6.2 表控输出语句

一般格式为：PRINT*，输出项表

其中“*”同样代表表控格式，输出项内容可以是常量、变量、表达式或字符串，它们之间使用逗号隔开。例如

PRINT*，X

PRINT*，“Y=”，Y，“Z=”，Z

PRINT*，“最大的数是：”，MAX，“最小的数是：”，MIN 注意：

（1）每一个PRINT语句在新的一行开始显示。 （2） PRINT*后面字符串里的内容将原样显示。

（3）单独一个PRINT*语句，后面无列表相当于一个换行语句。 （4）PRINT*语句可以进行表达式的运算，例如PRINT*，X*2，Y+3 （5）表控格式还可以写成WRITE（*，*）输出列表 WRITE（*，*）X，Y PRINT*，X，Y

9

例2.1 分析下列程序的结果 程序见教材

例2.2 输入三个实数，输出最大值和最小值 程序见教材：

2.7 程序执行控制语句

2.7.1 STOP语句：使程序“终止运行”，一个程序可以有多个STOP语句，为了区分，可以在STOP后面加上标识，其一般格式为：

STOP [N] 例如： STOP 150 STOP ‘ABC’ 2.7.2 PAUSE语句

PAUSE语句是暂停语句，其使用格式如下：

PAUSE [N] 2.7.3 END语句

END语句是一个比较重要的语句，它的作用有二点：

（1）结束本程序单位的运行，每个完整的FORTRAN程序，都必须在最后加一个END，以结束程序。

（2）在FORTRAN子程序中，同样用END作为该程序单位的结束，但同时兼起返回的作用：使程序返回到被调用处，即RETURN语句的功能。 2.8 程序举例

例2.3 任意输入两个数，对它们进行加、减、乘、除、乘方运算 程序略

例2.4 输入自变量的值，求出对应的函数值，已知f(x)=x3+sin2x+ln(x4+1) 程序略

例2.5 将两个变量的值互换。

程序略

例2.6 输入一个三位整数，将它反向输出，如输入123，输出321。 程序略

作业：习 题 二的1、2、6、10

10

第三章 选择结构程序设计

块IF结构

块CASE结构来实现选择结构。 3.1 关系运算和逻辑运算 3.1.1 关系运算

关系表达式是指由一个关系运算符把两个数值表达式或字符表达式连接起来的式子，用于对两个运算量进行比较。

FORTRAN共有6个关系运算符见教材。 关系运算表达式书写应注意：

(1)当关系运算里包含算术运算时，先算术运算，再作关系运算。为了防止混淆，最好是给算术运算加上括号。

(2)关系运算用于两个不同类型数据比较时，将自动进行数据类型的转化，转化规则同算术运算。

(3)关系表达式计算所得到的结果为一个逻辑型(LOGICAL)值，即结果为.TRUE.或.FALSE.。因此计算结果不能再参与关系运算。例如，(A.GT.B).LT.C这样的表达式是非法的，因为(A.GT.B)结果为逻辑型值，不能再参与关系运算。

(4)在使用.EQ.(==)或.NE.(/=) 时，应非常小心，因为实型数据在计算机里存储时是用近似值表示的，可能存在误差，例如

LOGICAL A REAL X READ*,X A=(X*X.EQ.1.44) PRINT*,'A=',A END

当输入1.2时，输出结果为A= .F.。

即象1.2*1.2.EQ.1这样的表达式，其结果却为假，解决的办法是用ABS(1.2*1.2-1.44)<=1.0E-6取代它。

3.1.2逻辑运算

FORTRAN所用的基本逻辑运算有：

(1)逻辑与运算，运算符为.AND. 当连接的两个逻辑操作数为真时，逻辑表达式取值为真，只要一个为假则取假。

(2)逻辑或运算，运算符为.OR. 连接的两个逻辑操作数只要有一个为真时，逻辑表达式取值为真，全部为假时才为假。例如|X|>5，对应的FORTRAN表达式为：X>5.OR.X<-5。

(3)逻辑非运算，运算符为.NOT. 对后面的操作数取反，如果操作数为真，则取假，否则取真。

(4)逻辑等于运算，运算符为.EQV. 当连接的两个逻辑值相同(同为真或同为假)时，该逻辑表达式取真，否则取假。

(5)逻辑不等运算，运算符为.NEQV. 当连接的两个逻辑操作数取不同的值时，该逻辑

11

表达式取真，否则为假。

(6)逻辑异或运算，运算符为.XOR. 当连接的两个逻辑操作数不同时，该逻辑表达式取真，相同时取假。

2. 逻辑表达式

下面看一些逻辑表达式的例子：

(1) 坐标中，第一象限的点用逻辑表达式可表示为：X.GT.0.AND.Y.GT.0 (2) X? [-3，5]对应的逻辑表达式是：X.GE.-3.AND.X.LE.5

逻辑运算也有优先级别之分，其中.NOT.的优先级最高，其次是.AND. ，然后是.OR.，最后是.EQV. 、.NEQV.和 .XOR.。

3.2 块IF选择结构

例3.1输入一个学生的成绩，如果成绩少于60分，则输出“不及格”，90及90分以上，输出“优良”，60~89输出“通过”。

程序见教材： 1.单分支块IF结构 格式如下：

IF(逻辑表达式1) THEN

块 ENDIF 2.双分支结构

IF (逻辑表达式1) THEN

块1 块2

ELSE

END IF 3. 多分支结构 一般格式如下： IF (逻辑表达式1) THEN

块1 块2 块N 块N+1

THEN

…

ELSE IF (逻辑表达式2)

ELSE IF (逻辑表达式N) THEN ELSE END IF

块IF语句注意：

(1)IF(逻辑表达式) THEN语句单独占一行。

(2)块语句是前面逻辑表达式为真的情况下所具体执行的内容，可以是一个或多个语句。

(3)每一个ELSE IF(逻辑表达式)语句是前面逻辑条件为假，该逻辑条件为真的情况下，

12