Question

Здравствуйте!Помогите пожалуйста: вычислить сумму бесконечного ряда с заданной погрешностью E=0,001

Answer 1

var x,e,a,s:real; i,f,z:integer;
begin
readln(e);
x:=1.5;
i:=0;
f:=1;
s:=0;
z:=1;
a:=1;
while abs(a)>e do
 begin
 i:=i+1;
 f:=f*i;
 z:=-z;
 a:=z*exp(x-i)/f;
 s:=s+a;
 end;
writeln('s = ',s:6:3);
end.

Пример:
0.001
s = -1.379

Answer 2

Пожалуйста.

Answer 3

а к вам можно если что будет обращаться?

Answer 4

Обращайтесь, но обещать ничего не могу.

Answer 5

Спасибо!

Answer 6

Здравствуйте!Мне снова нужна ваша помощь!Если сможете помогите