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

[unbanned]

1=∑_(p=1)^∞ (cos(2p-1)*(π/4))/3^p
вообщем вот такой ряд...
так вроде ничего сложного, найти сумму с точностью e=0.01

но вот что-то я не могу понять почему равен единице? и как его решать в таком случае?

[Hacker19_90]

но вот что-то я не могу понять почему равен единице? и как его решать в таком случае?

Ох господи! Главное не натупить! Точно не помню, но по-моему суть
в том что чем больше итераций ты делаешь тем больше значение будет приближаться к единице!
ну примерно так
там на 100 итерации допустим
0.999998454
а на 200 итерации
0.999999567
как то так помоему!
Точно не ручаюсь!

[unbanned]

т.е. решать так же как и без единички???

[Hacker19_90]

Да! Это что то типа
"А вот единицу можно разложить вот в такой ряд!"
Но ещё раз повторюсь, что я точно не уверен!
попробуйте погуглить и точнее узнать!

[unbanned]

вот что получилось...
только минус откуда то появляется. где накосячил, та?

var
  s: real;
  ch, zn: real;
  p: integer;

begin
  s := 0;
  p := 1;
  ch := cos(2 * p - 1) * (pi / 4);
  zn := 3;
  while abs(ch / zn) >= 0.01 do 
  begin
    s := ch / zn;
    ch := cos(2 * p - 1) * (pi / 4);
    inc(p);
    zn := zn * 3;    
  end;
  writeln('s=', s:0:4);
  writeln('кол-во итераций: ', p);
end.

[Hacker19_90]

так! У вас ряд это сумма выражений!
Где вы сумму ищете?

[DiemonStar]

s := ch / zn;

Здесь нужно так сделать:

s := s + ch / zn;

[unbanned]

тупанул, блин)

[unbanned]

мне предложили вот такое решение:

var
  p: integer; 
  s, v: real;

begin
  s := 0;
  p := 0;
  repeat
    s := s + v;
    p := p + 1;
    v := (cos((2 * p - 1) * (Pi / 4)) / (Exp(ln(3) * p)));
  until (abs(v) < 0.01);
  write(s:2:10);
  readln;
end.

вроде тоже верно.
но вот ответы получаются немного разные...

если брать до 4го знака то моя программа выдает
s = 0.1598

а представленная в этом посте
s = 0.1309