if ... then 語(yǔ)句由一個(gè)邏輯表達(dá)式后跟一個(gè)或多個(gè)語(yǔ)句和終止 end if 語(yǔ)句。
語(yǔ)法
if… then 語(yǔ)句的基本語(yǔ)法:
if (logical expression) then statement end if
但是可以給一個(gè)名稱,if 塊,那么語(yǔ)法命名 if 語(yǔ)句如下:
[name:] if (logical expression) then ! various statements . . . end if [name]
如果邏輯表達(dá)式的計(jì)算結(jié)果為true,那么塊代碼內(nèi)的 if ... then 語(yǔ)句會(huì)被執(zhí)行。如果在結(jié)束后的邏輯表達(dá)式計(jì)算為false,那么第一個(gè)代碼塊之后的 if 語(yǔ)句會(huì)被執(zhí)行。
流程圖:
示例 1
program ifProg implicit none ! local variable declaration integer :: a = 10 ! check the logical condition using if statement if (a < 20 ) then !if condition is true then print the following print*, "a is less than 20" end if print*, "value of a is ", a end program ifProg
當(dāng)上述代碼被編譯和執(zhí)行時(shí),它產(chǎn)生了以下結(jié)果:
a is less than 20 value of a is 10
示例 2
這個(gè)例子說明了命名的 if 塊:
program markGradeA implicit none real :: marks ! assign marks marks = 90.4 ! use an if statement to give grade gr: if (marks > 90.0) then print *, " Grade A" end if gr end program markGradeA
當(dāng)上述代碼被編譯和執(zhí)行時(shí),它產(chǎn)生了以下結(jié)果:
Grade A