第五讲顺序结构程序与基本语句

第二节 顺序结构程序与基本语句一、教学目标 1、知识与技能理解程序顺序结构的执行流程，掌握赋值语句和输入输出语句，能够编写简单的顺序结构的程序，以解决生活中的一些计算问题。 2、方法与过程 本节从简单的问题入手，如求圆的面积，让学生初步掌握赋值语句和输入输出语句的使用方法及其功能。进而转入较为复杂的问题，如编写程序使从键盘上输入一个三位数，然后反方向输出，并且运用到上一章所学的运算符、表达式等，对知识进行巩固，课程安排形成循序渐进的梯度，充分挖掘学生潜力，让有余力的学生可以有更大空间。3、情感态度和价值观程序设计选取的题目与高一所学的数学、物理中学到的新知识有密切的联系，从而激发学生对程序设计的追求和向往。二、重点难点1、教学重点（1）赋值语句和输入输出语句的使用（2）程序顺序结构的执行流程（3）能编写程序解决简单的应用题2、教学难点根据题目写出正确的程序三、教学过程例1.7交换两个变量的值：由键盘输入两个正整数A和B，编程交换这两个变量的值。解：交换两个变量的值，可以想象成交换两盒录音带（称为A和B）的内容，可以按以下步骤处理：步骤：拿一盒空白录音带C为过渡，先将A翻录至C；步骤：再将B翻录至A；步骤：最后将C翻录至B。这样操作，可达到题目要求。Pascal程序：Program Exam17;Var a,b,c : integer;Begin Write(A,B=); Readln(a,b); C:= A; 等价于步骤1 A := B; 等价于步骤2 B := C; 等价于步骤3 Writeln(A,B);End.例1.8 分钱游戏。甲、乙、丙三人共有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未得到丙分给的钱时，只有结果数的一半；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 就是三人原先的钱数 Pascal程序:Program Exam18；Var a，b，c: integer；Begin a:=8； b:=8； c:=8； 对应于步骤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) ； 输出 ReadlnEnd.细心观察，会发现本程序语句的顺序很关键。此例用反推顺序(逆序)，按步骤正确推算出各变量的值。当然，有的问题可按正序步骤编程，这类程序都称为顺序程序。本程序Writeln语句的输出项含有( : 4 )，这里的冒号用来指定该项显示所占宽度，此处是输出4个空格即(空格项占4格)。例1.9 有鸡兔同笼，头30，脚 90，究竟笼中的鸡和兔各有多少只?解:设鸡为J只，兔为T只，头为H，脚为F，则: J+T=30 2*J+4*T=90 解此题暂不必采用数学上直接解方程的办法，可采用“假设条件与逻辑推理”的办法：假设笼中30 个头全都是兔，那么都按每头只脚计算，总脚数为(4*H)，与实际脚数 ( F )之差为(4*HF)，如果这个差=0，则笼中全是兔（即鸡为0只）；如果这个差值 0，说明多计算了脚数，凡是鸡都多给算了两只脚，用它除以2就能得到鸡的只数，处理步骤为: J=(4*HF)/2 先用脚数差值除以2算出鸡的只数 T=HJ 再用总头数减鸡数算出免的只数按此方法，这两步运算必须注意先后顺序才会符合运算逻辑。Pascal程序:Program Exam16；Const H=30； 常量说明 F=90；Var J，T: byte； 为字节类型的整数 BeginJ:=(4*H-F) div 2； 整除运算 T:=H-J Writeln (J=，J， : 6，T= ，T ) ； ReadlnEnd.本程序中H，F为常量，变量J，T为byte类型，属于整数类型。Pascal定义了五个标准整数类型，如下表所示:类型取值范围占字节数格式Shortint（短整型）-128.1271带符号8位Integer（整型）-32768.327672带符号16位Longint（长整型）-2147483648.21474836474带符号32位Byte（字节型）0.2551无符号8位Word （字型）0.655352无符号16位在前面程序中常用的数据类型除整数类型,还有实数类型。Pascal 还定义了五个标准实数类型，列表所示如下:类型取值范围占字节数有效数字Real2.910-391.71038678位Single1.510-453.4103841112位Double5.010-3241.71030881516位Extended1.910-49511.1104932101920位Comp-263+1238-181920位在Turbo Pascal 中实数的表示用科学记数法，可认为由三部分组成: # . # E +# 或 # . # E -# #表示有效数字； E表示以10为底的幂； +#或-#是指数部分，+号可省略。例如: 1.7E+38 可写成1.7E38 (等同于1. 71038 )。在实数类型定义下，即使是整数，在程序执行时系统也将自动转换成科学记数形式，试请运行下面程序并注意观察运行结果:Program Exam17；Var x: real； x为实数类型 Begin X:=180； 把整数180赋给实数类型变量X Writeln (x=，x) ； 输出的x自动表示成实数形式 ReadlnEnd.习题1. 21.已知ABC中的三边长分别为25.76，74.03，59.31，求ABC的面积。 ( 计算公式: S= 。 其中P = )2.某车棚存有自行车和三轮车共65辆，它们的轮子数合计为150个。求该棚内存有的自行车和三轮车各是多少辆？3.甲、乙、丙三人分别有磁带36，48，64盒。先由甲把自己的磁带平均分为三份，分给乙、丙各一份，自己留下一份；接着是乙，最后是丙，都按甲的方法处理。编程输出甲、乙、丙在上述过程中各人的磁带数分别是多少? (输出所