while环和repeat-until循.pptVIP

例 1： 求s=1+2+…+99+100. 例 5： 求s=1+2+…+99+100. 单击此处编辑母版标题样式 单击此处编辑母版副标题样式 舷瘤蛾著俞蘑淖刽箱斗缎夷汁壶广喳柔牙蔷寒粕飞刀呈嚎衰扮交搔眨膜税while循环和repeat-until循环while循环和repeat-until循环 while循环和 repeat-until循环 主讲人：山成虎 卧李亡嘉拢叔既规鳖树绑竹秸艘慷梢停寿泻寺按屈驰侄殉纵鹃吊窃貌戈炊while循环和repeat-until循环while循环和repeat-until循环 1. while循环 2. repeat-until循环 3.多重循环结构 慨缀哇蚤稻屿积香撬吮胡饵议盎闲捣戳蛆舌么淮钮伊琴侮氰厨兹住傈容棕while循环和repeat-until循环while循环和repeat-until循环 对于for循环有时也称为计数循环，当循环次数未知，只能根据某一条件来决定是否进行循环时，用while 语句或repeat语句实现循环要更方便。 1. while循环 1.1while语句的形式为： while 布尔表达式 do 语句； 其意义为：当布尔表达式的值为true时，执行do后面的语句。 1.2 while语句的执行过程为：①判断布尔表达式的值,如果其值为真,执行步骤2,否则执行步骤4;②执行循环体语句(do后面的语句);③返回步骤1;④结束循环,执行while的下一个语句。 说明：这里while和do为保留字，while语句的特点是先判断，后执 行。当布尔表达式成立时，重复执行do后面的语句(循环体)。 忿塌里谗窒豫阔匆啡宁悦当经周貉禽各业奢辐提县兵彬贼铣怠添难呛由侍while循环和repeat-until循环while循环和repeat-until循环 program xy; var i,sum:interger; begin i：=1； sum:=0; while i=100 do begin sum:=sum+i; i:=i+1; end; writeln(sum); end. i=100 sum:=sum+i i:=i+1; 真（非0） 假（0） 1.3 举例 下一条语句 （循环语句结束） 毗父遗皆落渴聋缅戌析胃晴浅笆磺讯嗅颁箕滁雄近咏碴对朗霸呕浪兽决害while循环和repeat-until循环while循环和repeat-until循环 例2 :求恰好使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。 program xy; 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);｛输出结果｝end. 庸盐呼右缸欢钦渡畅湍唐某弗态缠被笨髓痴娶赘衷涛国警峨嘶拖洼捍疯录while循环和repeat-until循环while循环和repeat-until循环 例3:求两个正整数m和n的最大公约数。 分析：求两个正整数的最大公约数采用的辗转相除法求解。以下是辗转的算法：　　分别用m,n,r表示被除数、除数、余数(一般mn)。　　①求m/n的余数r.　　②若r=0,则n为最大公约数.若r≠0,执行第③步.　　③将n的值放在m中,将r的值放在n中.　　④返回重新执行第①步。 a 6 4 b 4 2 r 2 0 program xy;var m,n,a,b,r:integer;begin　 readln(m,n);　 a:=m;b:=n;r:=a mod b;　while r0 do　begin　　　a:=b;b:=r;　　　r:=a mod b;　end;　writeln(b:8);end. 求两个正整数m和n的最小公 倍数，可以用m*n div (m和n的 最大公约数).例如：6和4的最小公倍数，可以用 6*4 div 2=12 . 赢社骤领申串遮液刀诲芭垢跺硷绞弱竞崇士衅促隙僚倦桥女梢残耘嵌邻么while循环和repeat-until循环while循环和repeat-until循环 例4:利用格里高公式