Найти сумму k=0 до бесконечности (((-1)^k)/(2k+1))×x^(2k+1). На паскале написать

Для нахождения суммы ряда \( S(x) = \sum_{k=0}^{\infty} \frac{(-1)^k}{2k+1} x^{2k+1} \) используем формулу для ряда Тейлора арктангенса:

\[ \arctan(x) = \sum_{k=0}^{\infty} \frac{(-1)^k}{2k+1} x^{2k+1}. \]

Таким образом, сумма данного ряда при условии, что \( |x| \leq 1 \), равна \( \arctan(x) \).

Теперь давайте напишем код на Паскале, который вычислит эту сумму для заданного значения \( x \) с использованием цикла.

program SumArctan;

uses crt;

var
  x: Real;
  k: Integer;
  term: Real;
  sum: Real;

begin
  clrscr;
  sum := 0;
  k := 0;

  // Вводим значение x
  Write('Введите значение x (|x| <= 1): ');
  ReadLn(x);

  // Проверим, что |x| <= 1
  if (Abs(x) > 1) then
  begin
    WriteLn('Ошибка: |x| должно быть меньше или равно 1.');
    Exit;
  end;

  // Вычисляем сумму ряда
  repeat
    term := (Power(-1, k) / (2 * k + 1)) * Power(x, 2 * k + 1); // текущий член ряда
    sum := sum + term; // добавляем к сумме
    k := k + 1; // переходим к следующему члену
  until (Abs(term) < 1e-10); // условие выхода, когда член ряда очень мал

  // Выводим результат
  WriteLn('Сумма ряда S(x) = ', sum);
  WriteLn('Функция арктангенса arctan(x) = ', arctan(x));
  
  ReadLn;
end.

Этот код выполняет следующее:

1. Запрашивает пользователя ввести значение \( x \).
2. Проверяет, что \( |x| \leq 1 \).
3. Вычисляет сумму ряда с использованием цикла repeat-until, добавляя члены до тех пор, пока их абсолютное значение не станет меньше заданного порога \( 1e-10 \).
4. Выводит полученную сумму и значение функции арктангенса для введенного \( x \).

Используя этот код, вы сможете вычислить сумму ряда для различных значений \( x \).