1、第三節常量和變量 常量是指在程序中使用的一些具體的數、字符、字符串和布爾值。在程序運行過程中，其值不能被更改。如123,145.88,my name is,TRUE等 （1）整型數：如3、-5、0等。 （2）實型數：如3.1、-6.1E+2（科學記數法）。 （3）字符串：是用單引號括起來的一串字符，如 Book、96.5、-。第1頁/共24頁常量的定義 const = ;例如 const st = 60; a = -st + 30; p = 3.1415926; 第2頁/共24頁 Free Pascal中預定義了如下幾個常量標識符，這些常量可以直接在程序中使用。 Pi = 3.14159265

2、35897932/的值 Maxint = 32767/整型integer允許的最大值 Maxlongint = 2147483647/長整型longint允許的最大值 FALSE = 布爾假，TRUE = 布爾真第3頁/共24頁 例例2.10 已知半徑r，求圓的周長及面積。 Program ex2_10; const r = 3.6; /定義了一個其值為3.6的實型常量 var c,s : real; begin c := 2*pi*r; s := pi*r*r; writeln(c=,c:10:2); writeln(s=,s:10:2); end.第4頁/共24頁變量 變量的命名規則：“自

3、定義標識符”的命名規則為：自定義標識符必須以字母（包含下劃線“_”）開頭，后面的字符可以是字母或數字 例如 n，m，rot，total 等都是合法變量名。第5頁/共24頁變量的類型 整型變量用來存儲整數，實型變量用來存儲實數。 變量的類型，可以是標準數據類型integer（存儲整數）、real（存儲實數）、boolean（布爾型）和char（字符型），也可以是用戶自定義的各種類型。第6頁/共24頁整型數取值范圍整型數取值范圍類型數值范圍占字節數格式byte0 2551不帶符號8位word0 655352不帶符號16位inteter-32768 327672帶符號16位longint-21474

4、83648 21474836474帶符號32位int64-263+1 263-18帶符號64位qword0 264-18帶符號64位第7頁/共24頁實型（real） 一個實型數據用來存儲實數，實型包括正實數、負實數和零。 十進制表示法十進制表示法 這是人們日常使用的帶小數點的表示方法。 如3，0.0 科學記數法科學記數法 科學記數法是采用指數形式的表示方法，如1.25105可表示成1.25E+05。第8頁/共24頁實型數取值范圍類型數值范圍占字節數有效位數real2.910-391.71038678位SingLe1.510-453.4103841112位DoubLe5.010-3241.710

5、30881516位extended1.910-49511.1104932101920位Comp9.2*10189.2*101881920位第9頁/共24頁字符型（char） 字符常量是由單個字符組成，所有字符采用ASCII編碼，ASCII編碼共有128個字符(如下表)。在程序中，通常用一對單引號將單個字符括起來表示一個字符常量。如：a，A，0等。特殊地，對于單引號字符，則要表示成4個單引號。在ASCII字符集中，按每個字符在字符集中的位置，將每個字符編號為0127，編號稱為對應字符的序號（也稱作ASCII碼），如字符A的序號是65，字符a的序號是97, 字符0的序號的48。第10頁/共24頁序

6、號字符序號字符序號字符序號字符序號字符序號字符32空格4806480P96112p33!49165A81Q97a113q34”50266B82R98b114r35#51367C83S99c115s36$52468D84T100d116t37%53569E85U101e117u38&54670F86V102f118v3955771G87W103g119w40(56872H88X104h120 x41)57973i89Y105i121y42*58 : 74J90Z106j122z43+59;75K91107k12344,6078N94110n12647/63?79O95_111o127de

7、L第11頁/共24頁 Pascal提供的字符類操作函數有： （1）pred(前導)，succ(后繼) 字母b的前導是a，b的后繼是c，即： pred(b)=a，succ(b)=cpred 與 succ 是互逆函數pred(succ(b)=bsucc(pred(b)=b （2）ord(取字符序號)，chr(將序號轉字符) 字母a的序號是97，序號97對應的字符是a,即： ord(a)=97，chr(97)=aord 與 chr是互逆函數chr(ord(a)=aord(chr( 97 ) =97 （3）upcase（小寫轉大寫）第12頁/共24頁布爾型（boolean）布爾型常量僅有兩個值：真和假

8、，分別用標準常量名TRUE和FALSE表示。它們的序號分別為1和0。第13頁/共24頁 【分析】題目中有5位小朋友，他們初始時糖果的數目不確定，用a,b,c,d,e分別存儲5個小朋友的糖果數，初始值由鍵盤輸入。 程序如下： Program ex2_11; Var a,b,c,d,e : integer; begin readln(a,b,c,d,e); a := a div 3; b := b+a; e := e+a;/1號小朋友分糖 b := b div 3; c := c+b;a := a+b;/2號小朋友分糖 c := c div 3; b := b+c; d := d+c;/3號小朋友

9、分糖 d := d div 3; c := c+d; e := e+d;/4號小朋友分糖 e := e div 3; d := d+e;a := a+e;/5號小朋友分糖 writeln(a, ,b, ,c, ,d, ,e); /每個值之間空格隔開 end.第14頁/共24頁 And ,or ,not ABNOT AA AND BA OR BFALSEFALSETRUEFASLEFASLEFALSETRUETRUEFALSETRUETRUEFALSEFALSEFASLETRUETRUETRUEFALSETRUETRUE第15頁/共24頁第五節順序結構程序設計例例2.11 某幼兒園里，有5個小朋

10、友編號為1，2，3，4，5，他們按自己的編號順序圍坐在一張圓桌旁。他們身上都有若干個糖果(鍵盤輸入)，現在他們做一個分糖果游戲。從1號小朋友開始，將自己的糖果均分三份（如果有多余的糖果，則立即吃掉），自己留一份，其余兩份分給他的相鄰的兩個小朋友。接著2號、3號、4號、5號小朋友同樣這么做。問一輪后，每個小朋友手上分別有多少糖果。第16頁/共24頁例例2.12 分錢游戲。甲、乙、丙三人共有分錢游戲。甲、乙、丙三人共有24元錢，先由甲分錢給乙、丙兩人，所分給的數與各人已有數相同；元錢，先由甲分錢給乙、丙兩人，所分給的數與各人已有數相同；接著由乙分給甲、丙，分法同前；再由丙分錢給甲、乙，分法亦同前。

11、經上述三次分錢之后，每個人的錢接著由乙分給甲、丙，分法同前；再由丙分錢給甲、乙，分法亦同前。經上述三次分錢之后，每個人的錢數恰好一樣多。數恰好一樣多。 求原先各人的錢數分別是多少求原先各人的錢數分別是多少?第17頁/共24頁 【分析】 設甲、乙、丙三人的錢數分別為A，B，C。用倒推(逆序)算法， 從最后結果入手，按反相順序，分步驟推算出每次各人當時的錢數 : （在每個步驟中，各人錢數分別存在A、B、C中） 步驟 : A=8，B=8，C=8 /這是最后結果的錢數，三人都一樣多 步驟 : A=A/2 (=4)，B=B/2 (=4)，C=A+B+C(=16) /A，B未得到丙分給的錢時，只有結果數的

12、一半；C應包含給A，B及本身數三者之和 步驟 : A=A/2 (=2)，C=C/2 (=8)，B=A+B+C(=14) /A，C未得到乙分給的錢時，只有巳有數的一半；B應包含給A，C及本身數三者之和 步驟 : B=B/2 (=7)，C=C/2 (=4)，A=A+B+C(=13) /C未得到甲分給的錢時，只有巳有數的一半；A應包含給B，C及本身數三者之和 步驟 : 輸出A（=13），B（=7），C（=4） /此時的A，B，C 就是三人原先的錢數第18頁/共24頁 Program ex2_12; var a，b，c : integer； begin a : =8； b : =8； c : =8；/

13、對應于步驟 a : =a div 2； b : =b div 2；c : =a+b+c； /對應于步驟 a : =a div 2； c : =c div 2； b : =a+b+c； /對應于步驟 b : =b div 2； c : =c div 2； a : =a+b+c； /對應于步驟 writeln(a=，a， : 4，b=，b， : 4，c=，c); /輸出 end. 細心觀察，會發現本程序語句的順序很關鍵。此例用反推順序(逆序)，按步驟正確推算出各變量的值。 本程序writeln語句的輸出項含有( : 4 )，這里的冒號用來指定該項顯示所占寬度，此處是輸出4個空格即(空格項占4格)。

14、第19頁/共24頁 例例2.13 求一元二次方程求一元二次方程x2+3x+2=0的兩個實數根。的兩個實數根。第20頁/共24頁 【分析】方程的系數是常量，分別用a，b，c表示，可運用數學上現成的求根公式求方程的根，采取如下方法 : 先求出d=b2-4ac；（求根公式中需用開方運算的那部分） 再用求根公式算出x1，x2的值。 輸出x1，x2.第21頁/共24頁 程序如下：程序如下： Program ex2_13； const a=1；b=3；c=2； /常量說明，a，b，c表示方程系數 var d : integer； /d為整型變量 x1，x2 : real； /X1，X2為實型變量 begin d : =b*b-4*a*c； x1 : =(-b+sqrt(d)/(2*a)； /求方程的根 x2 : =(-b-sqrt(d)/(2*a)； write