pascal练习题.pptVIP

程序设计练习题 第一章练习题—分钱游戏 第一章练习题—鸡兔同笼 有鸡兔同笼，头30，脚 90，究竟笼中的鸡和兔各有多少只? 解此题暂不必采用数学上直接解方程的办法，可采用“假设条件与逻辑推理”的办法： ?假设笼中30 个头全都是兔，那么都按每头４只脚计算，总脚数为(4*H)，与实际脚数 ( F )之差为(4*H—F)，如果这个差=0，则笼中全是兔（即鸡为0只）；如果这个差值 0，说明多计算了脚数，凡是鸡都多给算了两只脚，用它除以2就能得到鸡的只数，处理步骤为: ? ①? J=(4*H—F)/2?????? {先用脚数差值除以2算出鸡的只数} ? ②? T=H—J??????????????? {再用总头数减鸡数算出免的只数} 第一章练习题— 车轮 1.某车棚存有自行车和三轮车共65辆，它们的轮子数合计为150个。求该棚内存有的自行车和三轮车各是多少辆？ 2.甲、乙、丙三人分别有磁带36，48，64盒。先由甲把自己的磁带平均分为三份，分给乙、丙各一份，自己留下一份；接着是乙，最后是丙，都按甲的方法处理。编程输出甲、乙、丙在上述过程中各人的磁带数分别是多少? (输出所有的中间结果) 练习题： 编程计算一元二次方程 ax2 + bx + c = 0 的实根 * * 甲、乙、丙三人共有 24 元钱，先由甲分钱给乙、丙两人，所分给的数与各人已有数相同；接着由乙分给甲、丙，分法同前；再由丙分钱给甲、乙，分法亦同前。经上述三次分钱之后，每个人的钱数恰好一样多。 求原先各人的钱数分别是多少? 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) ；　 {输出} Readln End. Pascal程序: Program Exam16； Const H=30； {常量说明 } F=90； Var J，T: byte； {为字节类型的整数 } Begin J:=(4*H-F) div 2； {整除运算 } T:=H-J Writeln (J=，J， : 6，T= ，T ) ； Readln End. 本程序中H，F为常量，变量J，T为byte类型，属于整数类型。