Вычислить сумму членов ряда с точностью E

@Ubejden · Регистрация: 10.12.2017

Вычислить сумму членов ряда с точностью E.
s=1+x/1!+x^2/2!+x^3/3!+...

Помогите, пожалуйста, совсем не могу понять как тут сделать факториал.

Pascal

var
Sum,s,d,E:real;
x,n,k:integer;
 
begin
writeln('Введите E');
readln(E);
writeln('Введите x');
readln(x);
n:=1;
Sum:=1;
k:=0;
d:=power(x,n);
repeat
s:=d/((n-k)*(k+1));
writeln(n:2, '. элемент ', s);
n:=n+1;
k:=k+1;
Sum:=Sum+s;
until abs(s)<E;
writeln('Полная сумма=',Sum:4:4,' Последний элемент=',s:4:4);
end.

@JuriiMW · 11.12.2017, 09:00

n=0 : x°/0! = 1/1 = 1
n=1 : x¹/1! = x/1
n=2 : x²/2! = x/1 · x/2
n=3 : x³/3! = x²/2! · x/3
. . . . . . .
n=n : xⁿ/n! = xⁿ-¹/(n-1)! · x/n

Ну и зачем, спрашивается, отдельно считать степень и факториал?
Всё можно получить из предыдущего слагаемого!

Pascal

const e = 1e-7;
var x, f, s : Real; n : Integer;
begin
  ReadLn(x);
  n := 0; f := 1; s := 1;
  repeat
    Inc(n);
    f := f * x / n;
    s := s + f;
  until f < e;
  WriteLn('     Полная сумма = ', s:0:8);
  WriteLn('Последний элемент = ', f:0:8);
end.

@Cyborg Drone · 13.12.2017, 21:19

X имеет полное римское право быть отрицательным. Поэтому должно быть:

Pascal

10	until abs(f) < e;

Опции темы