Для заданного положительного e и заданного x вычислить сумму ряда с точностью e....

Question

Для заданного положительного e и заданного x вычислить сумму ряда с точностью e. Суммирование ряда завершается, если модуль очередного слагаемого меньше e. Определив тип общего члена ряда, и организовав вычисление его суммы со структурой вложенных циклов, получить таблицу, состоящую из переменных X, Y, S, при |X|<1.<br>

---

Answer 1

Блин пришлось помучиться потому что формула написана в примере не правильно, не 2i+2, а 4i

var
    i: integer;
    sum, e, x, y, model: real;

begin
    read(x, e);
    i := 0;
    y := -1;
    repeat
        i := i + 1;
        y := y * -x * (4 * i - 3) / (4 * i);
        sum := sum + y;
        writeln(i:3, ' ', y:10:5, ' ', sum:10:5);
    until abs(y) < e;
    writeln();
   
    model := 1 - 1 / sqrt(sqrt(1 + x));
    writeln('Проверочное значение: ', model);
    writeln('Отклонение: ', abs(abs(sum) - abs(model)));
end.

Comments

если правильно, то поставь лучшее решение пожалуйста, надо для статуса) заранеее спасибо)

---

спасибо