с точностью до члена ряда

в)

г)

203. Вычислить сумму членов ряда

с точностью до члена ряда меньшего 0.0000001.

204. Установить, сходятся ли следующие ряды:

а)

б)

в)

205. Составить программу вычисления бесконечного произведения:

Частичное произведение имеет вид

где C - эйлерова постоянная, а

бесконечно малая. Произведение сходится и его значение равно

206. Эйлером были найдены следующие разложения тригонометрических функций в бесконечные произведения:

1)

Составьте программы вычисления этих произведений и вычислите значения sinx и cosx с заданной точностью.

207. Дано натуральное n. Получить:

а)

б)

в)

г)

д)

е)

208. Дано натуральное n. Получить

где

209. Вычислить интеграл

Использовать разложение в логарифмический ряд.

Ответы

К заданию 1

Program

Task1; {Вычисление sinx с помощью ряда}

    uses WinCrt;

    var

       n, k                  : integer;

       x, e, eps, sin, u : real;

{----------------------------------------------------------------------------------------}

{ Функция вычисления порядка - кол-во знаков после запятой }

   Function t(eps : real) : integer;

         var

            k : integer;

         begin

            k := -1;

            repeat

                eps := eps*10;

                 k := k + 1

            until eps > 1;

            t := k

         end;

{----------------------------------------------------------------------------------------}

   begin

       write('Задайте точность вычисления '); readln(eps);

       write('Введите значение аргумента в радианах '); readln(x);

       u := x; n := 2;

       sin := x;

       repeat

           u := -u*x*x/((2*n-1)*(2*n-2));

           sin := sin + u;

           n := n + 1

       until abs(u) < eps;

       write('Значение sin( ', x:1:t(eps), ' ) равно ', sin:3:t(eps));

       writeln(' с точностью до ', eps:1:t(eps))

   end.

К

заданию 2

Program Task2;

    uses WinCrt;

    var

       n            : integer;

Содержание  Назад  Вперед