Операторы языка Delphi. Оператор цикла FOR

В процессе вычисления иногда возникает необходимость многократного повторения одинаковых последовательностей действий или однообразной обработки однородных объемов информации. В языке Delphi имеются несколько операторов позволяющих организовать эффективно данную работу.

Операторами цикла называются операторы предназначенные для многократного выполнения определенной последовательности команд. У них всегда есть заголовок цикла, задающий число повторений, и тело цикла - набор повторяемых операторов.

 Оператор цикла FOR имеет такую структуру:

for переменная-счетчик := начальное значение to конечное значение   do повторяемые операторы ;

for, to, do - являются зарезервированными словами (по русски - для, до, выполнить).

Переменная-счетчик - переменная типа Integer (может использоваться перечисляемый тип). Должна быть объявлена перед использованием. Начальное значение, конечное значение - начальное и конечное значение, того же типа (могут быть заданы операторами). Повторяемые операторы (тело цикла) - один или несколько произвольных операторов языка Delphi.

Первоначально, до выполнения цикла значение счетчика берется равным "начальное значение".  "Конечное значение" - определяет значение счетчика при котором тело цикла будет выполнено в последний раз.

Условие, управляющее работой оператора for, проверяется перед выполнением  тела цикла и если условие не выполняется в самом начале, то  "повторяемые операторы" не выполнятся ни разу.

Выполнив очередной раз тело цикла счетчик увеличивает свое значение на единицу. Затем происходит проверка, если счетчик не превышает конечного значения то цикл вычислений повторяется, в противном случае работа оператора цикла завершается. Если у нас в начальном или конечном значении находятся вычисляемые выражения, то вычисление происходит однократно при первом проходе.

Давайте вычислим сумму чисел от 1 до 100. Для этого, разместив на форме кнопку, создадим такой обработчик:

procedure TForm1.Button1Click(Sender: TObject);
var
   i, sum : integer;
begin
   sum := 0;
    for i := 1 to 100 do sum := sum + i;
   ShowMessage(IntToStr(Sum));
end;

В языке  Delphi есть другая форма оператора цикла:

for переменная-счетчик := начальное значение downto конечное значение   do повторяемые операторы ;

Значение  счетчика в этом случае будет уменьшаться на единицу.

Итог: мы разобрали оператор цикла его предназначение и применение.

Добавить комментарий

Ваш e-mail не будет опубликован. Обязательные поля помечены *