logo

Первая форма записи оператора foRс последовательным увеличением счетчика.

for i:=1 to 8 do Оператор;

В этом случае iпоследовательно принимает значения 1,2,3,..,8.

for i:=8 to 1 do Оператор;

не приведет к ошибке, но будет пройден лишь один шаг (i=8).

Пример: Написать программу для вычисления суммы Nпервых натуральных чисел, т.е. требуется вычислить 1+2+3+…N

ProgramPRIMER;

Var

N:integer; {последнее число суммы- исходное данное}

i,s:integer; {счетчик цикла и слагаемое, сумма результата}

Begin

Write(‘N’);Readln(N); {Вводим значениеN}

s:=0; {Начальное значение суммы}

fori:=1toNdo{Цикл подсчета суммы}

s:=s+i;

Writeln(‘S = ’, s); {вывод на экран результата}

End.

Замечание 1. Условие <перем_цикла> <= <конеч_знач>, управляющее работой

цикла FOR-DO проверяется перед выполнением тела цикла: если условие не выполняется в самом начале работы цикла FOR-DO, цикл не будет выполнен ни разу.

Замечание 2.Шаг наращивания параметра цикла строго постоянен и равен 1.

Замечание 3.Внутри тела цикла нельзя менять значения переменной цикла, то есть если i – переменная цикла, то в цикле недопустимо присвоение i какого-нибудь значения: i:=5 неверно.

Yandex.RTB R-A-252273-3
Yandex.RTB R-A-252273-4