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

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

For i:= N1 To N2 Do <оператор>; либо For i:= N1 DownTo N2 Do <оператор>;

З десь i - параметр цикла (переменная порядкового типа),

N1, N2 - начальное и конечное значения параметра цикла i.

N1, N2 могут быть константами, переменными или выражениями порядкового типа.

Напомним, что "оператор" может иметь вид: Begin "операторы" end;

В случае связки "To" цикл выполняется при условии N1 <= N2 и происходит с единичным возрастанием параметра цикла i от N1 до N2. В случае связки DownTo цикл выполняется при условии N1 >= N2 и происходит с единичным уменьшением параметра цикла i от N1 до N2.

В операторе цикла не разрешается присваивать параметру цикла какое-либо значение.

Пример 1: Найти сумму всех n-значных чисел, кратных k (1  n  4).

Program P1;

Var I,S,K: integer;

Begin

Writeln (‘Введите K’);

Readln (K);

S:=0;

For I:=1 to 9999 do

If I mod K=0 then S:=S+I;

Writeln (‘Результат: ’,S);

Readln;

End.

Пример 2: Вычислить конечную сумму последовательности:

12 + 32 + 52 +. . . + (2*N-1)²; S_n = N*(4*N²-1)/3;

PROGRAM SUM_K

var

a, S, Sn, i, N : word;

Begin

Write ('Введите число членов суммы N=');

Readln (N);

S:= 0;

For i:= 1 to N do

begin

a := Sqr(2*i-1);

S:= S+a;

end;

Sn := N*(4*N*N-1) div 3;

Writeln ('Конечная сумма S=', S:10:2);

Writeln ('Расчет конечной суммы по формуле Sn=', Sn:10:2);

Writeln ('Нажми Enter');

Readln;

End.