用多重循环求100900之间的所有水仙花数.pptVIP

五 循环结构程序设计 厦大附中信息技术 内容提要 For语句 For语句的一般形式如下： (1) 递增循环： for 控制变量：=表达式1 to 表达式2 do 语句； (2) 递减循环: for 控制变量：=表达式1 to 表达式2 do 语句； FOR语句的流程图表示 (a)递增型循环 (b)递减型循环 求 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 循环体 求 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 begin sum:=sum+odds; odds:=odds+2; end; writeln(‘sum=’,sum); end. 直到型循环语句 REPEAT语句的格式： repeat 语句1； 语句2； …… 语句N 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 oddsn; writeln(‘sum=’,sum); end. 多重循环 当一个循环体语句的循环体中包含另一个循环语句时，就构成了多重循环，我们也称之为循环语句的嵌套结构。设计多重循环时要特别注意内、外循环之间的关系，以及各语句安放的位置，内外循