【正文】 調(diào)用函數(shù)的書寫一般格式：函數(shù)名(參數(shù)表)函數(shù)的參數(shù)。pch:=pred(ch)。如下面PASCAL語句：c:=sqrt(a*a+b*b2*a*b*cos(alfa))。討論：求五邊形的面積可以變成求3個(gè)三角形面積的和。,y:6:2) END.l1l2l3l4l5l6l7S1S2S3函數(shù)調(diào)用的一般形式為函數(shù)名（實(shí)在參數(shù)表）T85_002 求五邊形的面積（如圖）。 writeln(39。,x:6:2)。 writeln(39。 END。 FUNCTION sh(t:real):real。T85_001的程序如下：PROGRAM T85_001。然后在程序中需要調(diào)用的地方，將函數(shù)名和相應(yīng)的自變量（稱實(shí)在參數(shù)）寫在表達(dá)式中即可。這個(gè)值作為函數(shù)執(zhí)行的結(jié)果被回送。此例中沒有說明部分。語句部分又稱函數(shù)體，它必須用BEGIN和END括起來 。它由說明部分和語句部分構(gòu)成。在此例中，函數(shù)名是sh，參數(shù)表是(t:real)，在參數(shù)表中給出了形式參數(shù)t和它的類型real，函數(shù)類型是real。函數(shù)首部函數(shù)語句部分（函數(shù)體）函數(shù)說明部分函數(shù)分程序按此寫出的雙曲正弦函數(shù)說明如下：函數(shù)說明的第一行稱函數(shù)首部。已知計(jì)算雙曲正弦的公式如下：FUNCTION sh(t:real):real。已知其中sh是雙曲正弦函數(shù)，它不是PASCAL 的標(biāo)準(zhǔn)函數(shù)。函數(shù)使用方便實(shí)用，但PASCAL提供的標(biāo)準(zhǔn)函數(shù)并不多，不能滿足一些復(fù)雜問題的求解，這時(shí)就需要定義新的函數(shù)。,FuHao) END.第10課 函數(shù)（一）20080414以前我們用過由PASCAL系統(tǒng)提供的標(biāo)準(zhǔn)函數(shù)，例如sqrt()（開方）、ord()（取數(shù)字）、pred()（取前導(dǎo)字符）、abs()（絕對值）等。 writeln(39。Shu Zi Ge Shu: 39。,ZiMu)。 writeln(39。 IF (chA) AND (chZ) OR (cha) AND (chz) THEN ZiMu=ZiMu+1 ELSE IF ord(ch)=48 AND ord(ch)=57 THEN ShuZi:=ShuZi+1 ELSE FuHao:=FuHao+1。 BEGIN read(ch)。 WHILE ch39。 ShuZi:=0。 ZiMu,ShuZi,FuHao:integer。 END.1PROGRAM T75_002。Saturday39。)。 5:writeln(39。Thursday39。)。 3:writeln(39。Tuesday39。)。 1:writeln(39。)。 CASE n 0:writeln(39。Please input a number from 0 to 6 for weekday:39。 VAR n,integer。 readln(h)。 BEGIN write(“San Jiao Xing Di:”)。錯(cuò)誤一：第2行少“VAR”；錯(cuò)誤二：第5行少分號(hào)；錯(cuò)誤三：第8行，字符串應(yīng)用單引號(hào)，題中用了雙引號(hào)；錯(cuò)誤四：第8行字符串與變量之間少逗號(hào)。（3）請將下列實(shí)型數(shù)據(jù)用另一種表示法表示（6）小數(shù)表示法科學(xué)表示法小數(shù)表示法科學(xué)表示法+11001e+2+2+1將下列代數(shù)式寫成Pascal的表達(dá)式（4）（1）a(md)4247。有三個(gè)邏輯運(yùn)算符，它們是__AND、OR、NOT___。 END.（ 程序首部 ）（ 說明部分 ）（ 語句部分 ）在Pascal中，（15）有六個(gè)算術(shù)運(yùn)算符，它們是__+、*、/、MOD、DIV___。s:=PI*r*r。 BEGINread(r)。 CONSTPI=。（5）盡可能多地寫出你知道的函數(shù)名稱及功能（20）函數(shù)功能函數(shù)功能例：sqrt()開方round( )四舍五入，取整數(shù)abs( )絕對值exp( )以e為底的指數(shù)sqr( )平方ln( )以e為底的自然對數(shù)ord( )取序號(hào)sin( )正弦函數(shù)chr( )取字符cos( )余弦函數(shù)pred( )前導(dǎo)字符arctan( )余切函數(shù)succ( )后繼字符odd( )奇函數(shù)trunc( )去掉小數(shù)部分寫出四種標(biāo)準(zhǔn)數(shù)據(jù)類型標(biāo)識(shí)符（4）實(shí)型 real 整型 integer字符型 char 布爾型 boolean從程序的結(jié)構(gòu)看，PASCAL程序的四種基本結(jié)構(gòu)包括：_順序結(jié)構(gòu)_、__選擇結(jié)構(gòu)_、__循環(huán)結(jié)構(gòu)__、函數(shù)與過程結(jié)構(gòu)。但標(biāo)準(zhǔn)PASCAL規(guī)定能區(qū)分的有效標(biāo)識(shí)符長度是__8__。標(biāo)識(shí)符可用來表示_常量_、__變量__、類型、文件、函數(shù)、過程、程序的名字。這是一個(gè)二重循環(huán)問題，且內(nèi)循環(huán)n的次數(shù)依賴于外循環(huán)m（對應(yīng)每行輸出不同的個(gè)數(shù)）。上列楊輝三角形可以寫成： …… …… …… …… 已知可以由遞推公式計(jì)算為了輸出三角形，我們將中心線位置定在40格處。)。{FOR} END{IF} ELSE writeln(39。,q)。,p,39。{WHILE2} IF (pyn=1) AND (qyn=1) THEN writeln(even,39。 IF q MOD n=0 THEN qyn:=0。{WHILE1} n:=1。 IF p MOD n=0 THEN pyn:=0。 qyn:=1。 n:=1。 read(even)。Please input a even:39。 VAR even,p,q,n,pyn,qyn:integer。 END。3n:=2WHILE nsqrt(q) DO BEGIN n:=n+1。 IF p MOD n=0 THEN pyn:=0。如果p、q均為素?cái)?shù)，則輸出結(jié)果，否則將p加1再試。讀入偶數(shù)even，將它分成p和q，使even=p+q。此問題還未得到最后的證明。而真正的哥德巴赫猜想是：對任一充分大的偶數(shù)even，可以找到兩個(gè)素?cái)?shù)p、q。使得even=p+q*r*s這也稱為1+3問題陳景潤證明出：對任一充分大的偶數(shù)even，可以找到3個(gè)素?cái)?shù)p、q、r。在這方面中國數(shù)學(xué)家陳景潤的研究成果處于世界領(lǐng)先地位。例如s=50，則輸出4=2+26=3+38=3+5……100=3+97討論：哥德巴赫猜想是一個(gè)古老而著名的數(shù)學(xué)難題。{FOR} END.T75_008 哥德巴赫猜想驗(yàn)證哥德巴赫猜想（任何充分大的偶數(shù)都可由兩個(gè)素?cái)?shù)之和表示）。 END。 , 39。{WHILE} IF yn0 THEN BEGIN counter:=counter+1。 IF i MOD n=0 THEN yn:=0。 yn:=1。 counter:=0。 VAR i,n,yn,counter:integer。二級(jí)求精 用2到去除i，看看能否除盡 11 yn:=1 12 WHILE nsqrt(i) DO BEGIN n:=n+1 IF i MOD n=0 THEN yn:=0 END為了每行輸出5個(gè)數(shù)，還需增加一個(gè)變量counter來計(jì)數(shù)。用變量yn來表示是否除盡。這是與原命題（小于等于的數(shù)都除不盡i）相矛盾的，假設(shè)不成立，原命題得到證明。這是因?yàn)?，如果小于等于的?shù)都除不盡i，則大于的數(shù)也不能除盡i。下面介紹的是其中一種辦法。當(dāng)i較大時(shí)，用這種辦法，除的次數(shù)太多。為了判斷某數(shù)i是否為素?cái)?shù)，一個(gè)最簡單的辦法是用……、i1這些數(shù)逐個(gè)去除i，看能否除盡。討論：根據(jù)素?cái)?shù)的定義可知1117等是素?cái)?shù)。在設(shè)計(jì)多重循環(huán)時(shí)，要特別注意內(nèi)、外循環(huán)之間的關(guān)系，以及各語句安放的位置，不要搞錯(cuò)?？梢园凑涨短讓哟螖?shù)，分別叫做二重循環(huán)、三重循環(huán)等。因?yàn)槿我谎h(huán)語句的循環(huán)體部分都可以包含另一個(gè)循環(huán)語句，這種循環(huán)語句的嵌套為實(shí)現(xiàn)多重循環(huán)提供了方便。描述問題由粗到細(xì)的過程，一般可以分為三步：一級(jí)算法二級(jí)求精寫出程序四、多重循環(huán)如果一個(gè)循環(huán)結(jié)構(gòu)的內(nèi)部（循環(huán)體）又包括一個(gè)循環(huán)結(jié)構(gòu)，就稱為多重循環(huán)結(jié)構(gòu)。問題解的描述在對問題有了清楚的分析后，可以仔細(xì)地構(gòu)造求解步驟——算法。它可以用來代表存儲(chǔ)數(shù)據(jù)項(xiàng)的計(jì)算機(jī)存儲(chǔ)單元，而不必考慮與每個(gè)變量名相聯(lián)系的實(shí)際存儲(chǔ)單元。一旦標(biāo)識(shí)了輸入輸出，我們要問，為了從給定的輸入計(jì)算輸出，是否有足夠的信息可利用？如果沒有，必須確定附加的信息，以及提供這些信息的手段。 定義數(shù)據(jù)要求清楚地了解問題。然而在構(gòu)造算法前，應(yīng)盡可能完全和仔細(xì)地招待數(shù)據(jù)定義。這兩個(gè)任務(wù)不是完全無關(guān)的。至少有一次循環(huán)循環(huán)體多語句時(shí)，需用BEGIN和END多語句時(shí)，需用BEGIN和END多語句時(shí)，不需用BEGIN和END用計(jì)算機(jī)解題的基本方法問題分析計(jì)算機(jī)是用于表示和處理數(shù)據(jù)的工具。IF (ch=a) AND (ch=z)…IF ch=’a’ AND ch=’z’…IF ‘a(chǎn)’=ch=’z’…三種循環(huán)語句的相同點(diǎn)與不同點(diǎn)FORWHILEREPEAT語句格式FOR 循環(huán)變量：=初值 TO 終值 DO 語句WHILE 布爾表達(dá)式 DO循環(huán)體REPEAT循環(huán)體UNTIL 布爾表達(dá)式循環(huán)變量賦值布爾表達(dá)式無循環(huán)變量循環(huán)次數(shù)確定，由初值和終值決定不確定，由循環(huán)體前的布爾表達(dá)式?jīng)Q定，當(dāng)值為“假”時(shí)，結(jié)束循環(huán)?！璫h:char。但是標(biāo)準(zhǔn)函數(shù)是如何計(jì)算sin(x)的呢？通過這個(gè)例子，將使我們對此有所了解，并可作為使用REPEAT語句的例子。REPEAT語句的一般形式如下：REPEAT循環(huán)體UNTIL 布爾表達(dá)式T75_003 計(jì)算 直到最后一項(xiàng)的絕對值小于107時(shí)停止計(jì)算，x由鍵盤輸入。在WHILE語句中一定要有能改變布爾表達(dá)式值的語句，否則循環(huán)將不會(huì)結(jié)束。每次執(zhí)行循環(huán)體后，再次檢查布爾表達(dá)式，如果它仍為真，繼續(xù)執(zhí)行循環(huán)體，否則循環(huán)結(jié)束，執(zhí)行WHILE語句后的下一語句。執(zhí)行該語句時(shí)，首先檢查布爾表達(dá)式的值，如果它為真，則執(zhí)行循環(huán)體。這種循環(huán)不可能由FOR語句實(shí)現(xiàn)，PASCAL為此提供了WHILE語句和REPEAT語句。 Ling You: 39。 Fu Shu You: 39。Zheng Shu You: 39。 END。 FOR i:=1 TO 20 DO BEGIN read(n)。 Fu:=0。 VAR i,n,Zheng,Fu,Ling:integer。max=39。 END。 FOR i:=1 TO 19 DO BEGIN read(n)。 VAR maximal,i,n:integer。 writeln()。 BEGIN writeln()。,s) END.PROGRAM T75_015。 writeln(39。 s:=s+a。 BEGIN s:=0。,ave:6:2) END.PROGRAM T75_013。 writeln(39。 END。 FOR i:=1 TO 10 DO BEGIN read(n)。 i,n,sum:integer。,s) END.PROGRAM T75_014。 writeln(39。 BEGIN s:=0。 END.PROGRAM T7