Оператор цикла с параметром For

Стандартный вариант

Оператор For изменяет некоторую переменную (счетчик цикла) в заданных пределах (от минимального значения до максимального) с единичным шагом и при этом на каждый шаг может выполнять какую-либо команду или набор команд. В качестве счетчика цикла может использоваться любая целочисленная переменная.

For <Счетчик цикла>:= <Минимальное значение> То

<Максимальное значение> Do <Команда>;

В качестве <Команды> может использоваться любая конструкция языка, в том числе условные операторы или операторы цикла, а также составной оператор. В качестве <Минимального значения> и <Максимального значения> могут быть использованы целочисленные переменные или константы.

Использование переменной <Счетчика цикла> после оператора зацикливания не рекомендуется, так как значение этой переменной может быть не определено. Это связано с работой оптимизатора компиляции в Delphi, подставляющего вместо некоторых счетчиков цикла регистры процессора для ускорения выполнения программы.

При компиляции программы, в которой переменная <Счетчик цикла> используется после оператора цикла, выдается предупреждение " [Warning] FOR-LOOP variable <Имя переменной> may be undefined after loop» — " [Предупреждение] Значение переменной-счетчика цикла <Имя переменной> может быть не определено после завершения оператора цикла».

Блок-схема алгоритма, соответствующего оператору цикла с параметром, представлен на рис. 5.

Пример использования оператора цикла For при вычислении факториала некоторого числа приведен в листинге 2.15.

Листинг 2.15. Вычисление факториала с использованием оператора цика For.

Var

I: Integer; {Описание целочисленной переменной — счетчика цикла}

F: Integer; {Описание целочисленной переменной — результата

вычислений}

X: Integer; {Описание целочисленной переменной — значения, от

которого вычисляется факториал}

Begin

X:= 10; {Будем вычислять факториал числа 10}

F:= 1; {Значение факториала по умолчанию 1}

For I:= 2 To X {Счетчик цикла последовательно изменяется от 2 до X

(10) }

Do F:= F * I; {На каждом шаге цикла предыдущий результат

умножается на значение счетчика цикла}

End.