Приближенное вычисление числа Пи с заданной точностью (разложение в ряд)

@iavn11234 · Регистрация: 12.11.2017

Студворк — интернет-сервис помощи студентам

Написать программу приближенного вычисления числа π с заданной точностью. Для этого использовать ряд 1-1/3+1/5-1/7+1/9-…, сумма которого при достаточно большом количестве членов стремится к значению π/4. Вычисление π организовать в цикле, но операторы цикла при этом не использовать.

Добавлено через 57 минут
И сделать блок схему

@iavn11234 · 29.12.2017, 01:27 **[ТС]**

Или я что то не так делаю

Добавлено через 6 минут
А почему знаменатель из не чётных чисел?

@Cyborg Drone · 29.12.2017, 01:41

Сообщение от iavn11234

можно сделать вот так ?) n:=2n+1

Нельзя. Это верно для k. Можно вот так: n := n + 2.

Сообщение от iavn11234

не получается 1/5

Ну да. Получается 5, а не 1/5.

Если хотите именно k в программе (далась она Вам), то вот так:

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
label 1, 2;
var s, a, e, z: real;
  k: longint;
begin
  1:
    writeln('eps > 0;');
    write('eps =  ');
    readln(e);
  if e <= 0 then goto 1;
  e := e / 4;
  s := 1;
  k := 0;
  2:
    k := k + 1; //или inc(k);
    z := 1 - k mod 2 * 2; //один из способов вычисления (-1)^k
    a := 1 / (2 * k + 1);
    s := s + z * a;
  if a > e then goto 2;
  s := 4 * s;
  writeln('  s = ', s :18:15);
  writeln(' pi = ', pi :18:15);
  writeln('err = ', s - pi :18:15);
  readln
end.

Только это - индусское и нубское решение, поскольку в цикле появляются дополнительно две операции умножения, операция взятия остатка, сложение и вычитание. Оно Вам надо?

Непосредственно вычислить (-1)^k можно с помощью цикла или с помощью логарифмирования и потенцирования, но подобные вычисления я считаю апофеозом идиотизма.

Добавлено через 2 минуты

Сообщение от iavn11234

почему знаменатель из не чётных чисел?

iavn11234, ??? Я перестаю понимать Ваши вопросы. Вы задание своё, что, не читали, что ли? Какие там в задании числа в знаменателях?

@iavn11234 · 29.12.2017, 01:47 **[ТС]**

Вот такое мне решение и нужно) как раз для такого нубаа как я

Добавлено через 17 секунд
Спасибо большое) теперь разобрался

@Cyborg Drone · 29.12.2017, 01:56

Сначала Вам придётся понять, что происходит в строке 15, она не такая уж и нубская. А вообще, та программа, которую я привёл в посте #7, можно считать оптимизированным вариантом нубской программы.

Для окончательного обнубления программы строчку 15 можно заменить на более индокитайскую:

Pascal
15
    if k mod 2 = 0 then z := 1 else z := -1;

Но мой Вам совет: всё же примите на вооружение программу из поста #7. И блок-схему переделывать не придётся...

@iavn11234 · 29.12.2017, 02:47 **[ТС]**

Про блок-схему я позабыл)) ну ладно попробую сам исправить вроде не сложно

Новые блоги и статьи Все статьи Все блоги /
ИИ не может найти нужный язык в списке Supersumestria 05.10.2026 Я ему даю вот такое изображение и прошу найти и подчеркнуть немецкий язык. Возвращает он вот это: https:/ / i. **********/ vqBWLe2. png Нужную строчку в 3й колонке просто выдумал. . Это. . .	Новая последняя моя музыка в SUNO zorxor 05.10.2026 Здравствуйте, дорогие мои друзья! С большой радостью я хотел бы представить вам свою новую последнею музыку, которую сгенерировала мне по моей просьбе нейросеть SUNO. С уважением, zorxor. Это. . .	Программный домашний кинотеатр russiannick 27.09.2026 Сподобился на программный домашний кинотеатр. В качестве ЯВУ по традиции выбрал js. В помощники взял Яндекс-Алису. Было создано три зала на разные интересы. исторические и ретро сериал Хичкок. . .	Беседа с ИИ о программистах, недопускающих к созданию и правке кода генеративные ИИ и причины этого zorxor 21.09.2026 Раньше я радовался или получал некоторые эмоции, пусть небольшие, но всё же, от самого процесса написания кода, рекомпиляции и запуска, видя постепенное развитие программы и прочее. А теперь лень. . .
Мобильное приложение ColorStep pavlinmavlin 17.09.2026 Реализовал приложение Красный, Зеленый, Синий в Unity3d + c#. Название изменил на ColorStep. Приложение прошло модерацию и теперь доступно для скачивания. Делал его сам, шаг за шагом — и вот,. . .	Запрет дублирования строк в табличной части Maks 13.09.2026 Реализация из решения ниже выполнена на нетиповом справочнике "Нормы ТО" с табличной часть "Виды ТО", разработанного в КА2, со следующими реквизитами: - ВидТО (СправочникСсылка. ВидыТО); - ВидГСМ. . .	Скрипты Tampermonkey для CyberForum, ChatGPT, Claude и пр. Jin X 06.09.2026 Скрипты Tampermonkey для CyberForum, ChatGPT, Claude и пр. Работая с форумом и нейросетями в браузере часто хочется что-то подкорректировать или добавить какого-то функционала. Ниже прикреплён. . .	Программа опроса у.з. расходомера SLS-720F Argus19 02.09.2026 Программа опроса у. з. расходомера SLS-720F Программа опрашивает один раз в минуту три ультразвуковых расходомера SLS-720F через интерфейс RS-485 по протоколу Modbus RTU. Опрашиваются регистры. . .

@iavn11234 0 / 0 / 0 Регистрация: 12.11.2017 Сообщений: 27

	Приближенное вычисление числа Пи с заданной точностью (разложение в ряд) 12.11.2017, 23:57. Показов 14915. Ответов 24 Метки нет (Все метки) Написать программу приближенного вычисления числа π с заданной точностью. Для этого использовать ряд 1-1/3+1/5-1/7+1/9-…, сумма которого при достаточно большом количестве членов стремится к значению π/4. Вычисление π организовать в цикле, но операторы цикла при этом не использовать. Добавлено через 57 минут И сделать блок схему 0

@iavn11234 0 / 0 / 0 Регистрация: 12.11.2017 Сообщений: 27
	29.12.2017, 01:27 [ТС]
	Или я что то не так делаю Добавлено через 6 минут А почему знаменатель из не чётных чисел? 0

@iavn11234 0 / 0 / 0 Регистрация: 12.11.2017 Сообщений: 27
	29.12.2017, 01:47 [ТС]
	Вот такое мне решение и нужно) как раз для такого нубаа как я Добавлено через 17 секунд Спасибо большое) теперь разобрался 0

@iavn11234 0 / 0 / 0 Регистрация: 12.11.2017 Сообщений: 27
	29.12.2017, 02:47 [ТС]
	Про блок-схему я позабыл)) ну ладно попробую сам исправить вроде не сложно 0