圖3. if…then…else if…then…else if…then……else多支路語句

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

圖4.  case多支路語句

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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