【正文】 och:=ord(ch)。 y:=sh(1+sh(x))/(sh(2*x)+sh(3*x))。 VAR x,y:real。函數(shù)體對形式參數(shù)進行處理，處理結(jié)果賦給函數(shù)名，作為函數(shù)結(jié)果傳給調(diào)用它的程序。 BEGIN sh:=(exp(t)exp(t))/2 END。Qi Ta Fu Hao Ge Shu: 39。 END。 BEGIN ZiMu:=0。Friday39。)。Sunday39。 readln(a) write(“San Jiao Xing Gao:”)。有六個關系運算符，它們是__、=、=、=、__。（3）Pascal程序可以分為三個部分，請將這三個部分的名稱填入下面括號中（3）PROGRAM circle(input,output)。每一行的第一個值應往左移3格，最大數(shù)是3位整數(shù)，每個數(shù)之間留3個空格，因此輸出值的場寬可以定義為6。+39。 END。)。 END。使得even=p+q即1+1問題。將4~2*s（s≤1000）中的所有偶數(shù)分別用兩個素數(shù)之和表示。 END。PROGRAM T75_007。用……去除，如果都除不盡，則i是素數(shù)。T75_007 求1~100之間的素數(shù)(質(zhì)數(shù)).素數(shù)是大于1，且除了1和它本身外，不能被其它任何整數(shù)所整除的整數(shù)。算法可以自頂向下、由粗到細，逐步求精。如果數(shù)據(jù)定義有錯，描述算法是困難的，甚至是不可能的。…read(ch)。當一開始布爾表達式就為假時，循環(huán)體根本不執(zhí)行。,Fu,39。 Ling:=0。 IF maximaln THEN maximal:=n。 VAR i:integer。 VAR s,n,a:integer。 BEGIN sum:=0。 VAR s,n:integer。 VAR n,i,sum:integer。 FOR n:=1 TO 10 DO s:=s+n。有時是難以完成的。28real57。l:=2*PI*r。XT3_8 輸入x、y及象限，計算z。XT3_3 輸入某學生成績，若成績在85分以上，輸出very good，若成績在60分到85分之間，輸出good，若成績低于60分，輸出no good。 writeln(39。 CONST PI=。 2:IF(year MOD 4 = 0) AND (year MOD 100 0) OR (year MOD 400 = 0) THEN days:=29 ELSE days:=28 END。閏年的條件可以寫成如下的布爾表達式：(year MOD 4 = 0) AND (year MOD 100 0) OR (year MOD 400 = 0)PROGRAM L3_5。值表是一些由逗號分開的常數(shù)。例如語句：IF （條件1） THEN IF （條件2） THEN （語句1） ELSE （語句2）我們可以認為ELSE與后一個THEN配對，其流程圖如圖3_8(1)所示。,x:8:2,39。y=?39。例L3_3 讀兩個數(shù)，將大數(shù)存于x，小數(shù)存于y。 IF ab THEN a:=b。 write(39。在條件為假時，不執(zhí)行THEN后的語句，在兩種情況下的后繼語句都是IF語句的下一個語句。weight=39。輸出pay。若超過50kg。我們稱這種程序結(jié)構(gòu)為選擇結(jié)構(gòu)（或稱判定結(jié)構(gòu)）。XT2_10 輸入一個三位整數(shù)，將它們反向輸出。y4 (2)sin2(x+)+3cos(2x+4)+tan1x (3)u0(1+)(4) (5) (6)(7) (8)|3exln(1+x)| (9) (10)XT2_4 寫一程序讀入三角形的三個邊a，b，c，計算并打印三角形的面積S。 write(bool)。x=?39。圓環(huán)如圖所示。 write(39。 VAR ch,pch,sch:char。 VAR a,b,alfa,c,s:real。在這里，場寬是指輸出值的位數(shù)。它的一般形式是write(輸出表)其中輸出表是一些由逗號分開的輸出項。標識符的長度一般不要超過8個字符。 writeln(A1 AND A1)。如‘0’對應48，‘1’對應49，‘A’對應65，‘B’對應66。在PASCAL，實數(shù)有兩種表示方法：小數(shù)表示法和指數(shù)表示法（或稱科學表示法）。被小括號及星號（* *）括起來的內(nèi)容也是注釋。PROGRAM circle(input,output)。 (*第11行：輸出語句*) END. (*第12行：*)程序的第一行為程序首部，每個PASCAL程序都必須以PROGRAM 開頭；circle是本程序的名字，每個程序的名字可以不同；圓括號里的內(nèi)容稱為程序的參數(shù)，程序參數(shù)指明程序與外部聯(lián)系的文件名，input是標準輸入文件，例如鍵盤打字機，output是標準輸出文件，指屏幕顯示器或打印機，為了讀入數(shù)據(jù)和輸出結(jié)果，必須寫上文件參數(shù)input和output。讓我們先來看一個PASCAL程序，通過這個程序了解PASCAL的規(guī)則。該系統(tǒng)由通信網(wǎng)絡、信息設備、信息資源和信息環(huán)境組成。人工智能：利用計算機來模仿人類的智力活動。馮信息學奧林匹克競賽培訓教案(PASCAL語言)授課：陳浩Email：hao_ch ：651764546第1章 計算機的發(fā)展與應用 計算機發(fā)展簡史 第一臺電子計算機的誕生1946年，世界上第一臺數(shù)字式電子計算機由美國賓夕法尼亞大學的物理學家約翰諾依曼型計算機是采用存儲程序方式進行工作。自動控制：利用計算機對動態(tài)的過程進行控制、指揮和協(xié)調(diào)。 我國的“三金”工程金橋工程即國家公用經(jīng)濟信息通信網(wǎng)絡工程，是我國信息化建設的基礎設施之一。例L1_1 已知半徑，求圓周長和面積的程序PROGRAM circle(input, output)。從第三行到最后一行為程序的分程序。 CONSTPI=。注釋除了給人看，以增加程序的可讀性外，對編譯和運行都不起作用，一個程序可以包含多個出現(xiàn)在不同地方的注釋，也可以沒有注釋。，以科學表示法表示這些數(shù)，可以寫成，+2，0e0，1e2在科學表示法中，e后的數(shù)字代表10的冪。與字符有關的幾個函數(shù)函數(shù)功能舉例ord()返回與字符對應的序號ord(‘A’)=65chr()返回與數(shù)字對應的字符chr(65)=’A’pred()返回前一字符pred(‘B’)=Asucc()返回后一字符succ(‘A’)=B用函數(shù)可取得對應的序號，用布爾型（boolean）布爾類型的值只有兩個：false（假）和true（真）。 writeln(A0 or A0)。標識符的選取最好有一定意義，這樣便于記憶，也增加了程序的可讀性。例如：write(x,y,x+y,x*y)若x的值為2，y的值為3（整數(shù)類型），則輸出結(jié)果為：2 3 5 6為了標記輸出結(jié)果，可輸出相應的字符串。數(shù)據(jù)類型場寬實型以科學表示法輸出，占16位整型12位字符型1位布爾型輸出true或false，分別占5位和4位當輸出值不滿規(guī)定場寬時，左面用空格代替。 BEGIN read(a,b,alfa)。 num:integer。pch:39。討論：如圖所示，若下式1≤x2+y2≤4成立則在圓環(huán)內(nèi)，否則在圓環(huán)外。)。 END.習題XT1_1 判斷下列標識符，哪些是合法的？哪些是非法的？x3，3x，a17，p5q，π，β，ε，abcd，x2，XT1_2 輸入三個數(shù)，計算并輸出它們的平均值以及三個數(shù)的乘積，寫出程序。可利用下列公式計算。例如輸入127，輸出應為721。PASCAL中有兩個語句可實現(xiàn)選擇結(jié)構(gòu)：IF語句（條件語句）和CASE語句（情況語句） IF語句 IF語句的兩種形式條件語句2語句1假真IF語句又稱如果語句（或稱條件語句）?，F(xiàn)輸入托運行李重量，要求計算并輸出托運費。其中第2步需求精。)。例L3_2 讀入三個數(shù)，找出并打印其中的最大數(shù)。b=?39。 IF ac THEN a:=c。解：PROGRAM L3_3。)。,y=39。但是，我們也可以認為ELSE與前一個THEN配對，其流程圖如圖3_8(2)所示。表達式所有可能的值必須在值表中出現(xiàn)，且每個值只能出現(xiàn)一次。 VAR year,month,days:integer。 writeln(‘year=’,year,’,month=’,month,’,days=’days) END.例L3_6 輸入兩個運算量及一個運算符，輸出運算結(jié)果。 VAR x,y,z:real。x=39。XT3_4 輸入3個數(shù)，將其中最小數(shù)輸出。z的計算公式同XT3_7題，要求用CASE語句編程序。s:=PI*r*r。29round四舍五入，取其整數(shù)在第1題例中，語句write與writeln有何不同__________________。循環(huán)結(jié)構(gòu)程序設計可以幫助我們有效地解決這一難題。 writeln(‘s=’,s) END.T75_012 計算n!（n!=123…n）T75_013 輸入10個任意整數(shù)，求它們的和PROGRAM T75_001。 BEGIN read(n)。 BEGIN s:=0。 FOR i:=1 TO 10 DO BEGIN read(n)。 BEGIN s:=0。 BEGIN writeln()。 END。 FOR i:=1 TO 20 DO BEGIN read(n)。 Ling You: 39。在WHILE語句中一定要有能改變布爾表達式值的語句，否則循環(huán)將不會結(jié)束。IF (ch=a) AND (ch=z)…IF ch=’a’ AND ch=’z’…IF ‘a(chǎn)’=ch=’z’…三種循環(huán)語句的相同點與不同點FORWHILEREPEAT語句格式FOR 循環(huán)變量：=初值 TO 終值 DO 語句WHILE 布爾表達式 DO循環(huán)體REPEAT循環(huán)體UNTIL 布爾表達式循環(huán)變量賦值布爾表達式無循環(huán)變量循環(huán)次數(shù)確定，由初值和終值決定不確定，由循環(huán)體前的布爾表達式?jīng)Q定，當值為“假”時，結(jié)束循環(huán)。 定義數(shù)據(jù)要求清楚地了解問題。描述問題由粗到細的過程，一般可以分為三步：一級算法二級求精寫出程序四、多重循環(huán)如果一個循環(huán)結(jié)構(gòu)的內(nèi)部（循環(huán)體）又包括一個循環(huán)結(jié)構(gòu)，就稱為多重循環(huán)結(jié)構(gòu)。討論：根據(jù)素數(shù)的定義可知1117等是素數(shù)。這是因為，如果小于等于的數(shù)都除不盡i，則大于的數(shù)也不能除盡i。 VAR i,n,yn,counter:integer。{WHILE} IF yn0 THEN BEGIN counter:=counter+1。例如s=50，則輸出4=2+26=3+38=3+5……100=3+97討論：哥德巴赫猜想是一個古老而著名的數(shù)學難題。此問題還未得到最后的證明。3n:=2WHILE nsqrt(q) DO BEGIN n:=n+1。 read(even)。{WHILE1} n:=1。,q)。這是一個二重循環(huán)問題，且內(nèi)循環(huán)n的次數(shù)依賴于外循環(huán)m（對應每行輸出不同的個數(shù)）。 CONSTPI=。有三個邏輯運算符，它們是__AND、OR、NOT___。 readln(h)。)。 3:writeln(39。)。 ShuZi:=0。 writeln(39。,FuHao) END.第10課 函數(shù)（一）20080414以前我們用過由PASCAL系統(tǒng)提供的標準函數(shù)，例如sqrt()（開方）、ord()（取數(shù)字）、pred()（取前導字符）、abs()（絕對值）等。函數(shù)首部函數(shù)語句部分（函數(shù)體）函數(shù)說明部分函數(shù)分程序按此寫出的雙曲正弦函數(shù)說明如下：函數(shù)說明的第一行稱函數(shù)首部。此例中沒有說明部分。 FUNCTION sh(t:real):real。 writeln(39。pch:=pred(ch)。如下面PASCAL語句：c:=sqrt(a*a+b*b2*a*b*cos(alfa))。,x:6:2