Ver Mensaje Individual
  #1  
Antiguo 18-04-2017
Daniel2622 Daniel2622 is offline
Miembro
NULL
 
Registrado: abr 2017
Posts: 29
Reputación: 0
Daniel2622 Va por buen camino
Suma de exponente entre factorial

Hola, tengo un problema con el siguiente ejercicio:
Escribe una función que reciba los valores del exponente (x) y el número de términos (n) y devuelva el valor de e^x, mediante la suma:
e^x=x^0/0!+x^1/1!+x^2/2!+...
Este es el código que he creado:
Código Delphi [-]
Function Suma(b,n,co,co1:Integer):Integer;
var c,p,i:Integer;
    f:Longint;
    s:Real;
begin
p:=1;
For c:=1 to n do
p:=p*b;
Suma:=p;
begin
f:=1;
For c:=1 to n do
f:=f*c;
Suma:=f;
begin
co:=p;
co1:=f;
s:=0;
While i<=n do
begin
s:=s+(co/co1);
co:=c+f;
co1:=co1+p;
i:=i+1;
 end;
end;

procedure Form1.BitBtn1Click(Sender: TObject);
var b,n,p,f:Integer
begin
val(Edit1.Text,n);
p:=potencia(b,n);
Edit2.Text:=IntToStr(p);
f:=Factorial(n);
Edit3.Text:=IntToStr(f);
Edit4.Text:=FloatToStr(s);
end;

Gracias y saludos.
Responder Con Cita