循环结构-4多重循环.pptVIP

多重循环结构;var i,j,k:integer; begin k:=0; for i:=1 to 4 do for j:=1 to 4 do k:=k+i+j; write(k); end.;循环嵌套实例;打印出“*”组成以下图形（5行）：;【例】求1!+2!+…+10!的值。;【程序二】 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); end. ;1.求1!+2!+…+n!的值。 【输入】输入n的值（n=10） 【输出】输出1!+2!+…+n!的值。 【输入样例】3 【输出样例】9;一个炊事员上街采购,用500元钱买了90只鸡, 其中母鸡一只15元,公鸡一只10元,小鸡一只5元,正好把钱买完。问母鸡、公鸡、小鸡各买多少只？ 【输入】无 【输出】母鸡、公鸡、小鸡的只数。 （输出会有多种可能的组合，每个组合一行输出三个数，分别表示母鸡、公鸡、小鸡的只数）;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,’ ‘,j,’ ‘,k); end; end.;3. 求100－999中的水仙花数。 (若三位数ABC，ABC=A3+B3+C3，则称ABC为水仙花数。例如153，13+53+33=1+125+27=153，则153是水仙花数。);运行结果： 153　370　371　407;也可以采用一个for循环来求解，表面上看好像优于三重循环，实际上却比上面的程序效率低，请同学们自己分析。;求100－200之间的所有素数。 【输入】无 【输出】输出仅一行，为满足条件的素数，素数之间用空格隔开。;1.写程序框架 for i:=100 to 200 do begin　 判断i是否为质数，如果是，则输出。 end;;var i,j:integer; f:boolean; begin for i:=100 to 200 do begin  f:=true; for j:= 2 to i-1 do if i mod j=0 then begin f:=false; break; end; if f then write(i,’ ‘); end; end.;开方运算;var i,x :integer; begin for i:=100 to 200 do begin x:=2; while (x=trunc(sqrt(i)))and(i mod x0)do //枚举2到 之间的每个数 begin x:=x+1; //在枚举的范围内并且没有出现约数则继续枚举 end; if xtrunc(sqrt(i)) then write(i.’ ‘); end; end.;5. 验证哥德巴赫猜想：;【分析】 哥德巴赫猜想是一个古老而著名的数学难题，它的理论证明很麻烦，迄今未得出最后证明。 在这方面我国数学家陈景润的研究成果处于世界领先地位。这里只对有限范围内的数用计算机加以验证，不算严格的证明。;var n,p,q,j : integer; flagp,flagq : boolean; begin readln(n); if n mod 2=0 then //输入的是偶数 begin