省信息技术学科奥赛培训名师优质课赛课一等奖市公开课获奖课件

pascal程序次序结构

教育技术学专业第1页第三节常量和变量常量是指在程序中使用一些详细数、字符、字符串和布尔值。在程序运行过程中，其值不能被更改。如123,145.88,‘mynameis’,TRUE等（1）整型数：如3、-5、0等。（2）实型数：如3.1、-6.1E+2（科学记数法）。（3）字符串：是用单引号括起来一串字符，如‘Book’、‘96.5’、‘---’。第2页省中小学信息技术学科奥赛培训常量定义const<常量标识符1>=<常量1>;比如const st=60;a=-st+30;p=3.1415926;

第3页省中小学信息技术学科奥赛培训FreePascal中预定义了以下几个常量标识符，这些常量能够直接在程序中使用。Pi=3.1415926535897932 //π值Maxint=32767 //整型integer允许最大值Maxlongint=2147483647 //长整型longint允许最大值FALSE=布尔假，TRUE=布尔真第4页省中小学信息技术学科奥赛培训例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页省中小学信息技术学科奥赛培训变量变量命名规则：“自定义标识符”命名规则为：自定义标识符必须以字母（包含下划线“_”）开头，后面字符能够是字母或数字比如n，m，rot，total等都是正当变量名。第6页省中小学信息技术学科奥赛培训变量类型整型变量用来存放整数，实型变量用来存放实数。变量类型，能够是标准数据类型integer（存放整数）、real（存放实数）、boolean（布尔型）和char（字符型），也能够是用户自定义各种类型。第7页省中小学信息技术学科奥赛培训整型数取值范围类型数值范围占字节数格式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页省中小学信息技术学科奥赛培训实型（real）一个实型数据用来存放实数，实型包含正实数、负实数和零。①十进制表示法这是人们日常使用带小数点表示方法。如3，0.0②科学记数法科学记数法是采取指数形式表示方法，如1.25×105可表示成1.25E+05。第9页省中小学信息技术学科奥赛培训实型数取值范围类型数值范围占字节数有效位数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页省中小学信息技术学科奥赛培训字符型（char）字符常量是由单个字符组成，全部字符采取ASCII编码，ASCII编码共有128个字符(以下表)。在程序中，通惯用一对单引号将单个字符括起来表示一个字符常量。如：'a'，'A'，'0'等。特殊地，对于单引号字符，则要表示成4个单引号''''。在ASCII字符集中，按每个字符在字符集中位置，将每个字符编号为0－127，编号称为对应字符序号（也称作ASCII码），如字符A序号是65，字符a序号是97,字符0序号48。第11页省中小学信息技术学科奥赛培训序号字符序号字符序号字符序号字符序号字符序号字符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页省中小学信息技术学科奥赛培训Pascal提供字符类操作函数有：（1）pred(前导)，succ(后继)

字母b前导是a，b后继是c，即：pred('b’)='a’，succ('b’)='c’ pred与succ是互逆函数

pred(succ('b’))='b’ succ(pred('b’))='b’（2）ord(取字符序号)，chr(将序号转字符)

字母a序号是97，序号97对应字符是a,即：ord('a’)=97，chr(97)='a’ ord与chr是互逆函数

chr(ord('a’))='a’ ord(chr(97))=97（3）upcase（小写转大写）第13页省中小学信息技术学科奥赛培训布尔型（boolean）布尔型常量仅有两个值：真和假，分别用标准常量名TRUE和FALSE表示。它们序号分别为1和0。第14页省中小学信息技术学科奥赛培训【分析】题目中有5位儿童，他们初始时糖果数目不确定，用a,b,c,d,e分别存放5个儿童糖果数，初始值由键盘输入。程序以下：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页省中小学信息技术学科奥赛培训And,or,notABNOTAAANDBAORBFALSEFALSETRUEFASLEFASLEFALSETRUETRUEFALSETRUETRUEFALSEFALSEFASLETRUETRUETRUEFALSETRUETRUE第16页省中小学信息技术学科奥赛培训第五节次序结构程序设计例2.11

某幼稚园里，有5个儿童编号为1，2，3，4，5，他们按自己编号次序围坐在一张圆桌旁。他们身上都有若干个糖果(键盘输入)，现在他们做一个分糖果游戏。从1号儿童开始，将自己糖果均分三份（假如有多出糖果，则马上吃掉），自己留一份，其余两份分给他相邻两个儿童。接着2号、3号、4号、5号儿童一样这么做。问一轮后，每个儿童手上分别有多少糖果。第17页省中小学信息技术学科奥赛培训例2.12

分钱游戏。甲、乙、丙三人共有24元钱，先由甲分钱给乙、丙两人，所分给数与各人已经有数相同；接着由乙分给甲、丙，分法同前；再由丙分钱给甲、乙，分法亦同前。经上述三次分钱之后，每个人钱数恰好一样多。求原先各人钱数分别是多少?第18页省中小学信息技术学科奥赛培训【分析】

设甲、乙、丙三人钱数分别为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未得到丙分给钱时，只有结果数二分之一；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就是三人原先钱数第19页省中小学信息技术学科奥赛培训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.

细心观察，会发觉本程序语句次序很关键。此例用反推次序(逆序)，按步骤正确推算出各变量值。本程序writeln语句输出项含有('':4)，这里冒号用来指定该项显示所占宽度，此处是输出4个空格即(空格项占4格)。第20页省中小学信息技术学科奥赛培训例2.13

求一元二次方程x2+3x+2=0两个实数根。第21页省中小学信息技术学科奥赛培训【分析】方程系数是常量，分别用a，b，c表示，可利用数学上现成求根公式求方程根，采取以下方法:①先求出d=b2-4ac；（求根公式中需用开方运算那部分）②再用求根公式算出x1，x2值。③输出x1，x2.第22页省中小学信息技术学科奥赛培训程序以下：Programex2_13；consta=1；b=3；c=2；