Работа С Циклами

[Lomanu4]

Циклы можно использовать для повторного выполнения блока кода в случае соблюдения определенного условия (или до тех пор, пока условие не соблюдается. В Delphi существуют следующие конструкции циклов: for, while..., repeat...until. Ниже рассмотрим их более подробно.

Конструкция цикла for удобна, когда заранее точно известно, сколько раз будет выполняться цикл. Рассмотрим пример:

procedure TForm1.Button1Click(Sender: TObject);
var
    i,p: Integer; {объявляем переменные типа Integer}
begin
p:=0;
   for i:=0 to 100 do     {организовываем цикл повторений равный 100}
      begin
        p:=p+1;  {при каждом выполнении переменная p будет увеличиваться на 1}
      end;
   ShowMessage(inttostr(p));  {результат равен 101}
end;

Цикл также может организовываться от большего к меньшему:
for i:=100 downto 0 do
Конструкция цикла while повторяет оператор или группу операторов, пока определенное условие не нарушится. Цикл while должен использоваться, когда неизвестно, сколько раз должен использоваться цикл.

procedure TForm1.Button1Click(Sender: TObject);
var
    i: Integer; {объявляем переменную типа Integer}
begin
i:=0;
{организовываем цикл с условием выполнения пока i не будет равно 100}
   while i <> 100 dobegin
        i:=i+1; {при каждом выполнении переменная i будет увеличиваться на 1}
      end;
   ShowMessage(inttostr(i));  {результат равен 100}
end;

Цикл repeat...until используется для организации циклического выполнения совокупности операторов, до тех пор, пока не выполнится некоторое условие.

procedure TForm1.Button1Click(Sender: TObject);
var
    i: Integer; {объявляем переменную типа Integer}
begin
i:=0;
{организовываем цикл с условием выполнения пока i не будет равно 100}  
repeat
begin
{при каждом выполнении переменная i будет увеличиваться на 1}
        i:=i+1;end;
   until i=100;
   ShowMessage(inttostr(i));  {результат равен 100}
end;