Найти сумму ряда - PascalABC.NET

Формулировка задачи:

Пожалуйста посмотрите, не знаю как написать эту формулу. Найти сумму ряда при х=0,2 с заданной точностью 0,1. Заранее спасибо.

Решение задачи: «Найти сумму ряда»

Листинг программы

begin
  var eps := ReadlnReal('e =');
  writeln('s = ', SeqWhile(-sqr(2 * x) / 2, v -> -v * sqr(2 * x) / (2 * n * (2 * n - 1)), v -> abs(v) > eps).Sum:0:12);
end.

Объяснение кода листинга программы

В данном коде на языке PascalABC.Net реализуется вычисление суммы ряда, представленного последовательностью выражений v -> -v sqr(2 x) / (2 n (2 * n - 1)) с помощью цикла SeqWhile. Список действий:

Ввод значения переменной eps с помощью функции ReadlnReal('e =').
Вывод значения суммы ряда SeqWhile(-sqr(2 x) / 2, v -> -v sqr(2 x) / (2 n (2 n - 1))), где v -> abs(v) > eps, с помощью функции writeln('s = ', ...). Пояснение к коду:
- Функция ReadlnReal('e =') используется для ввода значения переменной eps с помощью пользовательского ввода.
- Функция SeqWhile(-sqr(2 x) / 2, v -> -v sqr(2 x) / (2 n (2 n - 1))), где v -> abs(v) > eps, представляет собой цикл, который выполняется до тех пор, пока значение переменной v не станет меньше eps.
- Выражение -v sqr(2 x) / (2 n (2 * n - 1)) представляет собой одно выражение ряда, которое вычисляется на каждой итерации цикла.
- Функция writeln('s = ', ...) используется для вывода значения суммы ряда.