Сумма членов бесконечного ряда... Опции

[piplkall]

Помогите решить задачу.
Вычислить сумму членов бесконечного ряда, для заданного Eps:
Q=cos(2x)/(1*3)+cos(4x)/(3*5)+cos(6x)/(5*7)+....
с точностью до abs(ai)<=Eps.

[volvo]

По-моему, я это уже видел ...

Код

const
 eps = 0.0001;

var
 x, q, Ai: real;
 i: integer;
begin
 write('x = '); readln(x);

 q := 0; i := 2;
 repeat
   Ai := cos(i*x) / (pred(i)*succ(i));
   q := q + Ai; inc(i, 2)
 until abs(Ai) <= eps;

 writeln('q = ', q:15:10)
end.

Сообщение отредактировано: volvo - 5.02.2005 0:17

[piplkall]

Большое спасибо.

[Гость]

Вычислить сумму членов бесконечного ряда (x^3)/5 -(x^5)/17

[volvo]

Гость
Как всегда - с чего начинается работа с рядами? С выявления общего члена последовательности... Какой в твоем случае общий член?

1 элемент = x³/5
2 элемент = - x⁵/17
скорее всего

N-ый элемент будет равен (-1)^N+1 * x^{2*N + 1}/((2*N)² + 1)
?
(я нигде не ошибся?)

А теперь можно вычислять сумму ряда, благо примеров на форуме - куча...