Вычислить сумму ряда - 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.
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д