for循环语句练习题讲解和其它循环结构)20130815.pptVIP

?WHILE循环与REPEAT…UNTIL循环 一、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。 program ex; 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. 二、直到循环（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的最大公约数。 　　分析：求两个正整数的最大公约数采用的辗转相除法求解。以下是辗转的算法： 分别用m,n,r表示被除数、除数、余数。 ①求m/n的余数r. ②若r=0,则n为最大公约数.若r≠0,执行第③步. ③将n的值放在m中,将r的值放在n中. ④返回重新执行第①步。 program ex; 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. * * 程序如下： Program Ex1_4 Var I,S:integer; Begin i:=2; For i:=0 to 100 do begin s:=0; S:=S+i;end; Writeln(‘1+2+3+…+’,n,’=’,s); End. 一、for语句的一般格式 for 控制变量:=表达式1 to 表达式2 do 语句; for 控制变量:=表达式1 downto 表达式2 do 语句; 运行调试如下程序，观察现象。 Program Ex1_4 Var i,S:integer; Begin s:=0; For i:=0 to 100 do begin i:=i+1; S:=S+i;end; W