вычисление факториала в виде процедуры и составить программу, процедуры, факториал, ряд Опции

[Artf]

Прошу вас, напишите мне программу!
Оформить вычисление факториала в виде процедуры и составить программу, вычисляющую для
заданного числа x сумму: 1 + (x)/1! + (x^2)/2! + ...

[volvo]

Вопрос на засыпку: ты уверена, что для вычисления этой суммы вообще необходима процедура (хм... вычислять факториал процедурой - интересное извращение, функция здесь подошла бы лучше) или даже функция вычисления факториала?

[Artf]

Вопрос на засыпку: ты уверена, что для вычисления этой суммы вообще необходима процедура (хм... вычислять факториал процедурой - интересное извращение, функция здесь подошла бы лучше) или даже функция вычисления факториала?

понимаешь такое условие! я знаю как с функцией! а с процедурой убилась
Мне на днях сдавать! Помоги чем сможешь
спасиба

[мисс_граффити]

понимаешь такое условие! я знаю как с функцией! а с процедурой убилась
Мне на днях сдавать! Помоги чем сможешь
спасиба

покажи, как ты знаешь с функцией - поможем переделать в процедуру.

[Artf]

покажи, как ты знаешь с функцией - поможем переделать в процедуру.

Код

Function FFactorial(n:integer):Longint;
Begin
      if (n=0) then
         FFactorial:=1
      else
         FFactorial:=FFactorial(n-1)*n
End;

Function FStepen(s:real;n:real):real;
   Begin
      if (n=0) then
         FStepen:=1
      Else
         FStepen:=FStepen(s,n-1)*s
   End;


var x, i, n, fcrtl:integer;
s: real;
begin
    write('vvedite n=');
    readln(n);
    if n<0 then writeln('Error! vvedite n>0 !!!')
    else  if n=0 then begin s:=1;writeln('summa= ',s:5:2)end  else
    begin  write('vvedite x=');
    readln(x);
    s:=0;
    fcrtl:=FFactorial(1); s:=1+x/fcrtl;
    for i:=2 to n do s:=s+(Fstepen(x,i))/FFactorial(i);
    writeln('Pri x=',x,' summa= ',s:5:2 )
end
end.

вот я разбиралась с ней 3 часа!!!!!!!