循环语句

一. for循环语句:

var
sum : integer;
sum := 0;
for i:=1 to 100 do
begin
  sum := sum+i;
end;
for i:=100 downto 1 do
begin
  sum := sum+i;
end;

 

 

二。while循环语句

while 条件 do

begin

end;

 

三。repeat ... until,与while相似;

 

四.break()跳过循环, cuntinue()跳过循环中的部分代码从新开始下一个循环;

posted @ 2012-10-20 10:11  delphiclub  阅读(115)  评论(0编辑  收藏  举报