Сумма бесконечно сходящегося ряда

[Анастасия93]

Здравствуйте
Прошу помочь решить задачу:
Нужно вычислить сумму бесконечно сходящегося ряда при заданном значении х с точностью е=0.0001.

S=cos x + cos3x/3^2+cos5x/5^2+COS(2n-1)x/(2n-1)^2

Диапазон изменения аргумента:

п/5<=x<=п

Особенностью решения задачи является то, что число суммируемых членов ряда заранее является неизвестным. условием окончания цикла по накоплению суммы является достижение заданной точности. Значение текущего ряда зависит от параметра и от порядкового номера n. Если член ряда по абсолютной величине становится меньше заданной точности е, то производится выход из цикла.

[Abstraction]

Особенностью решения задачи является то, что число суммируемых членов ряда заранее является неизвестным. условием окончания цикла по накоплению суммы является достижение заданной точности. Значение текущего ряда зависит от параметра и от порядкового номера n. Если член ряда по абсолютной величине становится меньше заданной точности е, то производится выход из цикла.

Грызь убивать. Много-много убивать за такой наглый тупость автора задачи. Грызь предлагать автору задачи считать сумму гармонического ряда с точностью 1/100 и долго смеяться на результат...

Гхм. Можете пояснить выражение для n-ного слагаемого? А то у меня получается cos(x/(2n-1)) (и чёрта с два тогда оно куда-нибудь сойдётся, гы-гы). В идеале - поясните строчкой программного кода, который бы присваивал переменной step значение этого слагаемого, используя переменные x и n.

[Анастасия93]

(cos(2n-1)*x)/((2n-1)^2)

[Abstraction]

ОК. Теперь всё-таки, напишите строчку кода, присваивающего переменной step значение этого выражения.

[Анастасия93]

Если честно то я понятия не имею что значит переменная step и как она записывается

[svkpro]

есть пример кода на паскале:

uses crt;
const e = 0.0001;
var s,x,a: real;
    n: integer;
 
function pow(x: real; y: integer): real; {функция вычисляет степень числа}
var i: integer;
    r: real;
begin
 r:=x;
 for i:=2 to y do
  x:=x*r;
 pow:=x;
end;
 
begin
 write('x: ');
 readln(x);
 s:=(x-1)/(x+1); {самый первый член суммы ряда. Его нужно записать отдельно, т.к. он не вычисляется по общей формуле}
 n:=1;
while abs(a)>e do
 begin
  a:=(1/(2*n+1))*pow(( (x-1)/(x+1) ),(2*n+1) ); {вычисление члена ряда}
  s:=s+a; {суммирование всех членов ряда}
  n:=n+1; {порядковый номер}
 end;
 writeln('Sum = ',s:5:4);
end.

[Анастасия93]

Да,но он как мне сказали не верный

Const Pi=3.1415926;
var S,An,x:real;n:integer;Label Back;
begin
Back:
write('Enter X=');
readln(x);
if (Pi/5<=x) and (x<=Pi) then
begin
s:=cos(x);
An:=x;
n:=1;
while (abs(An)>0.0001) do
begin
S:=S+An;
n:=n+1;
An:=An*( (cos((2*n+1)*x)*power((2*n-1),2))/(cos((2*n-1)*x)*power((2*n+1),2)) );
end;
writeln('Sum ',n,' elements = ',S:0:5);
end
else
begin
writeln('Incorrect value of X! ',(Pi/5):0:2,'<X<',(Pi):0:2);
GoTo Back;
end;
readln;
end.

[svkpro]

кто сказал? этот лаб я написал не сейчас а взял из старых запасов. мы ведь тоже когда то изучали паскаль. пример только другой)

[Abstraction]

0) Программный код оформляется тегом форума CODE.

Если честно то я понятия не имею что значит переменная step и как она записывается

Это значит, что есть (даны свыше) три переменные с именами step, x и n, нужных типов. Требуется написать одну строчку кода, которая бы присваивала переменной step

(cos(2n-1)*x)/((2n-1)^2)

Ниоткуда не копировать, просто написать.

[Анастасия93]

преподаватель сказал!!!))
а вы не можете сказать что конкретно в моем решении не так??