循环结构while.pptVIP

第四讲 循环结构 二 while 引例： 求恰好使s=1+1/2+1/3+…+1/n的值大于10时n的值。 var s : real; n : integer;｛n分母｝ begin s:=0; n:=0; while s=10 do｛当s的值还未超过10时｝ begin n:=n+1;｛分母1｝ s:=s+1/n;｛将下一项值累加到s｝ end; writeln(n);｛输出结果｝ end. while循环 当循环次数不能预先确定时，只能根据某一条件来决定是否进行循环时，用while 语句实现。 格式： while 布尔表达式 do 一条语句:循环体； 或: while 布尔表达式 do begin 语句组:循环体 end; 其意义为： 当布尔表达式的值为true时，执行do后面的语句。 循环体中必须有改变循环控制变量的语句，否则出现死循环。区别于for结构 例1： 求两个数a，b（1000）的最小公倍数。 样例： 输入： 30 输出： 60 var a,b:integer; s:longint; begin readln(a,b); s:=a; while s mod b0 do s:=s+a; writeln(s); end. 最大公约数？ 例2、输入n（1015），求他的各位数字之和. 如: 输入： 1234 输出： 10 var n:int64; s,t:integer; begin readln(n); s:=0; while n0 do begin t:=n mod 10; s:=s+t; n:=n div 10; end; writeln(s); end. Int64 :[-9*1018 , 9*1018] [ -9223372036854775808,  9223372036854775807] For 与 while 的区别与联系： 1、for 必须能预先确定循环次数。 循环控制变量，每次自动加1，不能人为的改变。 2、while 可以不知道循环次数。 在循环体内必须有修改循环控制变量的语句，否则死循环。 循环控制变量的改变可以不是1。但必须是整数。 3、能 用for的一定能用while实现。 例1、键入一个自然数N（=106），求这个自然数的因数的个数S（包含1和n）。 如： 输入： 6 输出： 4 var n,I,s:longint; begin readln(n); s：=0； for i:=1 to n do if n mod i=0 then s:=s+1; writeln(s); end. var n,i,s:longint; begin readln(n); s:=0; i:=1; while i=n do begin if n mod i=0 then s:=s+1; i:=i+1; end; writeln(s); end. 例2：求s=3+6+9+……+300的值。 var i,s:integer; begin s:=0; for i:=1 to 100 do s:=s+3*i; writeln(s); end. var i,s:integer; begin s:=0; i:=0; while i=300 do begin s:=s+i; i:=i+3; end; writeln(s); end. 二、循环结构的综合练习 1、陶陶摘苹果（NOIP2006p） (apple.pas/c/cpp) 【问题描述】 陶陶家的院子里有一棵苹果树，每到秋天树上就会结出10个苹果。苹果成熟的时候，陶陶就会跑去摘苹果。陶陶有个30厘米高的板凳，当她不能直接用手摘到苹果的时候，就会踩到板凳上再试试。 现在已知1