Вычислить сумму ряда с заданной точностью

@Lesya18 · Регистрация: 05.12.2018

Студворк — интернет-сервис помощи студентам

Помогите с задачей.

Условие : Даны действительные числа x, e (экстриситет) (x<>0, e>0), Вычислить с точностью е (экстриситет) выражение

$https://www.cyberforum.ru/cgi-bin/latex.cgi?<br /> \sum_{k=0}^{\infty }\frac{(-1)^kx^{4k+1}}{(2k)!(4k+1)}<br />$

входные данные: x=-0,5
ожидаемый результат:-0,496884042
Помогите найти ошибку в программе
вот сама задача :

Pascal

uses
  SysUtils,math;
const
  eps=0.0000001;
var
  X,Sum,G:real;
  k,Factorial:integer;
begin
  write ('x=');
  Readln (x);
  Sum:=0;
  G:=(power(-1,k)* power(x,4*k+1))/((2*Factorial)*(4*k+1));;
  Factorial:=0 ;
  while G > eps do
    begin
      G:=(power(-1,k)* power(x,4*k+1))/((2*Factorial)*(4*k+1));
      Sum:=Sum+G;
      Factorial:= Factorial*k;
    end;
    writeln (sum:0:6);
  Readln;
end.

@Puporev · 10.12.2018, 20:43

Pascal

const
  eps=0.0000001;
var
  X,Sum,G:real;
  k:integer;
begin
  write ('x=');
  Readln (x);
  k:=0;
  G:=x;
  Sum:=x;
 while abs(G)/(4*k+1)>eps do
   begin
    k:=k+1;
    G:=-G*x*x*x*x/(2*k)/(2*k-1);
    Sum:=Sum+G/(4*k+1);
   end;
 writeln (sum:0:6);
 Readln;
end.

Опции темы