Задания для самостоятельного выполнения.

1. Найти сумму 50 членов ряда.

2. Найти сумму 45 членов ряда.

3. Найти сумму 25 членов ряда.

4. Найти сумму 35 членов ряда.

5. Найти сумму 40 членов ряда.

6. Найти сумму 50 членов ряда.

7. Найти сумму ряда с заданной точностью.

8. Найти сумму ряда с заданной точностью.

9. Найти сумму ряда с заданной точностью.

10. Найти сумму ряда с заданной точностью.

11. Найти сумму ряда с заданной точностью.

12. Найти сумму ряда с заданной точностью.

х = 0,2.

13. Найти сумму ряда с заданной точностью.

х = 0,12.

14. Найти сумму ряда с заданной точнотью.

х = 0,75.

15. Найти сумму ряда с заданной точностью.

х = 0,7.

16. Найти сумму ряда с заданной точностью.

х = 0,1.

17.Найти сумму ряда с заданной точностью.

18. Найти сумму ряда с заданной точностью.

19. Найти сумму ряда с заданной точностью.

х = 1,5.

20. Найти сумму ряда с заданной точностью.

х = 0,7.

21. Найти сумму ряда с заданной точностью.

s =

x = 0,75.

22 Найти сумму ряда с заданной точностью.

s =

x = 0,2.

23. Найти сумму ряда с заданной точностью.

s =

x = 0,2.

24. Найти сумму ряда с заданной точностью.

Тема 5. Решение нелинейных алгебраических уравнений методом простой итерации.

Для нелинейных алгебраических уравнений вида даны зависимости, позволяющие определить корни уравнений. Если зависимости не определены в задании, их необходимо получить путем преобразования уравнения к виду . Корни находятся методом простой итераций. Составить алгоритм и программу, которая определяет корень уравнения с заданной точностью. Начальное приближение корня (или отрезок, на котором находится корень уравнения) известно. Необходимо проверить условие сходимости метода итераций. В программе должны быть две подпрограммы-функции и одна процедура

1. Процедура Proc, реализующая метод итераций. Входные параметры для нее: начальное приближение, точность Выходные: количество итераций, корень. Процедура вызывается из главной программы.

2. Функция , вычисляющая . Вызывается из процедуры.

3. Функция проверки результата , которая вычисляет значение Входной параметр – корень. Результат – ноль с заданной точностью. Вызывается из главной программы.

Начальное приближение и точность ввести с клавиатуры в главной программе. Количество итераций, за которое получено решение, корень и результат проверки вывести на экран монитора в главной программе.

Пример 1. Исходное уравнение:

Итерационная формула

Определить значение корня, если .

Для нахождения корня используем бесконечный цикл с послеусловием и выходом из цикла с поиощью процедуры “break”.

Program pr5;

uses crt;

var x0, x1, x2, x3, x4, eps: real;

it: longint;

Procedure Proc(eps, x0: real;

var i: longint; var x2: real);

Var x1: real;

function f1(x: real): real;

begin

f1:= ln(x)/ln(10)+1.2

end;

begin

x1:= x0; i:= 1;

repeat

x2:= f1(x1);

if abs(x1-x2) < eps then break

else begin

inc(i); x1:= x2

end

until false

end;

function f2(x: real): real;

begin

f2:= 0.1*x – 0.1*ln(x)/ln(10) – 0.12

end;

begin clrscr;

write(‘Введите точность eps -> ‘);

readln(eps);

write(‘Введите нач. приближение -> ‘);

readln(x0);

proc(eps, x0, it, x3);

x4:= f2(x3);

writeln(‘ Результаты : ‘);

writeln(‘Корень = ‘, x3:12:6);

writeln(‘Кол-во итераций = ‘, it:10);

writeln(‘Результат проверки = ‘, x4:9:6);

readkey

end.