2.塊IF結(jié)構(gòu)的各種形式
(1)塊IF和ENDIF形式
IF (邏輯表達(dá)式) THEN
語句塊
ENDIF
當(dāng)邏輯表達(dá)式的值為"真"時(shí),執(zhí)行語句塊,否則按順序執(zhí)行ENDIF后的語句。例如, 如下程序段:
READ*, RN, AN
IF (RN.GE.0.0.AND.AN.GT.0.0) THEN
STRESS=RN/AN
WRITE*RN,AN,STRESS
ENDIF
END
當(dāng)RN大于等于零且AN大于零時(shí),執(zhí)行賦值語句和輸出語句。
(2)使用ELSE的形式
IF (邏輯表達(dá)式) THEN
語句塊1
ELSE
語句塊2
ENDIF
當(dāng)邏輯表達(dá)式的值為"真"時(shí),執(zhí)行語句塊1 ,當(dāng)邏輯表達(dá)式的值為"假"時(shí),執(zhí)行語句塊2。由此可見,使用ELSE的形式,可以進(jìn)行兩個(gè)分支的選擇。
(3)使用ELSE IF的形式
IF (邏輯表達(dá)式1) THEN
語句塊1
ELSE IF (邏輯表達(dá)式2) THEN
語句塊2
ELSE
語句塊3
ENDIF
這種形式,允許在三個(gè)分支中作出選擇。當(dāng)邏輯表達(dá)式1的值為"真"時(shí),執(zhí)行語句 塊1表示的分支;當(dāng)邏輯表達(dá)式1的值為"假"而邏輯表達(dá)式2的值為"真"時(shí),執(zhí)行語 句塊2表示的分支;當(dāng)邏輯表達(dá)式1的值和邏輯表達(dá)式2的值均為"假"時(shí),執(zhí)行語句塊 3表示的分支。
3.塊IF結(jié)構(gòu)的嵌套
在一個(gè)塊IF結(jié)構(gòu)的語句塊中,可以完整地包含另一個(gè)或多個(gè)塊IF結(jié)構(gòu),稱為塊IF 的嵌套。塊的嵌套可以多層。
(1)塊IF和ENDIF形式
IF (邏輯表達(dá)式) THEN
語句塊
ENDIF
當(dāng)邏輯表達(dá)式的值為"真"時(shí),執(zhí)行語句塊,否則按順序執(zhí)行ENDIF后的語句。例如, 如下程序段:
READ*, RN, AN
IF (RN.GE.0.0.AND.AN.GT.0.0) THEN
STRESS=RN/AN
WRITE*RN,AN,STRESS
ENDIF
END
當(dāng)RN大于等于零且AN大于零時(shí),執(zhí)行賦值語句和輸出語句。
(2)使用ELSE的形式
IF (邏輯表達(dá)式) THEN
語句塊1
ELSE
語句塊2
ENDIF
當(dāng)邏輯表達(dá)式的值為"真"時(shí),執(zhí)行語句塊1 ,當(dāng)邏輯表達(dá)式的值為"假"時(shí),執(zhí)行語句塊2。由此可見,使用ELSE的形式,可以進(jìn)行兩個(gè)分支的選擇。
(3)使用ELSE IF的形式
IF (邏輯表達(dá)式1) THEN
語句塊1
ELSE IF (邏輯表達(dá)式2) THEN
語句塊2
ELSE
語句塊3
ENDIF
這種形式,允許在三個(gè)分支中作出選擇。當(dāng)邏輯表達(dá)式1的值為"真"時(shí),執(zhí)行語句 塊1表示的分支;當(dāng)邏輯表達(dá)式1的值為"假"而邏輯表達(dá)式2的值為"真"時(shí),執(zhí)行語 句塊2表示的分支;當(dāng)邏輯表達(dá)式1的值和邏輯表達(dá)式2的值均為"假"時(shí),執(zhí)行語句塊 3表示的分支。
3.塊IF結(jié)構(gòu)的嵌套
在一個(gè)塊IF結(jié)構(gòu)的語句塊中,可以完整地包含另一個(gè)或多個(gè)塊IF結(jié)構(gòu),稱為塊IF 的嵌套。塊的嵌套可以多層。