Оператор цикла с предусловием «Пока»

While N do M;

-

+

While – пока;

Do – выполнять;

N – выражение, имеющее логическое значение (условие входа в цикл);

M – любой оператор в единственном числе. Если по смыслу задачи надо повторять группу операторов, то их надо превратить в один составной оператор (заключить в операторные скобки). Этот оператор или группа операторов называется телом цикла;

Выполняется:

1. Вычисляется значение N;

2. Если N – True, то выполняется оператор M (группа операторов), иначе оператор цикла заканчивает свою работу;

3. Перейти к пункту 1.

Среди операторов тела цикла обязательно должен присутствовать оператор, изменяющий значение выражения N;

Задача 2.

Даны числа от 1 до N (N – четное). Найти: S=

Решение:

Program Ci2;

Var K,N:Integer;

S:Real;

Begin

Writeln(’Введите четное число’);

Readln(N);

K:=0;S:=0;

While K<N do

Begin

K:=K+2;

S:=S+1/K;

End;

Writeln(’S= ’,S);

End.

Задачи:

1. Даны числа от 1 до N. Найти: Р=

2. Даны числа от 1 до N (N – нечетное). Найти: S=

3. Найти значение Х: Х=(1*3*5*…*N)/(1+3+5+…+N) (N – нечетное).

4. Даны числа от 1 до N. Вычислять: S= вплоть до слагаемого, меньшего заданного Е (Е<1).

5. Вычислить среднее арифметическое чисел K,K+1,K+2,…,K+N; (K<N).

6. Вычислить сумму чисел: S=N+(N+1)+(N+2)+(N+3)+…+(N+R); (N<R).

7. Вычислить произведение чисел: P=N*(N+1)*(N+2)*(N+3)*…*(N+R); (N<R).

8. Вычислить: P=1+(1*2)+(1*2*3)+(1*2*3*…*R).

9. Вычислить: P=1*(1+2)*(1+2+3)*(1+2+3+…+R).

10. Найти значения функции M=N²-N при N={2,4,6,…,T} (T-четное).

11. Найти значения функции X=Y² *(Y ² -Y)/Y при Y={N,N*1,N*2,…,N*M} (N<M).