巖土工程師輔導(dǎo)資料:選擇語句

　　對(duì)一個(gè)條件復(fù)雜的情況，用條件語句來設(shè)計(jì)時(shí)，勢(shì)必導(dǎo)致程序冗長，層次不清晰，可讀性不強(qiáng)。為了解決這個(gè)問題，F(xiàn)ORTRAN77設(shè)置了分塊語句，用來有條件地選擇執(zhí)行某個(gè)語句塊，它可以不使用或少使用無條件語句，使程序變得有層次、易讀。分塊語句有：塊if，else if，else，end if。

　　1.塊IF語句和END IF語句

　　塊IF語句和END IF語句以及任選的ELSE IF和ELSE語句的聯(lián)合使用，以便控制執(zhí)行序列。

　　塊IF的格式為：IF(e)THEN

　　式中e為邏輯表達(dá)式，(e)為邏輯表達(dá)式的值。

　　END IF語句的格式為：END IF

　　塊IF的幾種形式如下。

　　為了實(shí)現(xiàn)選擇結(jié)構(gòu)，可用以下幾種形式的塊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為真，執(zhí)行塊1)

　　ELSE IF(條件2)THEN

　　塊2(條件1為假，條件2為真，執(zhí)行塊2)

　　ENDIF

　　也可用下列格式：

　　IF(條件1)THEN

　　塊1(條件1為真，執(zhí)行塊1)

　　ELSE IF(條件2)THEN

　　塊2(條件1為假，條件2為真，執(zhí)行塊2)

　　ELSE

　　塊3(條件1為假，條件2也為假，執(zhí)行塊3)

　　END IF

　　當(dāng)條件更加復(fù)雜時(shí)，還可用以下格式：

　　IF(條件1)THEN

　　塊1

　　塊n

　　ELSE

　　塊n+1

　　ENDIF如有一函數(shù)Z，滿足以下條件：

　　8≤x≤12且6≤y≤20 時(shí)：Z=x

　　-10≤x≤0且-3≤y≤-1時(shí)：Z=y

　　其他情況Z=0

　　x和y值從鍵盤讀入。為精簡(jiǎn)程序，引入4個(gè)邏輯量，程序如下：

　　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.塊語句在使用中的基本規(guī)則

　　塊語句在使用中有以下基本規(guī)則：

　　(1)一個(gè)塊IF語句必須與一個(gè)ENDIF語句相對(duì)應(yīng)。不同的IF級(jí)可以相互嵌套;

　　(2)一對(duì)塊IF語句和ENDIF語句之間可以包含零個(gè)或多個(gè)ELSEIF語句，也可以包含零個(gè)或一個(gè)ELSE語句，即允許有一個(gè)IF塊，零個(gè)或多個(gè)ELSEIF塊，零個(gè)或一個(gè)ELSE塊;

　　(3)不允許用無條件轉(zhuǎn)移語句和條件轉(zhuǎn)移語句從外套層進(jìn)入內(nèi)套層，但允許用轉(zhuǎn)移語句從內(nèi)套層轉(zhuǎn)向外套層。

更多內(nèi)容訪問>> 注冊(cè)土木工程師(巖土)考試頻道   注冊(cè)土木工程師(巖土)考試論壇  巖土工程師課程試聽

·2011年注冊(cè)土木工程師（巖土）考試輔導(dǎo)招生簡(jiǎn)章
·巖土工程師輔導(dǎo)現(xiàn)在報(bào)名任意專業(yè)知識(shí)贈(zèng)送專業(yè)知識(shí)習(xí)題班
·老師輔導(dǎo)每天24小時(shí)不限時(shí)間隨時(shí)反復(fù)學(xué)習(xí)……