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

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


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.

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

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



Похожие ответы
  1. нужная область-заштрихованная. радиус равен 4

  1. Вычислить сумму ряда

  1. Нужно переделать код так чтобы он при вводи четырех чисел определял совпадают ли в нем вторая и последняя.

  1. Найти сумму целых положительных чисел из промежутка от А до B, кратных 4.(значения А и В вводятся с клавиатуры)

  1. Доброго времени суток программисты! Вот такая задачка вызвала затруднение: С клавиатуры вводятся четыре пары координат точек в произвольном порядке(гарантируется, что они не лежат на одной прямой), определить являются ли эти точки вершинами параллелограмма. Подскажите пожалуйста с программой или с алгоритмом осуществления, заранее благодарен.

  1. 34. Найти сумму положительных целых чисел, меньших 100

  1. 29. Определить, заканчивается ли заданное натуральное число на нечетную цифру

  1. 2)Определить какая буква о или а входит в него чаще и на сколько их надо написать множеством

  1. Дано числовую последовательность (100, 97, 94, ...). Найти сумму 30-ти членов последовательности чисел

  1. Определить и вывести сумму элементов, значения которых находятся в диапазоне от А до В. Количество элементов массива:14 Тип Элемента массива: Int Результат вывести в виде: A[1]=........ A[2]=......... A[3]=......... Большое спасибо, за помощь!