Здравствуйте!Помогите пожалуйста: вычислить сумму бесконечного ряда с заданной...

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

Comments

Спасибо вам большое!!!

---

Пожалуйста.

---

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

---

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

---

Спасибо!

---

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