【正文】 PASCAL表達(dá)式 注意 中學(xué)學(xué)科網(wǎng)學(xué)海泛舟系列資料 :COM 版權(quán)所有 中學(xué)學(xué)科網(wǎng) 4 2a 2*a *號(hào)不能省略 a247。如 a^2（ a的平方）可以化成 a*a。和我們?cè)跀?shù)學(xué)課中學(xué)的基本一樣但在寫(xiě)法上有些不同，在寫(xiě)程序時(shí)要特別注意寫(xiě)法的不同： + 加號(hào)； 減號(hào)； * 乘號(hào) ( 數(shù)學(xué)中寫(xiě)為 )； / 除號(hào) ( 數(shù)學(xué)中寫(xiě)為 247。程序體中 每一語(yǔ)句均以“；”作為結(jié)束符。 writeln。如上，類型“ ar”先在類型說(shuō)明中定義，然后在變量說(shuō)明中引用；變量 i在變量說(shuō)明中定義，在程序中引用。如“ const”開(kāi)始常量說(shuō)明；“ type”開(kāi)始類型說(shuō)明；“ var”開(kāi)始變量說(shuō)明。變量說(shuō)明語(yǔ)句的格式是：“變量名：變量類型；”。 PASCAL 中引用的每個(gè)變量都有“名字”和“類型”屬性。 ar是類型名， array [1..4] of integer是類型說(shuō)明，“；”是語(yǔ)句分隔符。 類型說(shuō)明在保留字“ type”下開(kāi)始。如“ n=4； ”。這樣不但在編寫(xiě)程序的時(shí)候很方便，也增加了程序的可讀性，修改時(shí)更方便。這些量 PASCAL 稱為常量。 type ar=array [1..4] of integer。 它們是用來(lái)標(biāo)記程序中經(jīng)常引用的處理對(duì)象，如常量、函數(shù)。如“pname”、 “i”、 “j”、 “a1”就是合法的標(biāo)識(shí)符；但 “1a”、 “a”是 非法的標(biāo)識(shí)符。如上， “program”就有 “程序從這里開(kāi)始 ”這樣一種特別的意義，而 “const”就有 “常量說(shuō)明從這里開(kāi)始 ”的意義。從鍵盤(pán)讀入 4 個(gè)數(shù)據(jù)，逆序輸出。 readln。 type arr=array [1..4] of integer。 var 變量申明 。 begin 程序體 。 var i:integer。 for i:=n downto 1 do write(a[i]:4)。 一般來(lái)說(shuō)，一個(gè) PASCAL 程序包括以下幾個(gè)部分： 程序頭： program pname。我們不能再用“program”、 “const”來(lái)作為其它變量、常量等的名字。有一點(diǎn)要注意的是，在 PASCAL 中， 字母除了作為字符值或字符串值之外，其大小寫(xiě)是無(wú)關(guān)的 。 （ PASCAL定義的 保留字 和 標(biāo)準(zhǔn)標(biāo)識(shí)符 附后） 標(biāo)識(shí)符在命名的時(shí)候要注意： 名字要易記易讀，有意義。 var i:integer。在程序中用到這個(gè)值的地方均用常量名來(lái)代替。 中學(xué)學(xué)科網(wǎng)學(xué)海泛舟系列資料 :COM 版權(quán)所有 中學(xué)學(xué)科網(wǎng) 3 常量說(shuō)明在保留字“ const”下開(kāi)始。 n是常量名， 4是該常量的值，“；”是語(yǔ)句分隔符?？梢杂卸鄠€(gè)語(yǔ)句。 var部分是變量說(shuō)明。變量說(shuō)明“說(shuō)明”的主要工作是告訴 PASCA下面程序中要用到這個(gè)名字的量，同時(shí)這個(gè)量的類型是什么。其中，如果有多個(gè)變量同一類型，則變量名與變量名之間用逗號(hào)分隔，變量名與變量類型之間用冒號(hào)分隔。一個(gè)程序包含多少種類型的說(shuō)明，看需要而定，不是每一個(gè)程序都必須同時(shí)包含這三種說(shuō)明。 程序體： begin for i:=1 to n do read(a[i])。 end. 程序體是以 begin 。在書(shū)寫(xiě)程序時(shí)，以“分層縮進(jìn)”的風(fēng)格來(lái)寫(xiě)，以便提高程序的可讀性。 )； MOD 取余 如： 8 MOD 2=0,7 MOD 2=1,2 MOD 3=2； DIV 取整 如 ： 8 DIV 2=4， 7 DIV 2=3， 2 DIV 3=0。 大于； 小于； 不等于 (數(shù)學(xué)中寫(xiě)為 ≠ )； = 小于等于 (數(shù)學(xué)中寫(xiě)為≤ )； = 大于等于 (數(shù)學(xué)中寫(xiě)為 ≥ )， 變量、常量通過(guò)運(yùn)算符連接起來(lái)的式子我們稱為表達(dá)式。 b a/b 除號(hào)的寫(xiě)法 a≠ b ab 不等號(hào)的寫(xiě)法 a≤ b a=b 小于等于號(hào)的寫(xiě)法 標(biāo)準(zhǔn)數(shù)據(jù)類型：整型 實(shí)型 字符型 布爾型 數(shù)據(jù)類型可以理解為一個(gè)取值范圍和定義在這取值范圍上的運(yùn)算規(guī)則。同理，在 PASCAL 中“數(shù)據(jù)類型”也是一個(gè)取值范圍和在它上面定義的運(yùn)算規(guī)則。 PASCAL 使用的保留字有： AND、 ARRAY、 BEGIN、 CASE、 CONST、 DIV、 DO、 DOWNTO、 ELSE、 END、 FILE、FOR、 FUNCTION、 GOTO 、 IF、 IN、 LABEL、 MOD、 NIL、 NOT、 OF、 PACKED、 PROCEDURE、PROGRAM、 RECORD、 REPEAT、 SET、 THEN、 TO、 TYPE、 UNTIL、 VAR、 WHILE、WITH、 FORWARD 常用的標(biāo)準(zhǔn)標(biāo)識(shí)符有： 標(biāo)準(zhǔn)常量： FALSE TRUE MAXINT MAXLONGINT 標(biāo)準(zhǔn)類型： INTEGER BOOLEAN REAL CHAR TEXT 標(biāo)準(zhǔn)文件： INPUT OUTPUT 標(biāo)準(zhǔn)函數(shù)： ABS ACTAN CHR COS EOF ELON EXP LN ODD ORD PRED ROUND SIN SQR SQRT SUCC TRUNC 標(biāo)準(zhǔn)過(guò)程： ASSIGN GET NEW DISPOSE PACK PUT READ READLN RESET REWRITE UNPACK WRITE WRITELN 函數(shù)格式： function fun_name(參數(shù)表 ):數(shù)據(jù)類型 。 例題：寫(xiě)出計(jì)算兩個(gè)整數(shù) a,b 的和函數(shù) add(a,b)。 中學(xué)學(xué)科網(wǎng)學(xué)海泛舟系列資料 :COM 版權(quán)所有 中學(xué)學(xué)科網(wǎng) 5 操作一 操作二 end。 var s:real。 procedure myproc。Please input two number a,b:39。 writeln(39。 {============= main program ================} begin myproc。對(duì)于任何一個(gè)變量必須首先賦值，然后才能引用，否則，未賦初值的變量將以一個(gè)隨機(jī)值參與運(yùn)算。 Age:=20。 b:=2。 end. 輸入語(yǔ) 句 通過(guò)計(jì)算機(jī)的外設(shè)把數(shù)據(jù)送到計(jì)算機(jī)內(nèi)存的過(guò)程稱為輸入。例如 a， b， c為整型變量，read(a,b,c)之后，鍵盤(pán)輸入： 20 30 40 CR(CR表示回車 )，結(jié)果： a=20， b=30， c=40 readln語(yǔ)句和 read 語(yǔ)句不同之處在于輸入數(shù)據(jù)到各變量 之后， readln 自動(dòng)換行，從下一行開(kāi)始再輸入數(shù)據(jù)。readln 等價(jià)于 readln(a,b) 輸入語(yǔ)句輸入的數(shù)據(jù)類型必須和變量一一對(duì)應(yīng)。 writeln(輸出項(xiàng)表 )。 writeln 語(yǔ)句允許不含有輸出項(xiàng)，即僅 writeln。 單域?qū)捿敵龈袷剑?writeln(I： n)。 雙域?qū)捿敵龈袷剑?writeln(a： n： m)。原來(lái)的數(shù) 據(jù)按該該格式指定的小數(shù)位數(shù)四舍五入。 const s=39。c:char。a39。)。,r,r:6:1)。 writeln(39。復(fù)合語(yǔ)句的一般形式： begin 語(yǔ)句 1。 例：變量值的交換 program swap。 begin t:=a。 writeln(39。,b) end. 例題 1：輸入 圓的半徑，求出圓的周長(zhǎng)和面積： Progam CalCircle。 C:=2*Pi*R。{sqr(R)=R*R} write(?面積 =?,S)。 {計(jì)算圓環(huán)面積的程序 ， R2 表示外圓環(huán)的半徑 ， R1 表示內(nèi)圓環(huán)的半徑 ， R2R1} var R1,R2:Real。 S:real。 計(jì)算公式： ( ) ( ) ( )2s p p a p b p cabcp? ? ? ???? Pascal 程序中計(jì)算平方根的函數(shù)為： sqrt(x)。 輸入分?jǐn)?shù)→ score。有兩種形式的 IF 語(yǔ)句： if 布爾表達(dá)式 then 語(yǔ)句 ； if 布爾表達(dá)式 then 語(yǔ)句 1 else 語(yǔ)句 2； 當(dāng)布爾表達(dá)式的值為真，則執(zhí)行 then 后面的語(yǔ)句 ，值為假時(shí)有兩種情況：要么什么也不做，要么執(zhí)行 else后面的語(yǔ)句。 var score:real。 end。 if x=0 then y:=0。,y)。 program lianxi。,x)。,x1)。 end。 end。 end。編一程序完成自動(dòng)計(jì)費(fèi)工作。 第三節(jié) Case 分支結(jié)構(gòu) case 語(yǔ)句是由一個(gè)表達(dá)式和眾多可選擇的操作序列組成。 …… 常量 n:語(yǔ)句 n。 case 語(yǔ)句執(zhí)行和表達(dá)式值相匹配的 case常數(shù)所指向的那條語(yǔ)句，如果沒(méi)有相匹配的值，則執(zhí)行 else 部分（如果有的話）或者什么也不做。 Program JudgeScore2。 60..89:{ 60 90x?? } writeln(?及格 ?)。 end。 begin write(39。 if(s=0)and(s=100)then case s div 10 of 10,9:ch:=39。 7,6:=39。 end。 end. 練習(xí)： 我們把字母作如下的分類：大寫(xiě)字母 :?A?..?Z?；小寫(xiě)字母 :?a?..?z?。 第四節(jié) for 循環(huán)結(jié)構(gòu) 程序設(shè)計(jì)時(shí)我們經(jīng)常要做一些重復(fù)的任務(wù)通過(guò)反復(fù)的執(zhí)行某一個(gè)動(dòng)作來(lái)完成任務(wù)，編寫(xiě)這一類程序我們使用循環(huán) 結(jié)構(gòu)來(lái)實(shí)現(xiàn)。 例題 1:輸入正整數(shù) N，計(jì)算 1Ni i?? 分析： 1Ni i?? ＝ 1+2+3+…+N, 因此我們必需重復(fù)的執(zhí)行 S:=S+i，其中 S 代表和， S=1 {i=1} S=1+2 {i=2} S=1+2+3 {i=3} S=1+2+3+4 {i=4} …. S=1+2+3+4+…+N {i=N} i 從 1 變化到 N，計(jì)算前 I項(xiàng)的和： 1+2+3+…+I ，寫(xiě)成 Pascal 代碼如下： For i:=1 to N DO S:=S+i。 S:=0。其基本過(guò)程如下： 1. 計(jì)算初值并記憶 2. 判斷初值是否超出終值、如果超過(guò)則執(zhí)行步驟 7,否則執(zhí)行步驟 3 3. 把初值賦給控制變量 4. 執(zhí)行 do 后面的語(yǔ)句（循環(huán)體 ) 5. 判斷控制變量的值 是否達(dá)道終值，如果是則執(zhí)行步驟 6,否則執(zhí)行步驟 7 6. 控制變量取下一個(gè)值 (升序取后繼，降序取前驅(qū) ) 7. (循環(huán)結(jié)束 )執(zhí)行下一語(yǔ)句 . 例題：編寫(xiě)程序輸出序號(hào)從 32 到 126 的 ASCII字符與對(duì)應(yīng)代 碼之間的對(duì)應(yīng)關(guān)系。 begin for i := 32 to 126 do begin if (j mod 5 = 0) then writeln。 end. 程序說(shuō)明： 標(biāo)準(zhǔn)函數(shù) chr(i)可以得到代碼為 i 的字符。語(yǔ)句 write(i: 5, chr(i): 2)。 第五節(jié) while、 repeat 循環(huán)結(jié)構(gòu) While 語(yǔ) 句是另外一種實(shí)現(xiàn)循環(huán)的語(yǔ)句，一般形式如下： While 條件 do 語(yǔ)句 While 循環(huán)的執(zhí)行過(guò)程如下： 1. 判斷條件是否成立，條件成立時(shí)執(zhí)行步驟 2,否則執(zhí)行步驟 4 2. 執(zhí)行 do 后面的語(yǔ)句（循環(huán)體 ) 3. 返回步驟 1 中學(xué)學(xué)科網(wǎng)學(xué)海泛舟系列資料 :COM 版權(quán)所有 中學(xué)學(xué)科網(wǎng) 13 4. 結(jié)束循環(huán)，執(zhí)行下一語(yǔ)句 注意：一定要有使條件取假 (False)的時(shí)候，否則會(huì)出現(xiàn)死循環(huán)。計(jì)算總分； Pascal 代碼： while score = 0 do begin readln(score)。 var score: integer。輸入學(xué)生分?jǐn)?shù)： 39。 while score = 0 do begin readln(score)。總分為： 39。 Repeat 語(yǔ)句 。 var score: integer。輸入學(xué)生分?jǐn)?shù)： 39。 total := total + score。, total)。所謂水仙花數(shù)，是指一個(gè)三位數(shù) abc ，如果滿足 3 3 3a b c abc? ? ? ，則abc 是水仙花數(shù)。） 求兩個(gè)數(shù)的最小公倍數(shù)和最大公約數(shù)。譯碼規(guī)則是以數(shù)字 1代替字母 A，數(shù)字 2 代替字母 B， …… ， 26 代替字母 Z，如遇空格則打印一個(gè)星號(hào) ?*?，英文句子以 ?.?結(jié)束。 輸入一個(gè)正整數(shù) N，把它分解成質(zhì)因子相乘的形式。 1 一個(gè)數(shù)如果恰好等于它的因子之和，這個(gè)數(shù)就稱為“完數(shù)”。 第六節(jié) 數(shù)據(jù)類型 簡(jiǎn)單數(shù)據(jù)類型 Pascal 語(yǔ)言基本數(shù)據(jù)類型由： integer(longint,shortint,byte),real,char,。習(xí)慣上我們?cè)? 自定義類型名稱前加上“ T”，如 TCol