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

Шаг равен +1

for i:= n to m do <оператор>;

где for – для,

i – параметр цикла,

n – начальное значение параметра цикла,

to – до,

m – конечное значение параметра цикла,

do – делать,

<оператор> – тело цикла.

При этом должно выполняться условие: n<m.

Если тело цикла состоит из нескольких операторов, то они заключаются в операторные скобки begin... end;

for i:=n to m do begin

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

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

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

end;

Переменная i (счетчик) увеличивается на единицу от начального значения n до конечного значения m при каждом новом значении i исполняется оператор внутри цикла. Параметр цикла, начальное и конечное его значения должны быть описаны как integer.

Если n=m, то цикл выполняется один раз.

Если n>m, то цикл не выполняется ни разу.

Шаг равен -1

for i:=n downto m do <оператор>;

где for – для,

i – параметр цикла,

n – начальное значение параметра цикла,

downto – до,

m – конечное значение параметра цикла,

do – делать,

< оператор > – тело цикла.

При этом должно выполняться условие: n> m.

Примеры вычисления сумм, количеств и произведений.

Алгоритмы подсчета:

Суммы

Первоначальное значение S:=0

Подсчет в цикле: S:=S+{текущее значение}

1.1 Вычислить: S=1+2+3+...N.

program zadacha; { вычисление суммы натуральных чисел }

var n, s, i: integer;

begin

writeln ('введите натуральное число N=');

readln (n);

s:=0;

for i:=l to n do

s:=s+i;

writeln ('сумма=', s)

end.

1.2 Вычислить:

program zadacha; { вычисление суммы }

var n, i: integer; s: real;

begin

writeln ('введите натуральное число N=');

readln (n);

s:=0;

for i:=l to n do

s:=sqrt (2+s);

writeln ('сумма=', s)

end.