深圳 结构工程师 培训

　　六、控制语句

　　一般情况下, FORTRAN程序是按语句顺序执行的,但需要时,可以改变这种顺序。 这种改变可以通过各种控制转移语句、逻辑条件语句等来实现。

　　(一)转移语句

　　1.无条件转移语句

　　无条件转移语句的一般形式为:

　　GOTO n

　　当程序流程到达GOTO语句时,随后就转向语句标号为n的语句。标号为n的语句必须 是可执行语句,但它在程序中的排列位置,可以在引导到它的GOTO语句之后,也可以 在该GOTO 语句之前。无条件转移语句常和其他控制语句结合起来使用。

　　2.算术条件转移语句

　　算术条件转移语句的一般形式为:

　　IF (e) nl, n2, n3

　　其中, e必须是算术表达式,当表达式运算结果e<0时,程序转向标号为n1的语句;当 e=0时,转向标号为n2的语句;当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: B less than 2*R‘)

　　GOTO 20

　　15 AREA=B*B-3.14159*R*R

　　WRITE *AREA

　　20 CONTINUE

　　END

　　本例中,在算术条件转移语句的第1个分支后,使用了GOTO语句;倘没有此语句,则 程序按顺序仍会执行标号为15的语句,从而得出不正确的结果。