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

字號(hào):

條件語(yǔ)句又稱為IF語(yǔ)句,它可用來(lái)處理多個(gè)分支。
    1.算術(shù)條件語(yǔ)句
    格式為:IF(e)S1,S2,S3
    式中e是整型、實(shí)型、雙精度實(shí)型算術(shù)表達(dá)式,(e)是算術(shù)表達(dá)式的值。S1,S2,S3是可執(zhí)行語(yǔ)句標(biāo)號(hào),其值可以相同。
    功能:如下圖所示。
    2.邏輯IF語(yǔ)句
    格式為:IF(e)st
    式中e為邏輯表達(dá)式,(e)為邏輯表達(dá)式的值,st為一內(nèi)嵌語(yǔ)句,一定為可執(zhí)行語(yǔ)句。但 DO、塊IF,ELSEIF,ELSE,ENDIF,END或另一個(gè)邏輯IF語(yǔ)句,均不能作為內(nèi)嵌語(yǔ)句。
    功能:若(e)為.F.,則執(zhí)行IF語(yǔ)句的下一個(gè)語(yǔ)句,若(e)為.T.,則執(zhí)行st語(yǔ)句,若st為非轉(zhuǎn)移語(yǔ)句,則接著執(zhí)行IF語(yǔ)句的下一個(gè)語(yǔ)句。
    如已知X在X1與X3之間,X1    
    用邏輯IF語(yǔ)句編程如下:
    READ(*,*)X1,X2,X3,Y1,Y2,Y3
    10 READ(*,*)X
    IF (X.LT.X1.OR.X.GT.X3)GOTO 10
    IF(X.GE.X2)Y=(Y3-Y2)*(X—X2)/(X3-X2)+Y2
    IF(X.LT.X2)Y=(Y2-Y1)*(X—X1)/(X2-X1)+Yl
    WRITE(*,*)’X=’,X,’Y=’,Y
    GOTO 10
    END