Пожалуйста помогите написать программу в паскале" Найти сумму ряда 1-1/3+1/5-1/7+... с...

Question

Пожалуйста помогите написать программу в паскале" Найти сумму ряда 1-1/3+1/5-1/7+... с точностью до Ԑ=0,0001, т.е суммирование прекращается, если очередной элемент по модулю меньше Ԑ

Answer 1

PascalABC.NET 3.4.2, сборка 1864 от 11.11.2018

Внимание! Если программа не работает, обновите версию!

begin

 var (s, i, z) := (0.0, 0, 1);

 var a: real;

 repeat

   Inc(i);

   a := 2 * i - 1;

   s += z / a;

   z := -z;

 until 1 / a < 1e-4;

 s.Println

end.

0.785448153398948