岩土工程师辅导资料:选择语句

　　对一个条件复杂的情况，用条件语句来设计时，势必导致程序冗长，层次不清晰，可读性不强。为了解决这个问题，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小时不限时间随时反复学习……