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

Пожалуйста помогите написать программу в паскале

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

Задать свой вопрос
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 lt; 1e-4;

 s.Println

end.

0.785448153398948

, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт