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