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

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

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

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

已知半徑r，求圓周長及面積。Programex2_10;constr=3.6; //定義了一個其值為3.6實型常量varc,s:real;beginc:=2*pi*r;s:=pi*r*r;writeln('c=',c:10:2);writeln('s=',s:10:2);end.第5頁省中小學信息技術(shù)學科奧賽培訓變量變量命名規(guī)則：“自定義標識符”命名規(guī)則為：自定義標識符必須以字母（包含下劃線“_”）開頭，后面字符能夠是字母或數(shù)字比如n，m，rot，total等都是正當變量名。第6頁省中小學信息技術(shù)學科奧賽培訓變量類型整型變量用來存放整數(shù)，實型變量用來存放實數(shù)。變量類型，能夠是標準數(shù)據(jù)類型integer（存放整數(shù)）、real（存放實數(shù)）、boolean（布爾型）和char（字符型），也能夠是用戶自定義各種類型。第7頁省中小學信息技術(shù)學科奧賽培訓整型數(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頁省中小學信息技術(shù)學科奧賽培訓實型（real）一個實型數(shù)據(jù)用來存放實數(shù)，實型包含正實數(shù)、負實數(shù)和零。①十進制表示法這是人們?nèi)粘Ｊ褂脦?shù)點表示方法。如3，0.0②科學記數(shù)法科學記數(shù)法是采取指數(shù)形式表示方法，如1.25×105可表示成1.25E+05。第9頁省中小學信息技術(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頁省中小學信息技術(shù)學科奧賽培訓字符型（char）字符常量是由單個字符組成，全部字符采取ASCII編碼，ASCII編碼共有128個字符(以下表)。在程序中，通慣用一對單引號將單個字符括起來表示一個字符常量。如：'a'，'A'，'0'等。特殊地，對于單引號字符，則要表示成4個單引號''''。在ASCII字符集中，按每個字符在字符集中位置，將每個字符編號為0－127，編號稱為對應字符序號（也稱作ASCII碼），如字符A序號是65，字符a序號是97,字符0序號48。第11頁省中小學信息技術(shù)學科奧賽培訓序號字符序號字符序號字符序號字符序號字符序號字符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頁省中小學信息技術(shù)學科奧賽培訓Pascal提供字符類操作函數(shù)有：（1）pred(前導)，succ(后繼)

字母b前導是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對應字符是a,即：ord('a’)=97，chr(97)='a’ ord與chr是互逆函數(shù)

chr(ord('a’))='a’ ord(chr(97))=97（3）upcase（小寫轉(zhuǎn)大寫）第13頁省中小學信息技術(shù)學科奧賽培訓布爾型（boolean）布爾型常量僅有兩個值：真和假，分別用標準常量名TRUE和FALSE表示。它們序號分別為1和0。第14頁省中小學信息技術(shù)學科奧賽培訓【分析】題目中有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頁省中小學信息技術(shù)學科奧賽培訓And,or,notABNOTAAANDBAORBFALSEFALSETRUEFASLEFASLEFALSETRUETRUEFALSETRUETRUEFALSEFALSEFASLETRUETRUETRUEFALSETRUETRUE第16頁省中小學信息技術(shù)學科奧賽培訓第五節(jié)次序結(jié)構(gòu)程序設(shè)計例2.11

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

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

設(shè)甲、乙、丙三人錢數(shù)分別為A，B，C。用倒推(逆序)算法，從最終結(jié)果入手，按反相次序，分步驟推算出每次各人當初錢數(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應包含給A，B及本身數(shù)三者之和步驟③: A=A/2(=2)，C=C/2(=8)，B=A+B+C(=14) //A，C未得到乙分給錢時，只有巳有數(shù)二分之一；B應包含給A，C及本身數(shù)三者之和步驟④: B=B/2(=7)，C=C/2(=4)，A=A+B+C(=13) //C未得到甲分給錢時，只有巳有數(shù)二分之一；A應包含給B，C及本身數(shù)三者之和步驟⑤:輸出A（=13），B（=7），C（=4）

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

a:=adiv2；b:=bdiv2；c:=a+b+c；//對應于步驟②

a:=adiv2；c:=cdiv2；b:=a+b+c； //對應于步驟③

b:=bdiv2；c:=cdiv2；a:=a+b+c； //對應于步驟④

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

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

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