1. Параметр цикла i и, соответственно, н_зн, к_зн могут быть любого порядкового типа (целые – byte, shortint, integer, символьный, булевский, перечислимый,…).

2. Тело цикла, обозначенное здесь как оп-р, может состоять из одного оператора, то есть быть простым оператором, или из некоторой последовательности операторов, то есть быть составным оператором. Если тело цикла оп-р состоит из двух и более операторов, то они должны быть оформлены как составной оператор, то есть заключаться в алгоритмические скобки BEGIN…END и после слова END, естественно, ставится знак «;». Следовательно, в любом случае оператор цикла заканчивается знаком «точка с запятой».

3. Параметр цикла I меняет свои значения только автоматически, при переходе к следующему шагу цикла. Изменения параметра цикла I в теле цикла запрещены.

4. Значение параметра цикла i при выходе из оператора цикла становится неопределенным. Поэтому переменная i, объявленная в программе, может использоваться в качестве параметров цикла в различных независимых операторах цикла, а вне этих операторов - как простая переменная. Например, будет корректным такой фрагмент программы:

Var i, sum_int:integer; sum_r:real;

Begin …

sum_r:=0;sum_int:=0;

For i:=1 to 5 do

sum_r:=sum_r+1/i;{i – параметр цикла }

For i:=1 to 10 do

sum_int:=sum_int+sqr(i);{ i – параметр цикла }

i:=35;{i - переменная}

…

Еnd;

Рекомендации по применению. Оператор цикла с параметром следует применять в тех случаях, когда количество выполнений оператора оп-р известно или может быть вычислено до начала выполнения оператора цикла.

Ниже приводятся программы, иллюстрирующие применение оператора цикла с параметром.

Пример1. Вычислить сумму N элементов арифметической прогрессии а₁,а₂,а₃,…,а_N при заданных значениях начального элементе а₁ и разности d, позволяющих определить следующий элемент а_i+1 из предыдущего a_i по формуле а_i+1 := a_i + d, где i=1,2,…,N:

Program sum_ap;

var i,N:byte;

ai,d,sum: real;

begin

sum:=0;write(‘Задайте целое N и любые аi,d,: ’);

readln(ai,d,N);

for i:=1 to N do

begin sum:=sum + ai;

write(‘Сумма на ’,i,’-м шаге равна ’, sum);

ai:=ai+d

end;

writeln(‘Для выхода из программы нажми Enter’);readln;

end.

Пример 2.

Вычислить при заданном значении аргумента Х значение функции

Y= 11Х¹⁰ +10Х⁹ +9Х⁸ + 8Х⁷ + 7Х⁶ + 6Х⁵+ 5Х⁴ + 4Х³ + 3Х² + 2Х + 1.

Применяя схему Горнера, получим:

Y=((((((((((11X+10)X+9)X+8)X+7)X+6X)+5)X+4)X+3)X+2)X+1).

Program gorner;

Var i:integer;

X,Y:real;

Begin write(‘Задайте значение Х:’); readln(X);

{Вычисление по схеме Горнера:}

Y:=11;

For i:=10 downto 1 do Y:=Y*X+i;

Writeln(‘При Х=’,Х:6:2,’ Y=’,Y:8:4);

Writeln(‘Для выхода из программы нажать Enter’);readln;

End.

7.5.2 Оператор цикла с предусловием оператор цикла с предусловием имеет структуру:

WHILE условие DO оп-р;

где условие – это выражение, принимающее значение false или true.

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

Пример 3. Вычислить сумму ряда элементов убывающей последовательности S=1+1/2²+1/3² +1/4²+…+1/k²+… . Вычисление производить до тех пор, пока очередной элемент ряда не станет меньше некоторой заданной величины Е.

Program sum_r;

Label 1;{метка}

Var k:integer;

Sum,a,E:real;{a – очередной элемент ряда}

Begin

1: write(‘Задайте значение Е>0: ’);readln(E);

{Очевидно, что при Е>=1 задача теряет смысл, поэтому

проверяется условие корректности задания значения Е:}

if E>=1 then

begin writeln(‘Значение Е задано не корректно. Надо Е<1’);

goto 1

end;

a:=1;{первый элемент ряда равен 1}

Sum:=0;k;=0;

While a > E do

Begin k:=k+1;a:=1/sqr(k);sum:=sum+a;

writeln(‘На шаге’, k:3, ‘ сумма ряда S=’,sum);

End;

Writeln(‘Решение закончено. Нажмите Enter’);readln

End.

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