С использованием операторов повтора цикл вычислить выражение - Pascal ABC

Формулировка задачи:

∑_(n=1)^∞▒〖(-1)^n 1/(n*(2n+1))〗

Код к задаче: «С использованием операторов повтора цикл вычислить выражение - Pascal ABC»

textual
var eps,s,ds:real;
    n:integer;
begin
eps:=0.00001;
n:=1;
ds:=-1;
s:=ds/3;
repeat
n:=n+1;
ds:=-ds;
s:=s+ds/n/(2*n+1);
until ds/n/(2*n+1)<=eps;
writeln('Sum=',s:0:3);
end.
Эта работа вам не подошла?

Вы всегда можете заказать любую учебную работу у наших авторов от 20 руб.

8   голосов, оценка 3.625 из 5


СДЕЛАЙТЕ РЕПОСТ