第4讲-循环结构while1.ppt

引例：求恰好使s=1+1/2+1/3+1/n的值大于10时n的值。,vars:real;n:integer;n分母begins:=0;n:=0;whiles=10do当s的值还未超过10时beginn:=n+1;分母1s:=s+1/n;将下一项值累加到send;writeln(n);输出结果end.,while循环当循环次数不能预先确定时，只能根据某一条件来决定是否进行循环时，用while语句实现。格式：whiledo；或:whiledobeginend;其意义为：当布尔表达式的值为true时，执行do后面的语句。,循环体中必须有改变循环控制变量的语句，否则出现死循环。区别于for结构,例1：求两个数a，b（1000）的最小公倍数。样例：输入：30输出：60,vara,b:integer;s:longint;beginreadln(a,b);s:=a;whilesmodb0dos:=s+a;writeln(s);end.,最大公约数？,例2、输入n（1015），求他的各位数字之和.如:输入：1234输出：10,varn:int64;s,t:integer;beginreadln(n);s:=0;whilen0dobegint:=nmod10;s:=s+t;n:=ndiv10;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,varn,I,s:longint;beginreadln(n);s：=0；fori:=1tondoifnmodi=0thens:=s+1;writeln(s);end.,varn,i,s:longint;beginreadln(n);s:=0;i:=1;whilei=ndobeginifnmodi=0thens:=s+1;i:=i+1;end;writeln(s);end.,例2：求s=3+6+9+300的值。,vari,s:integer;begins:=0;fori:=1to100dos:=s+3*i;writeln(s);end.,vari,s:integer;begins:=0;i:=0;whilei=300dobegins:=s+i;i:=i+3;end;writeln(s);end.,二、循环结构的综合练习,1、陶陶摘苹果（NOIP2006p）(apple.pas/c/cpp)【问题描述】陶陶家的院子里有一棵苹果树，每到秋天树上就会结出10个苹果。苹果成熟的时候，陶陶就会跑去摘苹果。陶陶有个30厘米高的板凳，当她不能直接用手摘到苹果的时候，就会踩到板凳上再试试。现在已知10个苹果到地面的高度，以及陶陶把手伸直的时候能够达到的最大高度，请帮陶陶算一下她能够摘到的苹果的数目。假设她碰到苹果，苹果就会掉下来。,【输入】第1行只包括一个100到120之间（包含100和120）的整数（以厘米为单位），表示陶陶把手伸直的时候能够达到的最大高度。第2行包含10个100到200之间（包括100和200）的整数（以厘米为单位）分别表示10个苹果到地面的高度，两个相邻的整数之间用一个空格隔开。【输出】输出包括一行，这一行只包含一个整数，表示陶陶能够摘到的苹果的数目。【样例输入】110100200150140129134167198200111【样例输出】5,varh,x,sum,i:integer;beginsum:=0;readln(h);h:=h+30;fori:=1to10dobeginread(x);ifx=0thena:=(a+b)/2;iff2*f=0thenb:=(a+b)/2;end;writeln(a:0:3);end.,4、输入一个正整数N（0thenwriteln(i,s);end;end.,5、已知：N！=1*2*.*n。输入n（m+leftthenbeginwriteln(-i);exit;end;,ifm+left-x=100thenbeginsave:=save+100*