Дан числовой ряд и некоторое малое число ε (например, ε=0,00001). Найти сумму тех членов ряда, модуль которых больше или равен заданному ε. Формула [latex] a_{n} = \frac{1}{ 2^{n} } + \frac{1}{ 3^{n} } [/latex]
Дан числовой ряд и некоторое малое число ε (например, ε=0,00001). Найти сумму тех членов ряда, модуль которых больше или равен заданному ε. Формула [latex] a_{n} = \frac{1}{ 2^{n} } + \frac{1}{ 3^{n} } [/latex]
Гость
Ответ(ы) на вопрос:
Гостьconst eps=0.00001;
var b,c:integer; a,s:real;
begin
s:=0;
b:=1; c:=1;
a:=1/b+1/c;
while abs(a)>=eps do
begin
s:=s+a;
b:=2*b; c:=c*3;
a:=1/b+1/c;
end;
writeln('s = ',s:8:5);
end.
Результат:
s = 3.49998
Не нашли ответ?
Похожие вопросы