Пример применения модуля суммирования рядов

В качестве примера рассмотрим задачу вычисления функции sin(x). Эта функция вычисляется как сумма бесконечного ряда

Общая формула для элемента ряда имеет вид:

Полученная функция относится к классу алгоритмически сложных, поэтому выполняем подготовительный этап:

- первый элемент ряда имеет значение x;

- функция знаменателя геометрической прогрессии

Таким образом, для суммирования бесконечно убывающего знакопеременного ряда воспользуемся подпрограммой z6 из модуля sum_riad.

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

Текст программы

program fsin;

uses sum_riad;{подключение библиотеки суммирования рядов}

var x:real;{аргумент функции}

E:real;{точность вычисления суммы}

{$f+}

{функция вычисления знаменателя геометрической прогрессии}

function znsin(i:integer):real;

begin

znsin:=-sqr(x)/((2*i)*(2*i+1));

end;

{$f-}

begin

writeln('Введите точность вычисления');

readln(E);

writeln('Введите аргумент для функции sin');

readln(x);

writeln('sin(',x,')=',z6(E,x,znsin));

end.