3. Цикл с параметром

Для программирования циклов с заранее известным числом повторений используют цикл с параметром.

Цикл с параметром сводится к одному оператору. Синтаксис этого оператора:

For <параметр цикла> := <выражение 1> To <выражение 2> Do <оператор>;

Ключевые слова For и To имеют смысл соответственно "для" и "увеличивая до", "выражение 1" задает начальное значение параметра цикла, а "выражение 2" - конечное значение параметра цикла. Наиболее часто параметром цикла является переменная целого типа. В этом случае его значение увеличивается на единицу. При этом начальное значение должно быть меньше или равно конечному значению, в противном случае цикл не выполнится ни разу. Цикл продолжается до тех пор, пока параметр цикла не достигнет конечного значения. Оператор, входящий в состав цикла, может быть как простым, так и составным.

Рассмотрим использование параметра цикла для вычисления факториала:

Program fact1;

Var n, i, f : integer;

Begin read(n); f := 1;

for i := 1 to n do f := f * i;

write('n!=',f)

end.

Иногда требуется не увеличивать, а уменьшать значение параметра цикла. В этом случае ключевое слово To в операторе цикла заменяется словом Downto. Оператор цикла принимает следующий вид:

For <параметр цикла> := <выражение 1> Downto <выражение 2>

Do <оператор>;

Здесь параметр цикла уменьшается от начального значения (выражение 1) до конечного значения (выражение 2). Оператор, который содержится в теле цикла for, выполняется один раз для каждого значения в диапазоне между начальным и конечным значением. При этом для цикла с downto начальное значение должно быть больше или равно конечному.

В качестве примера приведем ту же программу для вычисления факториала:

Program fact2;

Var n, i, f : integer;

Begin read(n); f := 1;

for i := n downto 2 do f := f * i;

write('n!=',f)

end.

4. Вложенные циклы

Любой оператор в теле цикла может быть, в свою очередь, одним из операторов цикла. Это обстоятельство позволяет строить циклы внутри циклов. По отношению друг к другу циклы могут быть внешними и внутренними (вложенными).

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

При программировании вложенных циклов необходимо выполнять следующие правила:

1) внутренний цикл должен целиком располагаться во внешнем;

2) при вложении циклов с параметрами в качестве параметров нужно использовать переменные с разными именами.

В качестве примера рассмотрим вычисление суммы степеней:

(1/1)ⁿ + (1/2)ⁿ + ... + (1/n)ⁿ

Program sum;

Var n, i, j : integer;

a, s, p : real;

Begin

read(n); s := 0;

for i := 1 to n do begin

a := 1/i; p := a;

for j := 2 to n do begin

p := p * a; s := s + p;

end; end;

write('s= ',s)

end.