例4：用循环语句编程，输出下面图形
输入n的值来控制图象的规模
@ @@@ @@@@@ ………………
例5：求正整数M与N之间所有素数的和
练习：将正整数M与N之间所有素数输出 （每行5个数）
输入：10 20 输出 11 13 17 19 23
29
枚举法（穷举法）：一一枚举出各种可能的情况， 并判断那一种可能是符合要求的解。是一种没有 其它办法情况下的方法，是一种最“笨”的方法， 对一些无法用解析法求解的问题使用此方法非常 奏效，用循环处理枚举法很方便。
………… until sum>20
例1：九九乘法表
program jiujiu; var i,j:integer; begin
for i:=1 to 9 do begin
for j:=1 to 9 do write(i:3,’*’,j,’=‘,i*j);
writeln; end; end.
i:=1
i<=9
T
j:=1
F
下一个语句
F
j<=9
T
输出i*j的值
j:=j+1 writeln; i:=i+1
j=1 j=2 i=1 j=3 j=……………… j=1
j=2 i=2 j=3
j=………… i=…… …………
1*1=1 1*2=2 1*3=3 1*………… 2*1=2 2*2=4 2*3=6 2*………… …………
2006/9/1
循环结构应用
本讲主要内容： 例题讲解
pascal中的三种循环结构语句
① for <循环控制变量>:= <初值表达式> to <终值表达式> do 语句；
②while <布尔表达式> do <语句>
③repeat <语种循环结构语句各有各的特点:
for语句:循环次数确定，形式简单、直观。 while语句：循环次数不确定；先判断，后执行循环体。 repeat语句：循环次数不确定，先执行循环体，后判断
（无论什么条件至少要执行一次循环体）。
究竟使用哪一种好,需要视具体情况而定
循环嵌套的概念： 即循环语句的循环体部分又包含一个循环语句
例如：
for i:=1 to 10 do for j:=1 to
20 …………
While sum<20 do
for j:=1 to 20
…………
for j:=1 to 20 repeat
练习: 古代解百鸡问题，“鸡翁一，值钱五，鸡母一， 值钱三，鸡雏三，值钱一，百钱买鸡，问鸡翁， 鸡母，鸡雏各几何？”（共19种）
输出结果：………… 19 1 6
问题延伸：求出按哪种方法买的鸡最少？ 输出结果：18 3 3
Min=24
例2： 求100—999中的水仙花数（若三位数 满足
ABC=A3+B3+C3)则称此数为水仙花数
输出：153 370 371 407
例3：用循环语句编程，输出下面图形
*************** 15颗 ************* *********** ********* ******* ***** *** * 八行