Вычислить значение заданной функции

[Nilip 777]

Вычислить значение заданной функции непосредственно и как сумму ряда с погрешностью 0,001. Значение аргумента выбрать самостоятельно.
Решать с помощью итерации и вспомогательной функцией.

[Mad_Cat]

Вычислить значение заданной функции

язык программирования укажите хотя бы
и кросспостинг у нас не в почете

[Nilip 777]

Turbo Pascal

[Mad_Cat]

с помощью итерации

var s:real;
n:integer;
f:real;
z:integer;
begin
f:=1;
n:=1;
s:=1;
z:=1;
while 1/f >0.001 do begin
f:=f*n;
z:=-z;
s:=s+z*1/f;
n:=n+1;
end;
writeln(s:6:3);
Writeln(1/exp(1):6:3);
end.

0.368
0.368

вспомогательной функцией

наверное так

var s:real;
n:integer;
z:integer;
Function Fac(n: integer): longint;
begin
if (n = 0) then Fac := 1
           else Fac := n*Fac(n-1);
end;
begin
n:=1;
s:=1;
z:=1;
while 1/fac(n) >0.001 do begin
z:=-z;
s:=s+z*1/fac(n);
n:=n+1;
end;
writeln(s:6:3);
Writeln(1/exp(1):6:3);
end.

0.368
0.368

[Nilip 777]

А как вы вывели вспомогательную функцию?