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

Question

Информатика

Мирослав

14 сентября, 03:27

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

+2

Ответы (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