【正文】 在于此，編寫的語句就在里面。例3 編寫一求階乘的函數(shù)。我們給此函數(shù)取一名字就叫JS?！UNCTION js(n:integer):longint?！　　　　?　var i:integer?！　　　　　　?s:longint。　　　　　 　begin　　　　　　 　s:=1?！　　　　　?　for i:=1 to n do　　　　　　　　　　　　　　　　　　　　　　　　 　　　　　　　 　s:=s*i?！s:=s。end。在本例中，函數(shù)名叫JS，只有一個INTEGER型的自變量N，函數(shù)JS屬LONGINT型。在本函數(shù)中，要用到兩個變量I，S，在VAR后已加以說明。在函數(shù)體中，是一個求階乘的語句，但有一點要注意：雖然N的階乘的值在S中，但最后必須將此值賦給函數(shù)JS，此時JS不帶任何參數(shù)。在任何函數(shù)中，最后都要把最終結(jié)果賦給函數(shù)名，因為該函數(shù)的結(jié)果是靠函數(shù)名返回的。在這里，函數(shù)的參數(shù)N是一個接口參數(shù)，說得更明確點是入口參數(shù)。如果我們調(diào)用函數(shù)：JS（3），那么在程序里所有有N的地方N被替代成3來計算。在這里，3就被稱為值參。又如：SQRT（4），LN（5），這里的4，5叫值參。而SQRT（X），LN（Y）中的X，Y叫形參。函數(shù)的調(diào)用自定義的函數(shù)在調(diào)用前要先說明，在主程序中的位置如下:PROGRAM 程序名（INPUT，OUTPUT）；VAR 主程序變量說明；FOUNCTION 函數(shù)名（形參表）：函數(shù)類型；VAR 函數(shù)變量說明；BEGIN函數(shù)體END；{FUNCTION}BEGIN主程序END .{PROGRM}在主程序中，我們把函數(shù)的全部說明放在主程序的變量說明和程序體之間，然后在主程序的執(zhí)行部分就可以直接調(diào)用自定義函數(shù)了。注意：在函數(shù)的說明部分，我們要用形參，但在程序的執(zhí)行部分調(diào)用自定義函數(shù)時，就得用值參了。例4 利用前面定義的階乘函數(shù)，求5！，9！。PROGRAM e59(input,outout)?！　?　　　VAR a1,a2:longint。　　　　 fUNCTION js(n:integer):longint?！　　　　?var i:integer?！　　　　　　?s:longint?！　　　　?begin　　　　　　 s:=1?！　　　　　?for i:=1 to n do　　　　　　　 s:=s*i。　　　　　　 js:=s?！　　　　?end?！　　　?BEGIN　　　　　　 a1:=js(5)?！　　　　　?a2:=js(9)?！　　　　　?writeln(39。5!=39。,a1,39。 39。,39。9!=39。,a2)?！　　　?END.在這個程序中，在主程序的BEGIN之前，我們對函數(shù)進(jìn)行了一次說明，在后面的程序中都可以象標(biāo)準(zhǔn)函數(shù)那樣直接調(diào)用自定義函數(shù)了。在FUNCTION語句中，用的是形參N，在主程序調(diào)用中，調(diào)用函數(shù)是用的值參，如：JS（5）；程序執(zhí)行到這兒會自動將5代入前面的FUNCTION函數(shù)中，用5 取代所有的N，最終將結(jié)果賦值給JS。所以在A1中一定是5！，A2中是9！。另外，函數(shù)不能單獨使用，一定要結(jié)合主程序才能運行。如果是求1！＋2?。?！＋．．．＋10！，則只需把主程序改成：A1：＝0；FOR J：＝1 TO 10 DOA1：＝A1＋JS（J）；WRITELN（A1）；在例4中，主程序的變量A1，A2叫全程變量，它們除了主程序外，還可以在函數(shù)中出現(xiàn)；在函數(shù)說明中用到的變量I，S則是局部變量，只能在函數(shù)部分使用，一旦出了函數(shù)則失去意義；別外要注意：全程變量和局部變量盡量不要同名。 Pascal 程序結(jié)構(gòu)我們先來看一個實例，據(jù)此來理解Pascal語言的結(jié)構(gòu)。 Pascal 實例分析 已知一個三角形的底和高，計算它的面積。我們知道，三角形的面積=底*高/2，假設(shè)三角形的底是a，高是h，面積是s，則：S=a*h/2，我們編程的思路是：利用Pascal設(shè)計一個計算程序，程序運行時讓用戶輸入a和h，輸入后計算并顯示三角形的面積。程序如下：Program sjx(input,output)。 var a,h,s:real。 begin readln(a,h)。 s:=a*h/2 writeln(‘s=’,s)。（圖31）end.在Free Pascal中錄入以上程序后如圖31所示。在以上的程序中，Readln（a,h）是讀入錄入數(shù)據(jù)并賦值給a和h的語句。程序運行時，如圖32所示，等待用戶輸入a和h兩個數(shù)據(jù)。在這里我們要輸入7和8兩個數(shù)據(jù)，分別賦給a和h，可以采用輸入：7空格8回車的方式（如圖33）完成輸入過程，也可以采用輸入一個數(shù)據(jù)后回車再輸入另一個數(shù)據(jù)再回車的方式完成數(shù)據(jù)的錄入工作。按照上面程序運行并錄入以上數(shù)據(jù)之后，按Alt+F5查看運行結(jié)果，如圖34所示。（圖32）（圖33）（圖34）在圖34顯示的運行結(jié)果揭示的問題是：以圖33中我們所錄入三角形底、高分別是8時，*101（科學(xué)記數(shù)法）。完成輸出計算數(shù)據(jù)的是用Write語句。 Pascal 程序結(jié)構(gòu)從上面的程序可以看到，Pascal源程序由如下兩個主要部分構(gòu)成：1. 程序首部程序首部是程序的開頭部分，由Program后接程序名及程序參數(shù)表組成，由分號結(jié)束。在以上的這個程序中，程序名sjx是用戶定義的一個標(biāo)識符，參數(shù)一般是文件的變量名，用于該程序與外界交流數(shù)據(jù)，最常用的參數(shù)為input和output，在Free pascal中，參數(shù)表可以省略。2. 程序體程序體是程序的主體部分，由說明部分和執(zhí)行部分組成。（1）說明部分主要是對程序中要使用的標(biāo)號、常量、變量、類型等都要進(jìn)行聲明；（2）執(zhí)行部分指begin與end之間的部分，是程序的核心。最后的end后面必須加“.”，表示程序結(jié)束?！揪毩?xí)】一、選擇題：1. 下面選項中屬于非法的用戶自定義標(biāo)識符的是（ ）。（A）dir；（B）z12；（C）file；（D）list。2. 下列選項中能夠用作用戶自定義標(biāo)識符的是（ ）。（A）TYPE；（B）π；（C）SET；（D）trust。3. 下列符號________是標(biāo)識符。（A）2scaa；（B）Firsttry；（C）nameorhers；（D）numberone4. 以下錯誤的pascal實型數(shù)是__________。（Ａ）；（Ｂ）；（C）23E1；（D）。5. 以下（ ）是pascal合法的數(shù)據(jù)。（A）73e4；（B）e5；（C）.21；（D）1,717,158。6. 表達(dá)式4+3 MOD 8*3的運算結(jié)果為（ ）：（A）13；（B）16；（C）19；（D）21。7. 表達(dá)式(23div3mod4)的值是（ ）：（A）0；（B）2；（C）3；（D）7。8. 設(shè)a,b,c,d,e均為整型變量，且a=6，b=15，c=8，d=9，e=4，則表達(dá)式a+bdivc*dmode的值是（ ）：（Ａ）7；（Ｂ）－６；（C）11；（D）２。9. 下列中錯誤的Pascal表達(dá)式是（ ）：（Ａ）10e6*；（Ｂ）7div15；（Ｃ）20div6/；（Ｄ）div2。10. 下列中合法的關(guān)系表達(dá)式是（ ）。A、’a’99B、20C、1232and5646D、5x1411. 下列屬于合法的常量定義的是（ ）：（A）constx:=；（B）consta:integer=1；（C）constpi=；（D）constbol=bol+1。12. 下列中合法的變量說明是（ ）：（A）varr:real。num:200。（B）vara=real。i=integer。（C）dimred,white:integer。（D）vari1,i2:integer。red,white:real。13. 下列的函數(shù)值是整型的是（ ）（A）succ(false)；（B）ord(true)；（C）chr(23)；（D）odd(98)。14. 把整數(shù)5轉(zhuǎn)換為字符’5’的表達(dá)式是（ ）（A）chr(5)－ord(‘0’)；（B）chr(5－ord(‘0’))；（C）chr(5+ord(‘0’))；（D）chr(5+ord(0))。15. 下面表達(dá)式的結(jié)果值為100的是：（A）trunc(－)；（B）trunc(－100－)；（C）－round(－))；（D）－round(trunc(－100－))。16. 設(shè)x是實型變量，下列表達(dá)式能將x四舍五入后保留兩位小數(shù)的是：（A）round(x)；（B）round(x)/100；（C）round(x*)/100；（D）round(x*)/。17. 表達(dá)式odd(k)orodd(k+1)的值是（ ）：（A）True；（B）False；（C）k；（D）k+1。18．設(shè)有一函數(shù)定義如下： FUNCTION high(x,y:integer):integer。 BEGIN high:=x(x+y) DIV (xy) END。 執(zhí)行語句t:=high(4,high(6,high(4,1)))后，變量t的值是（ ） （A）3 ；（B）3 ；（C）1；（D）0。二、填空題1. 指出下列數(shù)據(jù)屬于什么類型：①２３４０（ ） ②＋３（ ）③’A’（ ）　　　?、躎RUE（ ）⑤（ ）2. 計算：（1）11/4+(3*25)/2=_________（2）33 div 7=_________（3）99 mod 22=_________（4）4div3=_________3. 把改寫成 PASCAL表達(dá)式是______________________。4. 對下面的符號進(jìn)行分類，哪些是保留字，哪些是標(biāo)準(zhǔn)標(biāo)識符？ConstrealandcasetextabsDoincharnewinputthenEndtruecosgetordto5. 計算：（1）ord(‘m’)=________；（2）chr(61)=________。三、思考題1. 取整函數(shù)int與截斷取整函數(shù)trunc有什么區(qū)別？舉例說明。？偶數(shù)又怎樣進(jìn)行判斷？四、程序題1. 編程計算：12+22+32+42+……+1002的值。 第四章 Pascal簡單語句 賦值語句對程序已經(jīng)創(chuàng)建的變量，沒有數(shù)據(jù)是不能進(jìn)行計算的。我們通常使用賦值語句來給變量提供數(shù)據(jù)。程序中所進(jìn)行的各種運算，大多數(shù)是在賦值語句中實現(xiàn)的。1. 賦值語句的一般格式變量名:=表達(dá)式其中“:=”稱為賦值號。例1：常用賦值舉例如下：語句說明a:=3把3的數(shù)值賦給ab:= a*c+12把a*c+12的值賦給bb:=b+1把b+1的值再賦給b這個變量，即累加，相當(dāng)于在b的基礎(chǔ)上再加1。例2：以下賦值語句都是錯誤的：語句說明a:=b:=1不能有兩個賦值號在一個語句中c+2:=4賦值號左邊不能是表達(dá)式d=3少了冒號2. 執(zhí)行過程計算機先計算賦值號右邊表達(dá)式的值，然后將表達(dá)式的值賦給變量名代表的變量。因此，賦值號右邊表達(dá)式必須要有確定的值。3. 注意事項①“:=”不能與“=”混淆。②變量要先說明，在賦值號左邊出現(xiàn)的變量，要在程序頭的說明部先加以說明，否則編譯時出錯。③賦值號兩邊的類型應(yīng)該相同。只有一點可以例外，那就是右邊表達(dá)式的值為整型時，它可以自動轉(zhuǎn)化成實型后賦給一個實型變量。④被賦值的變量本身可以作為因子參與運算，如：n:=n1。i:=i+1。s:=s+x。4. 應(yīng)用舉例例3：寫出執(zhí)行下面的程序后，變量a、b的值。program t1。var a,b:integer。begina:=3。b:=a。a:=b+1。b:=a+3end.a、b變量的變化過程如下：語句變量a變量ba:=3。3b:=a。33a:=b+1。43b:=a+