Исчисления суммы бесконечного ряда

[PowerPoint]

Составить программу для вычисления суммы ряда с точностью ε.
"суммы ряда с точностью ε"-сумма слагаемых для которых выполняется условие |An|> ε
ε=0,001
x=1,12

[spinogryz_ua]

Как то так попробуйте... Но тут еще поправить нужно. На скорую руку делал.

uses crt;
var x,eps,s,f,y,st:real;
r,n:integer;
begin
writeln('ïî÷àòêîâ³ äàí³') ;
writeln ('ââåñòè õ');
read (x);
writeln ('ââåñòè eps');
read(eps);
s:=0;  y:=1;  n:=1;
f:=1;
repeat
y:=power(x,n)/n*f;
s:=s+y;
writeln (n:3,y:15:10,s:15:10);
n:=n+n;
st:=st*x;
f:=f*(n+1);
until abs(n)>eps;
writeln ('Îñòàòî÷íà ñóìà =',s:15:10);
end.