Дан числовой ряд и некоторое малое число ε (например, ε=0,00001). Найти сумму тех членов ряда, модуль которых больше или равен заданному ε. Формула

Question

Информатика

Павелка

29 декабря, 21:31

Дан числовой ряд и некоторое малое число ε (например, ε=0,00001). Найти сумму тех членов ряда, модуль которых больше или равен заданному ε. Формула

+4

Ответы (1)

Знаешь ответ?

Диодора · Answer 1

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