Определить сумму бесконечного ряда - Pascal ABC

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

Определить сумму бесконечного ряда с точностью эпсилон. С меня +'ы.


textual

Код к задаче: «Определить сумму бесконечного ряда - Pascal ABC»

var
  eps, s, t: real;
  i: integer;
 
begin
  repeat
    write('Enter epsilon (0 < eps < 1): ');
    readln(eps);
  until (eps > 0) and (eps < 1);
  i := 1;
  t := 1 / 9;
  s := t;
  while t > eps do
  begin
    inc(i);
    t := 1 / (i * i + 8);
    s := s + t;
  end;
  writeln('s = ', s);
  readln;
end.
Эта работа вам не подошла?

Вы всегда можете заказать любую учебную работу у наших авторов от 20 руб.


СДЕЛАЙТЕ РЕПОСТ

12   голосов, оценка 3.667 из 5

Источник