Напишите программу (в Pascal ABC), которая вычисляет число π с заданной пользователем точностью. Воспользуйтесь данными и условием предыдущей задачи. (Условие предыдущей задачи: напишите программу, которая вычисляет частичную сумму ряда 1 - 1/3 + 1/5 - 1/7 + 1/9 - ... и сравнивает полученное значение с π/4).

Для вычисления используется ряд Лейбница: \(\pi=4\left(1-\frac13+\frac15-\frac17+...\right)\). Программа добавляет члены ряда, пока погрешность следующего члена не станет меньше заданной точности.

Программа PascalABC:

program PiApproximation;
var
  eps, s, term, pi: real;
  n: integer;
begin
  write('Введите точность: ');
  readln(eps);
  s := 0;
  n := 0;
  repeat
    term := 1 / (2 * n + 1);
    if n mod 2 = 0 then
      s := s + term
    else
      s := s - term;
    n := n + 1;
  until 4 * term < eps;
  pi := 4 * s;
  writeln('Приближённое значение pi = ', pi);
  writeln('Количество членов ряда: ', n);
end.

0 0 Пожаловаться