十循环--WHILE与REPEAT.pptVIP

WHILE循环与REPEAT循环 一、WHILE循环 基本知识 在前面的学习中我们已经学习了FOR循环，对于for循环有时也称为计数循环，当循环次数未知，只能根据某一条件来决定是否进行循环时，用while 语句或repeat语句实现循环要更方便。　　while语句的形式为：　　while 布尔表达式 do 语句；　　其意义为：当布尔表达式的值为true时，执行do后面的语句。　　while语句的执行过程为：　　①判断布尔表达式的值,如果其值为真,执行步骤2,否则执行步骤4;　　②执行循环体语句(do后面的语句);　　③返回步骤1;　　④结束循环,执行while的下一个语句。　　说明：这里while和do为保留字，while语句的特点是先判断，后执行。 当布尔表达式成立时，重复执行do后面的语句(循环体)。 例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。 例2:求两个正整数m和n的最大公约数 　　分析：求两个正整数的最大公约数采用的辗转相除法求解。以下是辗转的算法：　　分别用m,n,r表示被除数、除数、余数。　　①求m/n的余数r.　　②若r=0,则n为最大公约数.若r≠0,执行第③步.　　③将n的值放在m中,将r的值放在n中.　　④返回重新执行第①步。 二、直到循环（REPEAT－until语句） 用while语句可以实现当型循环，用repeat-until 语句可以实现直到型循环。repeat-until语句的含义是：重复执行循环，直到指定的条件为真时为止。　　直到循环语句的一般形式:　　Repeat　　　语句1;　　　:　　　语句n;　　until 布尔表达式;　　其中Repeat、until是Pascal保留字，repeat与until之间的所有语句称为循环体。　　说明：　　①repeat语句的特点是：先执行循环，后判断结束条件，因而至少要执行一次循环体。　　②repeat-until是一个整体，它是一个（构造型）语句，不要误认为repeat是一个语句，　until是另一个语句。　　③repeat语句在布尔表达式的值为真时不再执行循环体，且循环体可以是若干个语句，不需用begin和end把它们包起来， repeat 和until已经起了begin和end的作用。while循环和repeat循环是可以相互转化的。 例2、求两个正整数m和n的最大公约数。 var 　　　　m,n,a,b,r : integer;　　begin　　　write(Input m,n=);　　　readln(m,n);　　　a:=m;b:=n;　　　repeat　　　　r:=a mod b;　　　　a:=b;b:=r;　　　until r=0;　　　writeln(The greatest common divide is,a);　　end. 思考类比WHILE循环程序有什么不同? 三种循环结构的比较 以上我们已介绍了三种循环语句。一般说来，用for 循环比较简明，只要能用for循环，就尽量作用for循环。只在无法使用for循环时才用while循环和repeat-until循环， 而且 while 循环和repeat-until循环是可以互相替代的。for 循环在大多数场合也能用while和repeat-until循环来代替。一般for循环用于有确定次数循环，而while和repeat-until循环用于未确定循环次数的循环。　　当一个循环的循环体中又包含循环结构程序时，我们就称之为循环嵌套 三、循环结构程序设计 例3 求1!+2!+…+10!的值。　　分析：这个问题是求10自然数的阶乘之和，可以用for 循环来实现。程序结构如下：　　for n:=1 to 10 do　　begin　　　①求N!的值　　　②累加N!的值t　　end　　显然,通过10次的循环可求出1!,2!…,10!,并同时累加起来, 可求得S的值。而求T=N!,又可以用一个for循环来实现:　　t=1;　　for j:=1 to n do　　　t:=t*j; 参考程序一 program ex4_5;　　var t,s:real;　　　　j,n:integer;　　begin　　　S:=0;　　　for n:=1 to 10 do　　　begin