Составить алгоритм и программу вычисления суммы ряда, справа от знака равенства дано для контроля математическое значение ряда 1-1/1!+1/2!-1/3!+...+(минус)1/n≈1/е

Категория: Delphi/Pascal
2012-01-25 23:29:45
code: #pascal
program PascalGuru;
 
function fact(n:integer):longint;
begin
if n=1 then fact:=1
         else fact:=fact(n-1)*n;
end;
 
var n,i:integer;
    rez:real;
 
begin
write('N= '); readln(n);
 
rez:=1;
for i:=1 to n do
if odd(i) then rez:=rez-(1/fact(i))
          else rez:=rez+(1/fact(i));
 
 
writeln('Otvet: ',rez:0:4);
 
readln;
end.
Поделиться:

Похожие статьи:

теги: студенты, ряд