Вычислить сумму ряда - Turbo Pascal (29852)

Узнай цену своей работы

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

-Значение Е равно 0.001 -Массивы при решении использовать нельзя (это меня и заступорило) Даны числовой ряд и число Е. Найти сумму тех членов ряда, модуль которых больше или равен заданному Е. Общий член ряда имеет вид an=1/((3*n-2)*(3*n-1)), где n=1, 2, 3, 4, ... Заранее огромное спасибушки)

Решение задачи: «Вычислить сумму ряда»

textual
Листинг программы
const e=0.001;
 
var
  sum,m: real;
  n:integer;
 
begin
  n:=0;sum:=0;m:=0;
  repeat
    inc(n);
    sum:=sum+m;
    m:=1/((3*n-2)*(3*n-1));
  until m<e;
writeln('Сумма ',n-1, ' членов = ',sum);
end.

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

8   голосов , оценка 4.125 из 5