五 循环结构程序设计 厦大附中信息技术
内容提要 for/to/do语句 1 While/do语句 2 repeat/until语句 3 应用实例 4
For语句 For语句的一般形式如下： (1) 递增循环： for 控制变量：=<表达式1> to <表达式2> do <语句>； (2) 递减循环: for 控制变量：=<表达式1> to <表达式2> do <语句>； 变量标识符 := 表达式 IF语句 FOR to downto 语句 do
FOR语句的流程图表示 (a)递增型循环 (b)递减型循环 false false 初值<=终值 初值>=终值 true 控制变值=初值 循环体语句 控制变量值<终值 控制变量取其后继值 true 初值>=终值 false 控制变值=初值 循环体语句 控制变量值>终值 控制变量取其后继值 true
求 1+2+3+…+n的值 求 1+2+3+…+n的值。 program p5_1(input,output); var sum,i,n:integer; begin write(‘please input n:’); read(n); sum:=0; for i:=1 to n do sum:=sum+I; writeln(‘sum=’,sum); end.
猴子吃桃问题 例：猴子吃桃问题。猴子第一天摘下若干个桃子，当即吃了一半，还不过瘾，又多吃了一个。第二天又将剩下的桃子吃掉一半，又多吃了一个。以后每天都吃了前一天剩下的一半零一个。到第十天，只剩下一个桃子。试求第一天共摘多少桃子？ program p5_2(input,output); var j,x:integer; begin x:=1; for j:=9 downto 1 do x:=(x+1)*2; write(‘The number is:’,x); end.
当型循环语句 当循环次数未知，它依赖于某个布尔表达式的值，而此值在循环执行过程中会改变，为此PASCAL提供了WHILE语句和REPEAT语句。 WHILE语句的格式： WHILE <布尔表达式> DO <循环体> 布尔表达式 false 循环体 true 表达式 while语句 while 语句 do
求 1+2+3+…+n的值 求 1+2+3+…+n的值。 program p5_3(input,output); var sum,odds,n:integer; begin write(‘please input n:’); read(n); sum:=0; odds:=1; while odds<=n do sum:=sum+odds; odds:=odds+2; end; writeln(‘sum=’,sum); end.
直到型循环语句 REPEAT语句的格式： repeat 语句1； 语句2； …… 语句N until 布尔表达式； 语句 repeat语句 false 循环体 true 语句 repeat语句 repeat 表达式 until ：
求 1+2+3+…+n的值 求 1+2+3+…+n的值。 program p5_4(input,output); var sum,odds,n:integer; begin write(‘please input n:’); read(n); sum:=0; odds:=1; repeat sum:=sum+odds; odds:=odds+2; until odds>n; writeln(‘sum=’,sum); end.
多重循环 当一个循环体语句的循环体中包含另一个循环语句时，就构成了多重循环，我们也称之为循环语句的嵌套结构。设计多重循环时要特别注意内、外循环之间的关系，以及各语句安放的位置，内外循环的控制变量不得同名，多重循环的执行次数为各层循环执行次数的乘积。
求水仙花数 例：用多重循环求100—900之间的所有水仙花数。 program 5_5(input,output); var m,a,b,c:integer; begin for a:=1 to 9 do for b:=0 to 9 do for c:+0 to 9 do m:=a*100+b*10+c; if a*a*a+b*b*b+c*c*c=m then writeln(m); end； end.
谢谢指导!