Помощь - Поиск - Пользователи - Календарь
Полная версия: Сумма членов бесконечного ряда...
Форум «Всё о Паскале» > Pascal, Object Pascal > Задачи
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.
piplkall
Большое спасибо.
Гость
Вычислить сумму членов бесконечного ряда (x^3)/5 -(x^5)/17
volvo
Гость
Как всегда - с чего начинается работа с рядами? С выявления общего члена последовательности... Какой в твоем случае общий член?

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

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

А теперь можно вычислять сумму ряда, благо примеров на форуме - куча...
Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.