省信息技術(shù)學(xué)科奧賽培訓(xùn)

pascal程序的順序結(jié)構(gòu)教育技術(shù)學(xué)專業(yè)省中小學(xué)信息技術(shù)學(xué)科奧賽培訓(xùn)第三節(jié)常量和變量常量是指在程序中使用的一些具體的數(shù)、字符、字符串和布爾值。在程序運(yùn)行過(guò)程中，其值不能被更改。如123,145.88,‘mynameis’,TRUE等（1）整型數(shù)：如3、-5、0等。（2）實(shí)型數(shù)：如3.1、-6.1E+2（科學(xué)記數(shù)法）。（3）字符串：是用單引號(hào)括起來(lái)的一串字符，如‘Book’、‘96.5’、‘---’。省中小學(xué)信息技術(shù)學(xué)科奧賽培訓(xùn)常量的定義const<常量標(biāo)識(shí)符1>=<常量1>;例如const st=60;a=-st+30;p=3.1415926;

省中小學(xué)信息技術(shù)學(xué)科奧賽培訓(xùn)FreePascal中預(yù)定義了如下幾個(gè)常量標(biāo)識(shí)符，這些常量可以直接在程序中使用。Pi=3.1415926535897932 //π的值Maxint=32767 //整型integer允許的最大值Maxlongint=2147483647 //長(zhǎng)整型longint允許的最大值FALSE=布爾假，TRUE=布爾真省中小學(xué)信息技術(shù)學(xué)科奧賽培訓(xùn)例2.10

已知半徑r，求圓的周長(zhǎng)及面積。Programex2_10;constr=3.6; //定義了一個(gè)其值為3.6的實(shí)型常量varc,s:real;beginc:=2*pi*r;s:=pi*r*r;writeln('c=',c:10:2);writeln('s=',s:10:2);end.省中小學(xué)信息技術(shù)學(xué)科奧賽培訓(xùn)變量變量的命名規(guī)則：“自定義標(biāo)識(shí)符”的命名規(guī)則為：自定義標(biāo)識(shí)符必須以字母（包含下劃線“_”）開(kāi)頭，后面的字符可以是字母或數(shù)字例如n，m，rot，total等都是合法變量名。省中小學(xué)信息技術(shù)學(xué)科奧賽培訓(xùn)變量的類型整型變量用來(lái)存儲(chǔ)整數(shù)，實(shí)型變量用來(lái)存儲(chǔ)實(shí)數(shù)。變量的類型，可以是標(biāo)準(zhǔn)數(shù)據(jù)類型integer（存儲(chǔ)整數(shù)）、real（存儲(chǔ)實(shí)數(shù)）、boolean（布爾型）和char（字符型），也可以是用戶自定義的各種類型。省中小學(xué)信息技術(shù)學(xué)科奧賽培訓(xùn)整型數(shù)取值范圍類型數(shù)值范圍占字節(jié)數(shù)格式byte0～2551不帶符號(hào)8位word0～655352不帶符號(hào)16位inteter-32768～327672帶符號(hào)16位longint-2147483648～21474836474帶符號(hào)32位int64-263+1～263-18帶符號(hào)64位qword0～264-18帶符號(hào)64位省中小學(xué)信息技術(shù)學(xué)科奧賽培訓(xùn)實(shí)型（real）一個(gè)實(shí)型數(shù)據(jù)用來(lái)存儲(chǔ)實(shí)數(shù)，實(shí)型包括正實(shí)數(shù)、負(fù)實(shí)數(shù)和零。①十進(jìn)制表示法這是人們?nèi)粘Ｊ褂玫膸?shù)點(diǎn)的表示方法。如3，0.0②科學(xué)記數(shù)法科學(xué)記數(shù)法是采用指數(shù)形式的表示方法，如1.25×105可表示成1.25E+05。省中小學(xué)信息技術(shù)學(xué)科奧賽培訓(xùn)實(shí)型數(shù)取值范圍類型數(shù)值范圍占字節(jié)數(shù)有效位數(shù)real2.9×10-39～1.7×103867～8位SingLe1.5×10-45～3.4×1038411～12位DoubLe5.0×10-324～1.7×10308815～16位extended1.9×10-4951～1.1×1049321019～20位Comp–9.2*1018～9.2*1018819～20位省中小學(xué)信息技術(shù)學(xué)科奧賽培訓(xùn)字符型（char）字符常量是由單個(gè)字符組成，所有字符采用ASCII編碼，ASCII編碼共有128個(gè)字符(如下表)。在程序中，通常用一對(duì)單引號(hào)將單個(gè)字符括起來(lái)表示一個(gè)字符常量。如：'a'，'A'，'0'等。特殊地，對(duì)于單引號(hào)字符，則要表示成4個(gè)單引號(hào)''''。在ASCII字符集中，按每個(gè)字符在字符集中的位置，將每個(gè)字符編號(hào)為0－127，編號(hào)稱為對(duì)應(yīng)字符的序號(hào)（也稱作ASCII碼），如字符A的序號(hào)是65，字符a的序號(hào)是97,字符0的序號(hào)的48。省中小學(xué)信息技術(shù)學(xué)科奧賽培訓(xùn)序號(hào)字符序號(hào)字符序號(hào)字符序號(hào)字符序號(hào)字符序號(hào)字符32空格48064@80P96`112p33!49165A81Q97a113q34”50266B82R98b114r35#51367C83S99c115s36$52468D84T100d116t37%53569E85U101e117u38&54670F86V102f118v39'55771G87W103g119w40(56872H88X104h120x41)57973i89Y105i121y42*58

:74J90Z106j122z43+59;75K91[107k123{44,60<76L92\108L124|45-61=77M93]109m125}46.62>78N94^110n126～47/63?79O95_111o127deL省中小學(xué)信息技術(shù)學(xué)科奧賽培訓(xùn)Pascal提供的字符類操作函數(shù)有：（1）pred(前導(dǎo))，succ(后繼)

字母b的前導(dǎo)是a，b的后繼是c，即：pred('b’)='a’，succ('b’)='c’ pred與succ是互逆函數(shù)

pred(succ('b’))='b’ succ(pred('b’))='b’（2）ord(取字符序號(hào))，chr(將序號(hào)轉(zhuǎn)字符)

字母a的序號(hào)是97，序號(hào)97對(duì)應(yīng)的字符是a,即：ord('a’)=97，chr(97)='a’ ord與chr是互逆函數(shù)

chr(ord('a’))='a’ ord(chr(97))=97（3）upcase（小寫(xiě)轉(zhuǎn)大寫(xiě)）省中小學(xué)信息技術(shù)學(xué)科奧賽培訓(xùn)布爾型（boolean）布爾型常量?jī)H有兩個(gè)值：真和假，分別用標(biāo)準(zhǔn)常量名TRUE和FALSE表示。它們的序號(hào)分別為1和0。省中小學(xué)信息技術(shù)學(xué)科奧賽培訓(xùn)【分析】題目中有5位小朋友，他們初始時(shí)糖果的數(shù)目不確定，用a,b,c,d,e分別存儲(chǔ)5個(gè)小朋友的糖果數(shù)，初始值由鍵盤(pán)輸入。程序如下：Programex2_11;Vara,b,c,d,e:integer;beginreadln(a,b,c,d,e);a:=adiv3;b:=b+a; e:=e+a;

//1號(hào)小朋友分糖

b:=bdiv3; c:=c+b; a:=a+b;

//2號(hào)小朋友分糖

c:=cdiv3;b:=b+c; d:=d+c;

//3號(hào)小朋友分糖

d:=ddiv3;c:=c+d; e:=e+d;

//4號(hào)小朋友分糖

e:=ediv3; d:=d+e; a:=a+e;

//5號(hào)小朋友分糖

writeln(a,'',b,'',c,'',d,'',e); //每個(gè)值之間空格隔開(kāi)end.省中小學(xué)信息技術(shù)學(xué)科奧賽培訓(xùn)And,or,notABNOTAAANDBAORBFALSEFALSETRUEFASLEFASLEFALSETRUETRUEFALSETRUETRUEFALSEFALSEFASLETRUETRUETRUEFALSETRUETRUE省中小學(xué)信息技術(shù)學(xué)科奧賽培訓(xùn)第五節(jié)順序結(jié)構(gòu)程序設(shè)計(jì)例2.11

某幼兒園里，有5個(gè)小朋友編號(hào)為1，2，3，4，5，他們按自己的編號(hào)順序圍坐在一張圓桌旁。他們身上都有若干個(gè)糖果(鍵盤(pán)輸入)，現(xiàn)在他們做一個(gè)分糖果游戲。從1號(hào)小朋友開(kāi)始，將自己的糖果均分三份（如果有多余的糖果，則立即吃掉），自己留一份，其余兩份分給他的相鄰的兩個(gè)小朋友。接著2號(hào)、3號(hào)、4號(hào)、5號(hào)小朋友同樣這么做。問(wèn)一輪后，每個(gè)小朋友手上分別有多少糖果。省中小學(xué)信息技術(shù)學(xué)科奧賽培訓(xùn)例2.12

分錢(qián)游戲。甲、乙、丙三人共有24元錢(qián)，先由甲分錢(qián)給乙、丙兩人，所分給的數(shù)與各人已有數(shù)相同；接著由乙分給甲、丙，分法同前；再由丙分錢(qián)給甲、乙，分法亦同前。經(jīng)上述三次分錢(qián)之后，每個(gè)人的錢(qián)數(shù)恰好一樣多。求原先各人的錢(qián)數(shù)分別是多少?省中小學(xué)信息技術(shù)學(xué)科奧賽培訓(xùn)【分析】

設(shè)甲、乙、丙三人的錢(qián)數(shù)分別為A，B，C。用倒推(逆序)算法，從最后結(jié)果入手，按反相順序，分步驟推算出每次各人當(dāng)時(shí)的錢(qián)數(shù):（在每個(gè)步驟中，各人錢(qián)數(shù)分別存在A、B、C中）步驟①: A=8，B=8，C=8 //這是最后結(jié)果的錢(qián)數(shù)，三人都一樣多步驟②: A=A/2(=4)，B=B/2(=4)，C=A+B+C(=16)//A，B未得到丙分給的錢(qián)時(shí)，只有結(jié)果數(shù)的一半；C應(yīng)包含給A，B及本身數(shù)三者之和步驟③: A=A/2(=2)，C=C/2(=8)，B=A+B+C(=14) //A，C未得到乙分給的錢(qián)時(shí)，只有巳有數(shù)的一半；B應(yīng)包含給A，C及本身數(shù)三者之和步驟④: B=B/2(=7)，C=C/2(=4)，A=A+B+C(=13) //C未得到甲分給的錢(qián)時(shí)，只有巳有數(shù)的一半；A應(yīng)包含給B，C及本身數(shù)三者之和步驟⑤:輸出A（=13），B（=7），C（=4）

//此時(shí)的A，B，C就是三人原先的錢(qián)數(shù)省中小學(xué)信息技術(shù)學(xué)科奧賽培訓(xùn)Programex2_12;vara，b，c:integer；begina:=8；b:=8；c:=8； //對(duì)應(yīng)于步驟①

a:=adiv2；b:=bdiv2；c:=a+b+c；//對(duì)應(yīng)于步驟②

a:=adiv2；c:=cdiv2；b:=a+b+c； //對(duì)應(yīng)于步驟③

b:=bdiv2；c:=cdiv2；a:=a+b+c； //對(duì)應(yīng)于步驟④

writeln('a='，a，'':4，'b='，b，'':4，'c='，c); //輸出end.

細(xì)心觀察，會(huì)發(fā)現(xiàn)本程序語(yǔ)句的順序很關(guān)鍵。此例用反推順序(逆序)，按步驟正確推算出各變量的值。本程序writeln語(yǔ)句的輸出項(xiàng)含有('':4)，這里的冒號(hào)用來(lái)指定該項(xiàng)顯示所占寬度，此處是輸出4個(gè)空格即(空格項(xiàng)占4格)。省中小學(xué)信息技術(shù)學(xué)科奧賽培訓(xùn)例2.13

求一元二次方程x2+3x+2=0的兩個(gè)實(shí)數(shù)根。省中小學(xué)信息技術(shù)學(xué)科奧賽培訓(xùn)【分析】方程的系數(shù)是常量，分別用a，b，c表示，可運(yùn)用數(shù)學(xué)上現(xiàn)成的求根公式求方程的根，采取如下方法:①先求出d=b2-4ac；（求根公式中需用開(kāi)方運(yùn)算的那部分）②再用求根公式算出x1，x2的值。③輸出x1，x2.省中小學(xué)信息技術(shù)學(xué)科奧賽培訓(xùn)程序如下：Programex2_13；consta=1；b=3；c=2；