信息学10 循环结构3 学生.pptVIP

循环结构3 1、当型循环 ( while do ) 2、综合应用 * * 一、WHILE循环　　对于for循环有时也称为计数循环，当循环次数未知，只能根据某一条件来决定是否进行循环时，用while 语句或repeat语句实现循环要更方便。　　while语句的形式为：　　while 布尔表达式 do 语句；　　其意义为：当布尔表达式的值为true时，执行do后面的语句。　　while语句的执行过程为：　　①判断布尔表达式的值,如，其值为真，执行步骤2，否则执行步骤4；　　②执行循环体语句(do后面的语句)； 　　③返回步骤1；　　④结束循环，执行while的下一个语句。 　说明：这里while和do为保留字，while语句的特点是先判断，后执行。 当布尔表达式成立时，重复执行do后面的语句(循环体)。 1、当型循环P52 功能：当指定条件成立时，重复执行指定的语句。 格式： 　　 执行过程： 　当布尔表达式的值为 true 时，才会运行语句序列（循环体），否则循环将不会被执行，即从循环头部就退出，而转向执行 end 后的语句。 当布尔表达式成立时 执行循环体 执行while后面的语句 N—S结构图 注意：（1）为了能使while循环能正常终止，循环体中一定要有能更改变表达式值的语句． （2）do 后面为多条语句时，要用复合语句begin end，让其变为一条语句。 while 布尔表达式　do 语句 条件满足? y N 语句 　　例1 、求恰好使s=1+1/2+1/3+…+1/n的值大于10时n的值。　　分析：恰好使s的值大于10意思是当表达式s的前n-1项的和小于或等于10，而加上了第n项后s的值大于10。从数学角度，我们很难计算这个n的值。故从第一项开始，当s的值小于或等于10时，就继续将下一项值累加起来。当s的值超过10时，最后一项的项数即为要求的n。　　程序如下：　　var　　　　s : real;　　　　n : integer;｛n表示项数｝　　begin　　　　s:=0.0; n:=0;　　　while s=10 do｛当s的值还未超过10时｝　　　　begin　　　　　n:=n+1;｛项数加1｝　　　　　s:=s+1/n;｛将下一项值累加到s｝　　　　end;　　　writlen(n=,n);｛输出结果｝　　end. 例1：计算 M=1+3+5+……，100以内所有奇数的和。 Program ex2; var s,i:integer;begin s:=0; i:=1; while i=100 do begin s:=s+i; i:=i+2; end; Writeln(I,’ ’,s); readln; End. 例2：输出１００以内奇数的和。 例3：输出１００以内能被3 和5 整除的数． Progarm ex3; var x:integer; begin x:=1; while x100 do begin if (x mod 3=0) and (x mod 5=0) then write(x:5); x:=x+1; end; readln; end. 每执行一次循环体，都要判断一次条件，如果条件不成立，则不执行循环体。 此题也可以用FOR循环 来编。 0 2 6 3 2 6 26 2 6 26 32 1 余数 n m 步数 例4：求两个数 m，n的最大公约数。 分析：一般地求两个数m，n的最大公约数采用辗转相除法，它的原理是： （1）以m除以n，得余数为k。 （2）判断 k 的值，如果为0则n为m，n的最大公约数，否则执行（3）。 （3）更换除数和被除数，即：n→m，k→n。再转去执行（1）。 注：辗转相除法西方称为欧几里德算法，而我国古代数学家秦九韶早就在《数书九章中记载了这个方法。 Program ex4; Var m,n,k:integer; Begin readln(m,n); k:=m mod n; while k0 do begin m:=n; n:=k; k:=m mod n; end; writeln(n); End. 例5：求随机产生的10个100以内整数中的最大数与最小数． Program ex5: var x,i,max,min:integer; begin rand