pascal while循环.doc

第七讲while循环

一、WHILE循环对于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。程序如下：vars:real;n:integer;｛n表示项数｝begins:=0;n:=0;whiles<=10do｛当s的值还未超过10时｝beginn:=n+1;｛项数加1｝s:=s+1/n;｛将下一项值累加到s｝end;
writlen('n=',n);｛输出结果｝end.
思考：这里如果没用用beginend；包围“n:=n+1;和s:=s+1/n;”这两个语句，运行结果还是一样吗？
结论：

例2、求两个正整数m和n的最大公约数。分析：求两个正整数的最大公约数采用的辗转相除法求解。以下是辗转的算法：分别用m,n,r表示被除数、除数、余数。①求m/n的余数r.(mmodn)②若r=0,则n为最大公约数.若r≠0,执行第③步.③将n的值放在m中,将r的值放在n中.④返回重新执行第①步。练习：尝试根据上面的算法思想，使用当循环语句（whiledo）写出辗转相除求最大公约数的程序，并尝试在编程环境中运行、调试。

programex4_4;varm,n,a,b,r:integer;beginwrite('Inputm,n:');readln(m,n);a:=m;b:=n;r:=amodb;whiler<>0dobegina:=b;b:=r;r:=amodb;end;writeln('Thegreatestcommondivideis:',b);end.