六、控制语句
一般情况下，FORTRAN程序是按语句顺序执行的，但需要时，可以改变这种顺序。
这种改变可以通过各种控制转移语句、逻辑条件语句等来实现。
(一)转移语句 1．无条件转移语句
无条件转移语句的一般形式为：
GOTO n
当程序流程到达GOTO语句时，随后就转向语句标号为n的语句。标号为n的语句必须是可执行语句，但它在程序中的排列位置，可以在引导到它的GOTO语句之后，也可以在该GOTO语句之前。无条件转移语句常和其他控制语句结合起来使用。
2．算术条件转移语句
算术条件转移语句的一般形式为：
IF (e) n1，n2，n3
其中，e必须是算术表达式，当表达式运算结果e<0时，程序转向标号为n1的语句；当e=0时，转向标号为心的语句；当e>0时，转向标号为n3的语句。
例如，计算边长为B的正方形中挖去半径为R的圆后的面积，若B<2R，则给出相关信息。该问题的FORTRAN程序可用算术条件转移语句编写如下。
c Computation Of area．
READ*，B，R
IF(B-2*R) 5， 15， 15
5 WRITE(*，10)
10 FORMAT(’Error message：Bless than 2*R)
GOT0 20
15 AREA=B*B-3.14159*R*R
WRITE*，AREA
20 CONTINUE
END
本例中，在算术条件转移语句的第1个分支后，使用了GOTO语句；倘没有此语句，则程序按顺序仍会执行标号为15的语句，从而得出不正确的结果。
3．计算转移语句
计算转移语句的一般形式为：
GOTO(n1，n2，……，nm)，e
其中，ni(i=1，2，……，m)是被转向的语句标号，共m个；e是一个整型算术表达式，其值不得小于1且不得大于m。当e的值等于1时，程序转向标号n1的语句，当e的值等于2时转向标号心的语句，当e的值为m时转向标号为nm的语句。整型算术表达式e前的逗号可以省略。计算转移语句通常也和GOTO语句结合起来使用。
例如，有如下一个程序：
READ*，M
GOTO(20；30，40，50)M
20 N=M
GOTO 60
30 N=M*2
GOT0 60
40 N=M*3
GOT0 60
50 N=M*4
60 WRITE*，N
END
程序运行时，若输入1，则转向标号为20的语句，X的值为1；若输入2，则转向标号为30的语句，X的值为4；输入3，转向标号为40的语句，X的值为9，输入4，转向标号为50的语句，X的值为16。
(二)逻辑条件语句 1．逻辑IF语句
逻辑IF语句用来实现选择结构。它的一般形式为：
IF(逻辑表达式) 内嵌语句
其中内嵌语句是单独的一个可执行语句。逻辑IF语句执行时，首先计算逻辑表达式的值，如果逻辑表达式的值为“真”，则执行内嵌语句，若内嵌语句非转移语句，则执行该语句后继续按顺序往下执行，若内嵌语句是转移语句，则转向指定的语句;如果逻辑表达式的值为“假”，则不执行内嵌语句，而直接执行该语句后面的语句。
例如，从键盘读人一个代表百分制成绩的数据，如果数据在90—100之间就输出
‘Excellent’，在80—89之间输出‘Good’，在60—79之间输出‘Pass’，在60以下则输出‘Not pass’。其程序可以如下编写：
READ(*．*)IPOINT
IF(1POINT．GT．100．OR．IPOINT．LT．0) WRITE(*，*)’DATAERROR’
1F(1POINT．GE．90．AND．IPOINT．LE．100) WRITE(*,*)’Excellent’
IF(1POINT．GE．80．AND．IPOINT．LT．89) WRITE(*,*)’Good’
IF(1POINT．GE．60．AND．IPOINT．LT．79) WRITE(*,*)’Pass’，
， IF(1POINT．GE．0．AND．IPOINT．LT．59) WRITE(*,*)’Not Pass’
END
2．块IF结构的各种形式
(1)块IF和ENDIF形式
IF(逻辑表达式)THEN
语句块
ENDIF
当逻辑表达式的值为“真”时，执行语句块，否则按顺序执行ENDIF后的语句。例如，
如下程序段：
READ*，RN，AN
IF(RN．GE．0.0．AND．AN．GT．0.0)THEN
STRESS=RN／AN
WRITE*，RN，AN，STRESS
END
当RN大于等于零且AN大于零时，执行赋值语句和输出语句。
(2)使用ELSE的形式
IF(逻辑表达式)THEN
语句块1
ELSE
语句块2
ENDIF．
当逻辑表达式的值为“真”时，执行语句块1，当逻辑表达式的值为“假”时，执行语句块2。由此可见，使用ELSE的形式，可以进行两个分支的选择。
(3)使用ELSE IF的形式
IF(逻辑表达式1)THEN
语句块1
ELSE IF(逻辑表达式2)THEN
语句块2
ELSE
语句块3
ENDIF
这种形式，允许在三个分支中作出选择。当逻辑表达式1的值为“真”时，执行语句块1表示的分支；当逻辑表达式1的值为“假”而逻辑表达式2的值为“真”时，执行语句块2表示的分支；当逻辑表达式1的值和逻辑表达式2的值均为“假”时，执行语句块3表示的分支。
3．块IF结构的嵌套
在一个块IF结构的语句块中，可以完整地包含另一个或多个块IF结构，称为块IF 的嵌磁。块的嵌套可以多层。
责任编辑：xiaohan
您现在的位置： 