Предмет: Информатика,
автор: Богданэ
В паскале:1/1!+1/3!-1/5!... В общем составлял для отдельного числа факториал:
factrl := 1;
for i := 1 to 5 do begin
factrl := factrl * (i)
end;
Но как автоматизировать процесс, чтобы суммировало факториалы с повышением на 2
Ответы
Автор ответа:
0
Программа для вычисления суммы 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
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
Похожие вопросы
Предмет: Математика,
автор: aminayegenmyradova
Предмет: Русский язык,
автор: cekaterina130
Предмет: Алгебра,
автор: baimbetovamantai145
Предмет: Физика,
автор: Alena561
Предмет: Математика,
автор: oksanakaravaev1