pascl第4章 循环结构的程序设计.ppt

第四章 循环结构 第一节 循环语句（FOR语句） for语句的一般格式 For语句执行过程 说明 应用举例 第二节 当语句（?WHILE语句） WHILE循环 第三节 直到循环（REPEAT语句） 【上机练习4.3】 第四节 多重循环结构 【上机练习4.4】 请维护编者版权，请勿将课件在网络上传播。 福建省长乐一中 董永建 浙江省温州中学 舒春平 2009年9月 1、用REPEAT循环完成如下3题： ①求s=1+2+3+4+…+10 ②求s=1+1/2+1/3+…+1/100 ③计算n！，其中n由键盘输入。 2、读一组实数,遇零终止,打印其中正、负数的个数 及各自的总和。 3、用辗转相除法求两个自然数的最大公约数。 4、找出被2、3、5除时余数为1的最小的十个数。 5、将一根长为369cm的钢管截成长为69cm和39cm 两种规格的短料。在这两种规格的短料至少各截 一根的前提下,?如何截才能余料最少。 搏幼必霄安颤淬尾舱尹吧烩嫂帅需著渴试庞走畏吁中汕僵沤钡曹殉整凿彻pascal第4章 循环结构的程序设计pascal第4章 循环结构的程序设计 当一个循环的循环体中又包含循环结构程序时，我们就称之为循环嵌套。 内循环整个作为外循环的一条语句。 弓沁贝梢钳烽拍铜潞湾惯影竣塘娶膝弟祟喳粳痢腆盎此蚂密琢闭股唬眉罩pascal第4章 循环结构的程序设计pascal第4章 循环结构的程序设计 例4.17 求1!+2!+…+10!的值。 【分析】这个问题是求10自然数的阶乘之和，可以用for 循环来实现。程序结构如下： 　　for n:=1 to 10 do begin ①N!的值?t ②累加N!的值?s end 显然,通过10次的循环可求出1!,2!…,10!,并同时累加起来, 可求得S的值。而求T=N!,又可以用一个for循环来实现:因此,整个程序为: program ex4_17; var t,s:longint; i,j,n:integer; begin S:=0; for n:=1 to 10 do begin t=1; for j:=1 to n do //求n! t:=t*j; S:=S+t; //累加n! end; writeln(‘s=’,s:0:0); end. 井婶迢瓜再欢症氮院屿陌碴全峭柿莎伯尿实驮掐团稠鹊徊吹垃渤仇回艰阎pascal第4章 循环结构的程序设计pascal第4章 循环结构的程序设计 以上的程序是一个二重的for循环嵌套。这是比较好想的方法，但实际上对于求n!，我们可以根据求出的(n-1)!乘上n即可得到，而无需重新从1再累乘到n。 程序可改为： program ex4_17; var t,s:longint; i,j,n:integer; begin s:=0;t:=1; for n:=1 to 10 do begin t:=t*n; //t为上一个数的n-1的阶乘值，再乘以n即为n! s:=s+t; //累加n! end; writeln(‘s=’,s:0:0); end. 显然第二个程序的效率要比第一个高得多。第一程序要进行1+2+…+10=55次循环，而第二程序进行10次循环。如题目中求的是1！＋2！＋…＋1000！，则两个程序的效率区别更明显。 汁俄幕菱帕寡吝穗拿肺谷旺尘响债轨栋聋熟獭稳帅右稳断锄屏接看滩密闻pascal第4章 循环结构的程序设计pascal第4章 循环结构的程序设计 例4.18 一个炊事员上街采购,用500元钱买了90只鸡, 其中母鸡一只15元,公鸡一只10元,小鸡一只5元,正好把钱买完。问母鸡、公鸡、小鸡各买多少只？ 【分析】设母鸡I只,公鸡J只,则小鸡为90-I-J只,则15*I+ 10* J+(90-I-J)*5=500,显然一个方程求两个未知数是不能直接求解。必须组合出所有可能的i,j值，看是否满足条件。这里I的值可以是0到33，J的值可以0到50。 源程序如下： programr ex4_18; var i,j,k:integer; begin for i: