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

factrl : = 1;

for i : = 1 to 5 do begin

factrl : = factrl * (i)

end;

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

Question

Информатика

Мокий

15 мая, 20:29

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

factrl : = 1;

for i : = 1 to 5 do begin

factrl : = factrl * (i)

end;

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

+2

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