圖3. if…then…else if…then…else if…then……else多支路語(yǔ)句

當(dāng)支路越來(lái)越多時(shí)，用嵌套的 if 語(yǔ)句就顯得太繁瑣。如果多支路的選擇是由同一個(gè)變量或表達(dá)式的不同結(jié)果值所決定的，其實(shí)也可以用 case 語(yǔ)句來(lái)實(shí)現(xiàn)，而且更顯簡(jiǎn)潔、清晰。如圖3的例子，用 case 語(yǔ)句可以改寫成：

圖4.  case多支路語(yǔ)句

程序執(zhí)行中，需要多次規(guī)律性的重復(fù)處理時(shí)，特別是一些數(shù)組的運(yùn)算處理時(shí)，就需要用到循環(huán)語(yǔ)句。Pascal 語(yǔ)言中循環(huán)語(yǔ)句主要有while…do 語(yǔ)句、repeat…until 語(yǔ)句和 for…do 語(yǔ)句。

while…do 語(yǔ)句的基礎(chǔ)格式如下：

while 判斷條件 do 循環(huán)體語(yǔ)句;

每輪循環(huán)之前，都先進(jìn)行條件判斷，當(dāng)判斷條件滿足時(shí)，則執(zhí)行循環(huán)體；當(dāng)判斷條件不滿足，則結(jié)束循環(huán)。循環(huán)體可以是單個(gè)語(yǔ)句，也可以是由 begin 和 end；包含起來(lái)的程序塊，但其語(yǔ)句中一定要包含有能改變判斷條件控制變量的語(yǔ)句，能使判斷條件不滿足，以免形成死循環(huán)。

圖5.  while…do循環(huán)語(yǔ)句

與 while…do 語(yǔ)句相反，repeat…until 語(yǔ)句是先執(zhí)行循環(huán)體，然后再看判斷條件是否滿足，如果滿足則結(jié)束循環(huán)，所以循環(huán)體至少會(huì)被執(zhí)行一次。循環(huán)體可以是單個(gè)語(yǔ)句，也可以由多個(gè)語(yǔ)句組成，但不一定用 begin 和 end；包含起來(lái)，repeat 和 until 本身具備包含程序塊的功能。其基礎(chǔ)格式如下：

repeat 循環(huán)體語(yǔ)句 until 判斷條件;

圖6.  repeat…until循環(huán)語(yǔ)句

while…do 語(yǔ)句和 repeat…until 語(yǔ)句中循環(huán)次數(shù)不定，根據(jù)某一條件來(lái)決定是否繼續(xù)循環(huán)，如果要進(jìn)行固定次數(shù)的循環(huán)，可以用 for…do 語(yǔ)句：

for 計(jì)次變量:=初始值 to 終止值 do 循環(huán)體；

for 計(jì)次變量:=初始值 downto 終止值 do 循環(huán)體；

其中，計(jì)次變量一般為整數(shù)類型（也可以是字符類型）；第一輪循環(huán)時(shí)，計(jì)次變量被賦予初始值，此后每輪循環(huán)計(jì)次變量都會(huì)遞增（to 關(guān)鍵字）或遞減（downto 關(guān)鍵字）1；如果計(jì)次變量沒超過終止值，則執(zhí)行循環(huán)體，否則結(jié)束循環(huán)。

循環(huán)體內(nèi)還可以用 continue 和 break 這兩個(gè)關(guān)鍵字對(duì)循環(huán)做額外的控制，上述的三種循環(huán)語(yǔ)句內(nèi)都可使用，一般配合條件語(yǔ)句決定什么情況下要 continue 或 break；continue 起效時(shí)，在該輪次循環(huán)內(nèi)，循環(huán)體里在其后的語(yǔ)句將不再執(zhí)行，而是立即進(jìn)行下一輪次循環(huán)是否進(jìn)行的條件判斷；break 則直接就此結(jié)束循環(huán)；它們的影響范圍只在它們所處的那一層級(jí)的循環(huán)語(yǔ)句。

圖7. for…do循環(huán)語(yǔ)句

for…do 語(yǔ)句還有一種特殊形式的for…in…do 循環(huán)，本文不再贅述，感興趣的可以移步Free Pascal wiki了解。

較為復(fù)雜的運(yùn)算，可能會(huì)用到循環(huán)語(yǔ)句的嵌套，Pascal語(yǔ)言中允許任何類型的循環(huán)語(yǔ)句嵌套于任何類型的循環(huán)語(yǔ)句內(nèi)。

圖8.  循環(huán)語(yǔ)句嵌套