注冊(cè)巖土工程師基礎(chǔ)知識(shí)點(diǎn):選擇語(yǔ)句_第1頁(yè)
注冊(cè)巖土工程師基礎(chǔ)知識(shí)點(diǎn):選擇語(yǔ)句_第2頁(yè)
注冊(cè)巖土工程師基礎(chǔ)知識(shí)點(diǎn):選擇語(yǔ)句_第3頁(yè)
注冊(cè)巖土工程師基礎(chǔ)知識(shí)點(diǎn):選擇語(yǔ)句_第4頁(yè)
注冊(cè)巖土工程師基礎(chǔ)知識(shí)點(diǎn):選擇語(yǔ)句_第5頁(yè)
全文預(yù)覽已結(jié)束

下載本文檔

版權(quán)說(shuō)明:本文檔由用戶(hù)提供并上傳,收益歸屬內(nèi)容提供方,若內(nèi)容存在侵權(quán),請(qǐng)進(jìn)行舉報(bào)或認(rèn)領(lǐng)

文檔簡(jiǎn)介

注冊(cè)巖土工程師基礎(chǔ)知識(shí)點(diǎn):選擇語(yǔ)句

1.塊IF語(yǔ)句和ENDIF語(yǔ)句

塊IF語(yǔ)句和ENDIF語(yǔ)句以及任選的ELSEIF和ELSE語(yǔ)句的聯(lián)合使用,以便掌握?qǐng)?zhí)行序列。

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

式中e為規(guī)律表達(dá)式,(e)為規(guī)律表達(dá)式的值。

ENDIF語(yǔ)句的格式為:ENDIF

塊IF的幾種形式如下。

為了實(shí)現(xiàn)選擇構(gòu)造,可用以下幾種形式的塊IF。

(1)不含ELSE語(yǔ)句的塊IF,格式為:

IF(條件)THEN

ENDIF

如:LOGICALL

READ(*,*)L

IF(L)THEN

WRITE(*,*)’TheListrue’

GOTO10

ENDIF

WRITE(*,*)’TheLisfalse’

10S

(2)包含ELSE語(yǔ)句的塊IF,其格式為:

IF(條件)THEN

塊1

ELSE

塊2

ENDIF如:READ(*,*)X

IF(X.GE.0.)THEN

Y=10.5*X

ELSE

Y=-10.5*X

ENDIF

WRITE(*,*)’X=’,X,’Y=’,Y

S

(3)含有ELSEIF語(yǔ)句的塊IF,格式為:

IF(條件1)THEN

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

ELSEIF(條件2)THEN

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

ENDIF

也可用以下格式:

IF(條件1)THEN

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

ELSEIF(條件2)THEN

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

ELSE

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

ENDIF

當(dāng)條件更加簡(jiǎn)單時(shí),還可用以下格式:

IF(條件1)THEN

塊1

塊n

ELSE

塊n+1

ENDIF如有一函數(shù)Z,滿(mǎn)意以下條件:

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

-10≤x≤0且-3≤y≤-1時(shí):Z=y(tǒng)

其他狀況Z=0

x和y值從鍵盤(pán)讀入。為精簡(jiǎn)程序,引入4個(gè)規(guī)律量,程序如下:

LOGICALLGl,LG2,LG3,LG4

READ(*,*)X,Y

LGl=X.GE.8..AND.X.LE.12.

LG2=Y(jié).GE.6..AND.Y.LE.20.

LG3=X.GE.-10..AND.X.LE.0.

LG4=Y(jié).GE.-3..AND.Y.LE.-1.

IF(LGl.AND.LG2)THEN

Z=X

ELSEIF(LG3.AND.LG4)THEN

Z=Y(jié)

ELSE

Z=0

ENDIF

WRITE(*,*)’X=’,X,’Y=’,Y,’Z=’,Z

S

END

2.塊語(yǔ)句在使用中的根本規(guī)章

塊語(yǔ)句在使用中有以下根本規(guī)章:

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

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

溫馨提示

  • 1. 本站所有資源如無(wú)特殊說(shuō)明,都需要本地電腦安裝OFFICE2007和PDF閱讀器。圖紙軟件為CAD,CAXA,PROE,UG,SolidWorks等.壓縮文件請(qǐng)下載最新的WinRAR軟件解壓。
  • 2. 本站的文檔不包含任何第三方提供的附件圖紙等,如果需要附件,請(qǐng)聯(lián)系上傳者。文件的所有權(quán)益歸上傳用戶(hù)所有。
  • 3. 本站RAR壓縮包中若帶圖紙,網(wǎng)頁(yè)內(nèi)容里面會(huì)有圖紙預(yù)覽,若沒(méi)有圖紙預(yù)覽就沒(méi)有圖紙。
  • 4. 未經(jīng)權(quán)益所有人同意不得將文件中的內(nèi)容挪作商業(yè)或盈利用途。
  • 5. 人人文庫(kù)網(wǎng)僅提供信息存儲(chǔ)空間,僅對(duì)用戶(hù)上傳內(nèi)容的表現(xiàn)方式做保護(hù)處理,對(duì)用戶(hù)上傳分享的文檔內(nèi)容本身不做任何修改或編輯,并不能對(duì)任何下載內(nèi)容負(fù)責(zé)。
  • 6. 下載文件中如有侵權(quán)或不適當(dāng)內(nèi)容,請(qǐng)與我們聯(lián)系,我們立即糾正。
  • 7. 本站不保證下載資源的準(zhǔn)確性、安全性和完整性, 同時(shí)也不承擔(dān)用戶(hù)因使用這些下載資源對(duì)自己和他人造成任何形式的傷害或損失。

最新文檔

評(píng)論

0/150

提交評(píng)論