短信预约提醒成功
对一个条件复杂的情况，用条件语句来设计时，势必导致程序冗长，层次不清晰，可读性不强。为了解决这个问题，FORTRAN77设置了分块语句，用来有条件地选择执行某个语句块，它可以不使用或少使用无条件语句，使程序变得有层次、易读。分块语句有：块if，else if，else，end if。
1.块IF语句和END IF语句
块IF语句和END IF语句以及任选的ELSE IF和ELSE语句的联合使用，以便控制执行序列。
块IF的格式为：IF(e)THEN
式中e为逻辑表达式，(e)为逻辑表达式的值。
END IF语句的格式为：END IF
块IF的几种形式如下。
为了实现选择结构，可用以下几种形式的块IF 。
(1)不含ELSE语句的块IF，格式为：
IF(条件)THEN
块
END IF
如：LOGICAL L
READ(*，*)L
IF(L)THEN
WRITE(*， *)’The L is true’
GOTO 10
END IF
WRITE(*，*)’The L is false’
10 STOP
(2)包含ELSE语句的块IF，其格式为：
IF(条件) THEN
块1
ELSE
块2
END IF 如：READ(*，*)X
IF(X.GE.0.)THEN
Y=10.5*X
ELSE
Y=-10.5*X
END IF
WRITE(*，*)’X=’，X，’Y=’，Y
STOP
(3)含有ELSE IF语句的块IF，格式为：
IF(条件1)THEN
块1(条件1为真，执行块1)
ELSE IF(条件2)THEN
块2(条件1为假，条件2为真，执行块2)
ENDIF
也可用下列格式：
IF(条件1)THEN
块1(条件1为真，执行块1)
ELSE IF(条件2)THEN
块2(条件1为假，条件2为真，执行块2)
ELSE
块3(条件1为假，条件2也为假，执行块3)
END IF
当条件更加复杂时，还可用以下格式：
IF(条件1)THEN
块1
块n
ELSE
块n+1
ENDIF如有一函数Z，满足以下条件：
8≤x≤12且6≤y≤20 时：Z=x
-10≤x≤0且-3≤y≤-1时：Z=y
其他情况Z=0
x和y值从键盘读入。为精简程序，引入4个逻辑量，程序如下：
LOGICAL LGl，LG2，LG3，LG4
READ(*，*)X，Y
LGl=X.GE.8..AND.X.LE.12.
LG2=Y.GE.6..AND.Y.LE.20.
LG3=X.GE.-10..AND.X.LE.0.
LG4=Y.GE.-3..AND.Y.LE.-1.
IF(LGl.AND.LG2)THEN
Z=X
ELSEIF (LG3.AND.LG4) THEN
Z=Y
ELSE
Z=0
END IF
WRITE(*，*)’X=’，X，’Y=’，Y，’Z=’，Z
STOP
END
2.块语句在使用中的基本规则
块语句在使用中有以下基本规则：
(1)一个块IF语句必须与一个ENDIF语句相对应。不同的IF级可以相互嵌套;
(2)一对块IF语句和ENDIF语句之间可以包含零个或多个ELSEIF语句，也可以包含零个或一个ELSE语句，即允许有一个IF块，零个或多个ELSEIF块，零个或一个ELSE块;
(3)不允许用无条件转移语句和条件转移语句从外套层进入内套层，但允许用转移语句从内套层转向外套层。
更多内容访问>> 注册土木工程师(岩土)考试频道 注册土木工程师(岩土)考试论坛 岩土工程师课程试听
·2011年注册土木工程师（岩土）考试辅导招生简章
·岩土工程师辅导现在报名任意专业知识赠送专业知识习题班
·老师辅导每天24小时不限时间随时反复学习……