多重循环pascal 幻灯片.pptVIP

多重循环 例一、计算s=1!+2!+3!+4!+5!+…10！ 多重循环 例一、计算s=1!+2!+3!+4!+5!+…10！ 例二、 求1——100之间的素数。（素数是大于 1，且除了1和它本身外，不能被其它任何 整数所整除的整数。） 讨论：根据素数的定义可知 2，3，5，7，11，13等是素数。 1，4，6，8，10，12，14，15等不是素数。 为了判断某数i是否为素数，一个最简单的办法是用2，3，4，……i-1这些数逐个去除i，看能否除尽。若被其中一个数除尽了，则i不是素数，否则（全部除不尽）i是素数。 当i较大时，用这种办法，除的次数太多。可以有许多改进办法，以减少除的次数，提高运行效率。下面介绍的是其中一种方法。 用2，3，4，… 去除，如果都除不尽，则i是素数。 这是因为，如果小于等于 的数都除不尽i，则大于 的数也不能除尽。 怎么样来表示已经除尽了呢？ 用一个布尔变量flag标记是否除尽。 一开始让flag为真，当有一个数能除尽是，就将它设置为假，若循环结束，flag仍为真，表示都除不尽，i是素数，否则i不是素数。 算法： For i:=2 to 100do begin 1.用2到 去除i，看能否除尽 2. if 除不尽 then 输出素数i end. program ssh; var i,j:integer; flag:boolean; begin for i:=2 to 100 do begin flag:=true; for j:=2 to round(sqrt(i)) do if i mod j=0 then flag:=false; if flag then write(i:5); end; writeln; end. 说明： 使用函数round的目的是将实型值sqrt（i）变为整型值。因为不允许循环变量的初、终值为实型（必须为有序类型）。 当i=2时，round（sqrt（i））=1，j循环的初值（2）大于终值，循环根本就不执行，flag仍保持为真，输出素数2，当i2时，均执行循环体，flag可能被置为假，也可能仍保持为真，为真时即为素数，应输出。 练习： 1、输出下列图形 a a b a b c …………………… a b c……………y z 2、验证哥德巴赫猜想：任一充分大的偶数，可以用两个素数之和表示。例如： 4=2+2 6=3+3 8=3+5 将4——100中所有的偶数分别用两个素数之和表示。 3.验证哥德巴赫猜想：任一充分大的偶数，可以用两个素数之和表示。例如： 4=2+2 6=3+3 8=3+5 98=19+79 即：输入一个大于3的偶数n，输出n=p+q 其中p，q为素数。 4.要将一张100元的大钞票，换成等值的10元、5元、2元、1元一张的小钞票，要求每次换成40张小钞票，每种至少一张。编程输出所有可能的换法，程序应考虑减少重复次数。 5、求2——100中，每个数的质因子，输出如下形 式：2=2 3=3 4=2*2 …… 100=2*2*5*5 提示：质因子也即素数因子。在找质因子的过程中，可以不必按段它是否为素数，只要算法合适，所求的因子必然是质因子。 6、找2——1000中的亲密数对（如果啊的因子和等于b，b的因子和等于a，且a不等于b，则称a，b为亲密数对）。 思考题： 打印杨辉三角 1 1 1 1