В паскале: 1/1!+1/3!-1/5! ... В общем составлял для отдельного числа факториал:

factrl : = 1;

for i : = 1 to 5 do begin

factrl : = factrl * (i)

end;

Но как автоматизировать процесс, чтобы суммировало факториалы с повышением на 2

Question

Информатика

Казимир

23 сентября, 00:55

В паскале: 1/1!+1/3!-1/5! ... В общем составлял для отдельного числа факториал:

factrl : = 1;

for i : = 1 to 5 do begin

factrl : = factrl * (i)

end;

Но как автоматизировать процесс, чтобы суммировало факториалы с повышением на 2

+4

Ответы (1)

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

Роксана · Answer 1

Программа для вычисления суммы 1/1!+1/3!+1/5! ... + 1 / (2*n-1) !

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

begin

readln (n) ;

s:=1;

f:=1;

for i:=1 to n-1 do

begin

f:=f * (2*i) * (2*i+1) ;

s:=s+1/f;

end;

writeln ('s = ', s) ;

end.

Пример:

4

s = 1.175198412698413e+00