Delphi 循环语句.docVIP

Delphi 循环语句 一、FOR语句 格式 　　 for 控制变量:=初值 to 终值 do 语句; 　　 for 控制变量:=初值 downto 终值 do 语句; For语句执行过程： 1、先将初值赋给左边的变量（称为循环控制变量）； 　　2、判断循环控制变量的值是否已“超过”终值，如已超过，则跳到步骤5； 　　3、果末超过终值，则执行do后面的那个语句（称为循环体）； 　　4、控制变量返回步骤2； 　　5、循环结束，执行for循环后语句。 说明： 　　循环控制变量必须是顺序类型。例如，可以是整型、字符型等，但不能为实型。 　　循环控制变量的值选用to则为递增；选用downto则递减。 　　循环控制变量的值“超过”终值，对递增型循环，“超过”指大于，对递减型循环，“超过”指小于。 　　循环控制变量的初值和终值一经确定，循环次数就确定了。但是在循环体内对循环变量的值进行修改，常常会使得循环提前结束或进入死环。建议不要在循环体中随意修改控制变量的值。 　　for语句中的初值、终值都可以是顺序类型的常量、变量、表达式。 例5_1、求S＝1+2+3+…+ 100 　　var n,i : integer； ｛i为循环变量｝ 　　　　S : longint; ｛s为累加器｝ 　　begin 　　　write(input n=); readln(n); s:=0; 　　　for i:=2 to n do s:=s+i; ｛从2到n累加到s中｝ 　writeln(1+2+3+…+ 100=,s); end. 例5_2、输出斐波那契数列的前20项。 规律： F1=0 (n=1) F2=1 (n=2) Fn=Fn-1+Fn-2 (n=3) 即 0，1，1，2，3，5，8，13，21，…… 分析：由公式Fn=Fn-1+Fn-2，采用递推算法求解。 方法一 var a,b,i: longint; begin a:=0; b:=1; write(a, , ,b); for i=2 to 10 do begin a:=a+b; b:=a+b; write( , a, , ,b); end; end. 方法二 var a,b,c,i:integer; begin a:=0; b:=1; write(a, , ,b); for i=3 to 20 do begin c:=a+b; a:= b; b:=c; write(, ,c); end; end. 二、WHILE 当型循环语句 对于for循环有时也称为计数循环，当循环次数未知，只能根据某一条件来决定是否进行循环时，用while 语句或repeat语句实现循环更方便。 格式： 　 　while 布尔表达式 do ； 　　 循环体 　　while语句的执行过程为： 　　1、判断布尔表达式的值，布尔表达式的值为true时，执行do后面的语句（步骤2）,否则执行步骤4; 　　2、执行循环体语句; 　　3、返回步骤1; 　　4、结束循环,执行while的下一个语句。 　　说明： while语句的特点是先判断，后执行。 当布尔表达式成立时，重复执行do后面循环体的语句。 例4_3、斐波那契数列的第n项的值恰好大于10000，求n。 　　var a,b,c,n: integer; begin　 　　　a:=0; b:=1; n:=2; 　　　while c=10000 do 　　　　begin c:=a+b; a:=b; b:=c; n:=n+1; 　　　　end; 　　　writlen(n=,n); end. 例4_4、求两个正整数m和n的最大公约数。 　　分析：采用辗转相除法求解，分别用m、n、r表示被除数、除数、余数。 　　1、求m/n的余数r； 　　2、若r=0，则n为最大公约数，若r≠0,执行第3步； 　　3、将n的值赋于m，将r的值赋于n； 　　4、返回重新执行第1步。 　　var m,n,r:integer; 　　begin 　　　　writeln(Input m,n:);　readln(m,n); 　　　　r:=m mod n; 　　　　while r0 do 　　　　begin 　　　　　m:=n; n:=r;　r:=m mod n 　　　　end; 　　　　writeln(The greatest common divide is: ,n); 　　end. 二、REPEAT－UNTIL直到型循环语句 　　repeat-un