Delphi循环语句[方案]

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循环用于未确定循环次数的循环。