條件語(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
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

