Написать на Pascal программу нахождения суммы ряда с заданной точностью e

Question

Написать на Pascal программу нахождения суммы ряда с заданной точностью e

Екатерина Бушина Ученик (187), открыт 2 недели назад

Написать на Pascal программу нахождения суммы ряда с заданной точностью e/ Использовать
рекуррентные соотношения при вычислении очередного члена ряда. Вычисление заканчивается, если модуль очередного слагаемого становится меньше заданного значения точности , причем для этих рядов (при |x|<1) абсолютная величина суммы всех отброшенных членов ряда будет меньше e . Для оценки правильности расчетов предусмотреть вычисление по контрольной формуле.

Answer 1

 program Test;
var x, e, t, s: real;
    i: integer;
begin
  s := 0.0;
  t := -1.0;
  i := 0;
  read(x, e);
  repeat
    inc(i, 4);
    t := -t * x * (i - 3) / i;
    s := s + t
  until abs(t) < e;
  write(s:0:10, ' ', 1.0 - 1.0 / sqrt(sqrt(1.0 + x)):0:10)
end.