Вычислить значение суммы членов бесконечного ряда с заданной точностью и значени

Вычислить значение суммы членов бесконечного ряда с заданной точностью и значение суммы, определяемое пределом суммы ряда (по формуле). Напечатать значения сумм и число циклов ряда, вошедших в сумму. Chx= (1+x^2/2!)+(x^4/4!)+(x^6/6!)+..+x^2n/(2n)! Где x=0.7, e=10^-4
Гость
Ответ(ы) на вопрос:
Гость
// PascalABC.NET 3.1, сборка 1200 от 13.03.2016 begin   var x:=0.7;   var eps:=1e-4;   var a:=x*x/2;   var chx:=1+a;   var n:=1;   while a>=eps do begin     Writeln('n=',n,'   Ch(x)=',chx);     Inc(n);     a:=a*x*x/((2*n)*(2*n-1));     chx:=chx+a     end;   Writeln('----------------------------');    Writeln('n=',n,'   Ch(x)=',chx) end. Результат выполнения программы: n=1   Ch(x)=1.245 n=2   Ch(x)=1.25500416666667 n=3   Ch(x)=1.25516756805556 ---------------------------- n=4   Ch(x)=1.25516899781771
Не нашли ответ?
Ответить на вопрос
Похожие вопросы