1+2/2!+3/4!+4/6!+5/8!…Вычислить сумму ряда. Вычисления заканчивать при достижении заданной степени точности Е
1+2/2!+3/4!+4/6!+5/8!…Вычислить сумму ряда. Вычисления заканчивать при достижении заданной степени точности Е
Гость
Ответ(ы) на вопрос:
ГостьПрограмма на паскале:
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.
Не нашли ответ?
Похожие вопросы