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 r<>0 do 　　　　begin 　　　　　m:=n; n:=r;　r:=m mod n 　　　　end; 　　　　writeln('The greatest common divide is: ',n); 　　end.

二、REPEAT－UNTIL直到型循环语句 　　repeat-until语句的含义是 “重复执行循环，直到指定的条件为真时为止”。 　　直到循环语句的一般形式: 　　   Repeat 　　   　语句1; 　　　   : 　　　   语句n; 　　 until 布尔表达式; 　 repeat与until之间的所有语句称为循环体。 　　说明： 　　1、repeat语句的特点是：先执行循环，后判断结束条件，因而至少要执行一次循环体。 　　2、repeat-until是一个整体，它是一个（构造型）语句，不要误认为repeat是一个语句，　until是另一个语句。 　　3、repeat循环体可以是若干个语句，不需用begin和end。

while循环和repeat循环是可以相互转化的。

例5_5、两个正整数的最大公约数，可用repeat-until循环实现：

本例输出语句中有m、n的原值，所以在程序中增加了两个中间变量a、b。 　　var m,n,r,a,b : 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 of ',m, 'and ',n, 'is ',a); 　　end.        一般说来，用for 循环比较简明，只要能用for循环，就尽量作用for循环。只在无法使用for循环时才用while循环和repeat-until循环， for 循环在大多数场合也能用whiel和repeat-until循环来代替。一般for循环用于有确定次数的循环，而while和repeat-until 循环用于未确定循环次数的循环