【文章內(nèi)容簡(jiǎn)介】 括號(hào)括起來： if (a=b) and (c=d) then e:=128。 ? 下面一條語句將永遠(yuǎn)不會(huì)被執(zhí)行： if false then writeln(39。I am stipud.39。)。 第三章 條件（程序段） ? then之后跟的語句可以是一條語句，也可以是一個(gè)程序段： if c=d then begin a:=b。b:=b+b。 end。 ? 切記，如果要寫兩條語句，必須將這兩條語句寫在程序段的 begin和 end。之間，否則第二條語句將不在條件語句的判定內(nèi)（一定會(huì)被執(zhí)行）。 第三章 條件（ ifelse） ? ifelse語句： if a=b then c:=512 else d:= ? 相當(dāng)于： if a=b then c:=512。 if not(a=b) then d:= ? 切記，無論 else前的語句是一條語句還是一個(gè)程序段， else前的那一個(gè)分號(hào)必須刪掉！ if a=b then begin c:=d。e:=f。end else g:=h。 第三章 讓計(jì)算機(jī)求解一元二次方程 program yi_yuan_er_ci。 var a,b,c,d:real。 begin write(39。請(qǐng)輸入 a： 39。)。readln(a)。 write(39。請(qǐng)輸入 b： 39。)。readln(b)。 write(39。請(qǐng)輸入 c： 39。)。readln(c)。 d:=b*b4*a*c。 if d0 then writeln(39。方程無解！ 39。) else begin write(39。第一個(gè)解是： 39。)。 writeln((b+sqrt(d))/2/a)。 write(39。第二個(gè)解是： 39。)。 writeln((bsqrt(d))/2/a)。 end。 end. 栗子： 第三章 循環(huán) ? 例如我們要一下子重復(fù)輸出 1000句話，一種方法是把 writeln(39。我是劍圣 39。)。復(fù)制 1000遍。但是這種辦法十分坑爹而且寫出來的程序十分龐大。另一種方法就是使用循環(huán)語句。 ? 加入你在魔獸爭(zhēng)霸中需要顯示 1000個(gè)劍圣，這1000個(gè)劍圣分別叫做“劍圣 1”，“劍圣 2”，“劍圣 3”…“ 劍圣 1000”，這時(shí)候你就不得不使用循環(huán)語句了。 ? 循環(huán)語句有三種： while語句， repeatuntil語句和 for語句。 第三章 循環(huán)（ while） ? 理論上說，使用 while語句可以完成其它循環(huán)語句所能做到的所有的事。 ? while語句用起來是這樣的： a:=1。 while a=1000 do begin writeln(39。我是第 39。,a,39。句話 39。)。 a:=a+1。 end。 ? 和 if語句一樣，當(dāng) while后的布爾值是 true時(shí)就執(zhí)行后面的語句或程序段，只不過執(zhí)行完一遍以后還會(huì)重新判斷是否再次執(zhí)行。 第三章 循環(huán)（ repeatuntil） a:=1。 repeat writeln(39。我是第 39。,a,39。句話 39。)。 a:=a+1。 until a=1000。 ? 這段程序和右邊的程序效果是一樣的。無論如何， repeatuntil之間的語句一定會(huì)執(zhí)行一遍，因?yàn)榕袛嗍窃?until執(zhí)行的。當(dāng) until后的布爾值為 true時(shí)就跳出循環(huán)。 a:=1。 while a=1000 do begin writeln(39。我是第 39。,a,39。句話 39。)。 a:=a+1。 end。 ? 和 repeatuntil不同的是，repeatuntil之間可以是多條語句，而 while后必須是一條語句或者一個(gè)程序段。 ? until前可不加分號(hào)。 第三章 循環(huán)（ for） for a:=1 to 1000 do writeln(39。我是第 39。,a,39。句話 39。)。 ? 這段程序的效果和右邊的是一樣的。 ? for語句總是很簡(jiǎn)潔，但是并非所有循環(huán)都能用for語句表示出來。 ? for語句的循環(huán)體變量（這里是 a）的值是不可改變的。 a:=1。 while a=1000 do begin writeln(39。我是第 39。,a,39。句話 39。)。 a:=a+1。 end。 ? 總能把 for語句用 while語句表達(dá)出來。 ? 學(xué)會(huì)把 for用 while寫出是很重要的，因?yàn)橛袝r(shí)候你沒法把循環(huán)用 for表達(dá)出來。 第三章 循環(huán)（ fordownto） ? 可惜的是， for語句不支持 C語言中的步長(zhǎng)功能，每次循環(huán)循環(huán)體變量的值只會(huì)加一。 ? 盡管如此， for語句提供了另一種方法來表達(dá)減一： for b:=1000 downto 1 do writeln(39。我是第 39。,b,39。句話 39。)。 program goto_10086。 label 10086。{定義一個(gè)標(biāo)記 } begin b:=1000。 10086:{在這里標(biāo)記 10086} writeln(39。我是第 39。,b,39。句話 39。)。 b:=b1。 if b=1 then goto 10086。 {跳轉(zhuǎn)到標(biāo)記 10086} end. ? 使用 goto語句來達(dá)到目的 第三章 循環(huán)（ goto） ? 使用 goto語句雖然有時(shí)候能使書寫程序變得簡(jiǎn)便，但是通常情況下它會(huì)破壞程序結(jié)構(gòu)。它會(huì)讓程序不止一個(gè)出口，所以應(yīng)該避免使用。 ? 理論上所有的循環(huán)都可以用 while語句來完成。 ? 同樣道理， break和 continue這些會(huì)破壞循環(huán)結(jié)構(gòu)的語句也應(yīng)該避免使用，它們是萬惡之源，因此在此不再介紹此類語句的使用方法。（就不告訴你，就不告訴你，就不 ~告訴你?。? 第三章 嵌套 ? 舉個(gè)栗子你就明白了： if ab then if cd then begin while e=f do g:=g+1。 if (1+1)=3 then writeln(39。好的 39。)。 end。 ? else后面也可加嵌套，即 else if… ，分號(hào)加不加自己多試試就知道了。 第三章 猜數(shù)字游戲 ? 好了，現(xiàn)在你已經(jīng)有能力讓計(jì)算機(jī)在屏幕上持續(xù)得畫一大堆點(diǎn)了，雖說離寫出魔獸爭(zhēng)霸 3還有很長(zhǎng)的一段路要走，但是憑借這點(diǎn)知識(shí)寫一些小游戲已經(jīng)不成問題了。 ? 如果你能理解這個(gè)程序，并且正確預(yù)料這個(gè)程序運(yùn)行后將會(huì)發(fā)生什么，那么恭喜你，你已經(jīng)學(xué)會(huì)編寫一個(gè)簡(jiǎn)單的Pascal語言程序了！ program cai_shu_zi。 var a,b,i,n:integer。 begin a:=1。{最大值 } b:=100。{最小值 } writeln(39。請(qǐng)輸入一個(gè) 1100的整數(shù)： 39。)。 栗子： (上半部分 ) 第三章 猜數(shù)字游戲 for i:=5 downto 1 do begin write(39。你還有 39。,i,39。次機(jī)會(huì)： 39。)。 readln(n)。{輸入的數(shù) } if ((bn)(na)0) then begin write(39。數(shù)字太小了傻逼！ 39。)。 a:=n。 end{if} else begin write(39。數(shù)字太大了傻逼！ 39。)。 b:=n。 end。{else} end。{for} writeln(39。你已經(jīng)沒有機(jī)會(huì)了。 39。)。 writeln(39。你真是個(gè)大傻逼！ 39。)。 readln()。 end. 栗子： (下半部分 ) 第三章 空語句 ? 一個(gè)典型的空語句： 。 ? 空語句用在條件語句上： if a=b then 。 ? 空語句用在循環(huán)語句上： while true do 。{死循環(huán) } ? 加了空語句不會(huì)懷孕： 。writeln(39。加了空語句不會(huì)懷孕 39。)。 第三章 空語句 program hello_world_void。 begin。 writeln(39。Hello World!39。)。 end. {除了程序名外仔細(xì)觀察這段程序 和之前的 hello_world程序有什么不同 這段程序能否通過編譯？為什么？ } {答案：能。 begin之后的那個(gè)分號(hào)相當(dāng)于空語句。 } 栗子： 第三章 條件（ case） * ? 雖然本作者一向不推薦使用 case語句，但是作為一個(gè)優(yōu)秀的程序員必須對(duì)所有可能出現(xiàn)的語句做一個(gè)了解，因?yàn)槟悴挥貌淮韯e人不會(huì)用，到時(shí)你看到 case語句說這不是 pascal語言因?yàn)槲覜]教過我就傻眼了： case i of{這里不加分號(hào) } 1:writeln(39。ok39。)。 2:a:=b。 3..5:if (1+1)=3 then writeln(39。yes!39。)。{3..5是子界，有關(guān)子界的內(nèi)容請(qǐng)參看后面幾章 } else:while true do 。{這里的分號(hào)可以不加，只不過這里用了空語句 } end。 第三章 循環(huán)（ break） * ? 我不推薦大家使用 case語句是出于兩個(gè)原因，第一是因?yàn)?case語句局限性很大，第二是因?yàn)?begin和 end。不是對(duì)稱的， case語句中沒有 begin。 ? 在這里順便也把 break的用法說了吧，還是舉栗子： a:=1。 while true do begin a:=a+1。 if a1000 then break。 end。 ? 就是這樣，看不懂也別來問我，只能說你學(xué)藝不佳。 第三章 第四章 子程序 ? 函數(shù)與過程 ? 參數(shù) ? 返回值 ? 局部變量和全局變量 ? 實(shí)際參數(shù)和形式參數(shù) ? 重載 ? 遞歸 ? 超前引用（ forward） ? writeln()。和 readln()。 ? 場(chǎng)寬（ :操作符） ? 使用其它子程序 ? 程序也是子程序 ? 操作符也是子程序 目錄 函數(shù)與過程 ? 細(xì)心的小朋友已經(jīng)發(fā)現(xiàn)，在求解一元二次方程中，我們使用了 sqrt()。來求解一個(gè)實(shí)數(shù)的平方。 sqrt()。就是一個(gè)子程序。 ? Pascal的子程序分為兩種，一種叫做函數(shù)（ Function），如 sqrt()。，另一種叫做過程（ Procedure），如 writeln()。函數(shù)于過程的區(qū)別在于，函數(shù)是有返回值的。例如： a:=sqrt(b)。 ? 但是這樣是錯(cuò)誤的： c:=writeln(d)。{這是錯(cuò)誤的 } ? 因?yàn)?writeln()。只是一個(gè)過程，它并沒有返回值。 第四章 函數(shù)與過程 ? 子程序可以理解為“一個(gè)獨(dú)立的程序段”。它的結(jié)構(gòu)就和一個(gè)程序一樣。 ? 子程序名是一個(gè)標(biāo)識(shí)符，例如一個(gè)過程： procedure procedure1()。{過程說明 } {定義各種變量和常量 } begin {過程程序段開始 } writeln(39。我是一個(gè)語句 39。)。{過程程序段內(nèi)容 } end。 {過程程序段結(jié)束 } 第四章 參數(shù) ? 參數(shù)其實(shí)就是變量。 ? 在使用 writeln()。時(shí)，你會(huì)鍵入 writeln(39。大傻逼 39。)。，這個(gè)“ 39。大傻逼 39。”就是一個(gè)參數(shù)，如果沒有這個(gè)參數(shù)， writeln()。只會(huì)在屏幕上輸出一個(gè)空行。 ? 參數(shù)的出現(xiàn)使得子程序的效果產(chǎn)生各種變化。一個(gè)參數(shù)可以是一個(gè)變量。使用參數(shù)是主程序?qū)⒆兞康闹祩鹘o子程序的一種手段。 第四章 返回值 ? 只有函數(shù)有返回值。 ? 你可以把函數(shù)本身看成一個(gè)變量，例如： function inc(i:integer):integer。 begin inc:=i+1。 end。 ? 在定義函數(shù) inc的同時(shí)，你就同時(shí)已經(jīng)定義了一個(gè)叫 inc的整數(shù)類型變量。當(dāng)你把參數(shù)傳遞給函數(shù)時(shí)，就可以使用它返回的值了，例如： b:=inc(a)。 第四章 局部變量和全局變量 program bian_liang。 var a,b:integer。 procedure procedure1()。 var a,c:integer。 begin{過程開始 } a:=a+1。b:=b+1。c:=c+1。 end。{過程結(jié)束 } begin{主程序開始 } procedure1()。 a:=a+1。b:=b+1。 end.{主程序結(jié)束 } ? 局部變量 c是在子程序內(nèi)定義的，所以在主程序段不能使用變量 c，否則會(huì)報(bào)錯(cuò)。 ? 全局變量 b在子程序內(nèi)也能使用。 ? 變量 a在子程序外和子程序內(nèi)都有定義。被定義的是兩個(gè)不同的變量。