對一個條件復雜的情況，用條件語句來設計時，勢必導致程序冗長，層次不清晰，可讀性不強。為了解決這個問題，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小時不限時間隨時反復學習……