06-08多重循环pascal.ppt.pptVIP

循环语句 4.多重循环 for j:=1 to 5 do write(*); writeln; begin end; for i:=1 to 10 do begin end. 双重循环 Program ex_forsc; Var i,j:integer; 如果改进呢？要第一行一个，第二行二个…… 解剖运行过程 外循环走一个，内循环走一轮 for j:=1 to 5 do write(*); writeln; begin end; for i:=1 to 10 do 演示变量运行中的变化 题1208：数字走向I 输入整数N，输出相应方阵。 Input 一个整数N。（ 0 n 10 ) Output 一个方阵，每个数字的场宽为3。 Sample Input 5 Sample Output 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 for j:=1 to 5 do write(*); writeln; begin end; for i:=1 to 5 do ***** ***** ***** ***** ***** begin t:=t+1; write(t:3); end; 例二：我国古代数学家张邱建编《张邱建算经》中记有有趣的数学问题：“今有鸡翁一，值钱五；鸡母一，值钱三；鸡雏三，值钱一。凡百钱，买鸡百只，问鸡翁、母、雏各几何？”你能用PASCAL程序解决这个问题吗？ 分析： 设公鸡X只，母鸡Y只，则小鸡应为100-X-Y只，由于母鸡一只三钱，公鸡一只五钱，小鸡三只一钱，正好把钱用完， 则存在方程5X+3Y+（100-X-Y）/3=100， 显然两个未知数是没办法救求得方程的解， 因而我们必须组合所有可能的X和Y，看是否满足条件。 这里的X可以是0至20，Y可以0至33只，来判断总和是否刚好为一百钱。 program baiji; var a,b,c:integer; {a为鸡翁，b为鸡母，c为鸡稚} begin for a:=0 to 20 do for b:=0 to 33 do begin c:=100-a-b; if (c mod 3=0) then if (5*a+3*b+c div 3=100) then writeln(jiweng=,a,jimu=,b,jizhi=,c); end; end. 例二、 求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