1+2/2!+3/4!+4/6!+5/8! ... Вычислить сумму ряда. Вычисления заканчивать при достижении заданной степени точности Е

Question

Информатика

Святослава

6 марта, 10:39

1+2/2!+3/4!+4/6!+5/8! ... Вычислить сумму ряда. Вычисления заканчивать при достижении заданной степени точности Е

+1

Ответы (1)

Знаете ответ на вопрос?

Филюша · Answer 1

Программа на паскале:

const e=0.0001;

var a, s, f:real; n:integer;

begin

a:=1; s:=1; n:=0; f:=1;

while abs (a) >e do

begin

n:=n+1;

f:=f * (2*n-1) * (2*n) ;

a: = (n+1) / f;

s:=s+a

end;

writeln ('s=', s:7:5) ;

end.