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

Автор: nilson 24.01.2009 23:26

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


Эскизы прикрепленных изображений

Автор: volvo 24.01.2009 23:55

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

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

Автор: nilson 25.01.2009 0:05

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

Автор: nilson 29.01.2009 3:33

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

Автор: nilson 1.02.2009 18:33

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©/cos(v)):12:10);
readln;
end.

М

Тэги! Lapp

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


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