Вычислить приближенное значение бесконечной суммы, Вычислить приближенное значение бесконечной суммы Опции

[nilson]

Вычислить приближенное значение бесконечной суммы. Вычисления прекращаются, когда очередное слагаемое |а|<=Е=10 в -5 степени. Формула на фото...

[volvo]

Тебе это надо вычислить программно? Тогда при чем тут математика, тема будет перенесена в Задачи.

Кстати, на форуме уже до неприличия много раз объяснялось, что такое разложение в ряд, поиск не пробовал использовать?

[nilson]

случайно ошибочка вышла.

[nilson]

ничего не могу найти, дайте ссылку,пожалуйста..

[nilson]

Program nomer_14
const Eps=1.E-5;
var k:integer;
v,x,s,s2:real;
Begin
  writeln('vvedite chislo');
  readln(x);
  s2:=4*x/Pi;
k:=1;
repeat
 v:=1/((2*k-1)*(2*k-1)-x);
 k:=k+1;
 until abs(v)<=Eps;
 v:=v*s2;
writeln(v:12:10);
v:=pi*x/2;
writeln((sin(c)/cos(v)):12:10);
readln;
end.

М

Тэги! Lapp

Вот такая прога, только она считает не правильно, где то ошибка,,,помогите найти.....


Добавлено через 15 мин.
в третьей снизу строчке опчатка writeln((sin(v)/cos(v)):12:10); вот так должно быть.