s := x; n := 2;

while p <= eps do {Условие выхода: очередной член ряда меньше eps} begin

p := -p*x*x/(n*(n+1)); {Вычисление очередного члена ряда} s := s+p;

n := n+2; end;

writeln('sin(x) = ', s);

Если вычисления производятся в соответствии с рекуррентными соотношениями, то еще один способ поставить связанное с точностью условие прекращения вычислений заключается в следующем. Вычисления прекращаются, если изменение вычисляемой величины на очередном шаге меньше заданной величины:

xn+1 − xn < ε

Также условие можно наложить на относительное изменение:

xn+1 − xn < ε . xn

Контрольная работа №7

1. Сколько раз выполнится цикл

2. Чему равны переменные x и y после выполнения операторов:

3. Чему равны переменные A и B после выполнения операторов:

A := 45;

B := 18;

while A <> B do if A > B then

A := A - B else

B := B - A;

4. При выполнении следующей программы пользователь ввел числа 1, 20, 17, 6, 10, 13. Какое число выведет программа:

readln(x); m := x;

while x <> 13 do begin

readln(x);

if x > m then m := x;

end; writeln(m);

Задание 9. Циклы while и repeat

1.Напечатайте на экране 10 раз слово Hello с помощью цикла while и столько же с помощью цикла repeat.

2.Напечатайте в столбик нечетные числа от 3 до 25.

3.Найти минимальное число большее 300, которое делится на 19.

4.Определить, является ли введенное пользователем число степенью тройки (не используя логарифмы).

5.Из мат. анализа известно, что последовательность сумм вида:

которая будет суммировать этот ряд до тех пор, пока очередная добавка не окажется меньше 10−6 .

6.Напишите программу, которая запрашивает у пользователя числа до тех пор, пока каждое следующее число больше предыдущего. В конце программа сообщает, сколько чисел было введено.

7.Последовательность Фибоначчи определяется рекуррентным соотношением

xn+1 = xn + xn−1 , где x0 =1, x1 =1. Найти первое число в последовательности Фибоначчи, которое больше 1000.

8. Для n-го члена в последовательности Фибоначчи существует явная формула

происходят с конечной точностью, то с ростом n, результат вычисления по этой