省信息技術(shù)學(xué)科奧賽培訓(xùn)名師優(yōu)質(zhì)課賽課一等獎市公開課獲獎?wù)n件

pascal程序次序結(jié)構(gòu)

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

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

已知半徑r，求圓周長及面積。Programex2_10;constr=3.6; //定義了一個其值為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.第5頁省中小學(xué)信息技術(shù)學(xué)科奧賽培訓(xùn)變量變量命名規(guī)則：“自定義標(biāo)識符”命名規(guī)則為：自定義標(biāo)識符必須以字母（包含下劃線“_”）開頭，后面字符能夠是字母或數(shù)字比如n，m，rot，total等都是正當(dāng)變量名。第6頁省中小學(xué)信息技術(shù)學(xué)科奧賽培訓(xùn)變量類型整型變量用來存放整數(shù)，實(shí)型變量用來存放實(shí)數(shù)。變量類型，能夠是標(biāo)準(zhǔn)數(shù)據(jù)類型integer（存放整數(shù)）、real（存放實(shí)數(shù)）、boolean（布爾型）和char（字符型），也能夠是用戶自定義各種類型。第7頁省中小學(xué)信息技術(shù)學(xué)科奧賽培訓(xùn)整型數(shù)取值范圍類型數(shù)值范圍占字節(jié)數(shù)格式byte0～2551不帶符號8位word0～655352不帶符號16位inteter-32768～327672帶符號16位longint-2147483648～21474836474帶符號32位int64-263+1～263-18帶符號64位qword0～264-18帶符號64位第8頁省中小學(xué)信息技術(shù)學(xué)科奧賽培訓(xùn)實(shí)型（real）一個實(shí)型數(shù)據(jù)用來存放實(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。第9頁省中小學(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位第10頁省中小學(xué)信息技術(shù)學(xué)科奧賽培訓(xùn)字符型（char）字符常量是由單個字符組成，全部字符采取ASCII編碼，ASCII編碼共有128個字符(以下表)。在程序中，通慣用一對單引號將單個字符括起來表示一個字符常量。如：'a'，'A'，'0'等。特殊地，對于單引號字符，則要表示成4個單引號''''。在ASCII字符集中，按每個字符在字符集中位置，將每個字符編號為0－127，編號稱為對應(yīng)字符序號（也稱作ASCII碼），如字符A序號是65，字符a序號是97,字符0序號48。第11頁省中小學(xué)信息技術(shù)學(xué)科奧賽培訓(xùn)序號字符序號字符序號字符序號字符序號字符序號字符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第12頁省中小學(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(取字符序號)，chr(將序號轉(zhuǎn)字符)

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

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

//1號兒童分糖

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

//2號兒童分糖

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

//3號兒童分糖

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

//4號兒童分糖

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

//5號兒童分糖

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

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

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

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

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

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

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

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

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

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

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