Версия для печати темы

Нажмите сюда для просмотра этой темы в обычном формате

Форум «Всё о Паскале» _ Задачи _ Сумма членов бесконечного ряда...

Автор: piplkall 5.02.2005 3:39

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

Автор: volvo 5.02.2005 4:17

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

Код
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.

Автор: piplkall 5.02.2005 6:09

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

Автор: Гость 10.10.2007 23:11

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

Автор: volvo 10.10.2007 23:42

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

1 элемент = x3/5
2 элемент = - x5/17
скорее всего

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

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