【pascal教程】第4章 循环结构的程序设计.ppt

第四节 多重循环结构 当一个循环的循环体中又包含循环结构程序时，我们就称之为循环嵌套。 内循环整个作为外循环的一条语句。 例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. 以上的程序是一个二重的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！，则两个程序的效率区别更明显。 例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:=0 to 33 do //枚举母鸡的数量 for j:=0 to 50 do //枚举公鸡的数量 begin k:=90-i-j; if 15*i+10*j+5*k=500 then writeln(i:5,j:5,k:5); end; end. 例4.19 求100－999中的水仙花数。（若三位数ABC，ABC=A3+B3+C3，则称ABC为水仙花数。例如153，13+53+33=1+125+27=153，则153是水仙花数。） 【分析】 根据题意，采用三重循环来求解。由于循环次数一定，用for循环最为简单。 程序如下： Program ex4_19_1; var a,b,c : integer; begin for a : =1 to 9 do for b : =0 to 9 do for c : =0 to 9 do if a*a*a+b*b*b+c*c*c=a*100+b*10+c then write(a*100+b*10+c : 6); end. 运行结果： 153　370　371　407 同时也可以采用一个for循环来求解，表面上看好像优于三重循环，实际上却比上面的程序效率低，请同学们自己分析。 程序如下： Program ex4_19_2; var m,a,b,c : integer; begin for m : =100 to 999 do begin a : =m div 100; //m的百位 b : =(m mod 100)div 10; //m的十位