Ver Mensaje Individual
  #6  
Antiguo 20-04-2017
Avatar de ecfisa
ecfisa ecfisa is offline
Moderador
 
Registrado: dic 2005
Ubicación: Tres Arroyos, Argentina
Posts: 10.508
Reputación: 36
ecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to behold
Hola.

Intentalo de este modo:
Código Delphi [-]
Function Potencia(b,n:Integer):Integer;
var c,p:Integer;
  begin
    p:=1;
    For c:=1 to n do
    p:=p*b;
    Potencia:=p;
  end;

Function Factorial(n:Integer):Integer;
var c:Integer;f:Longint;
  begin
    f:=1;
    For c:=1 to n do
    f:=f*c;
    Factorial:=f;
  end;

Function Suma(const x,y:Integer):double;
var i:Integer;
  begin
    Result:=0;
    For i:=0 to y do
    Result:=Result+ Potencia(x,i) / Factorial(i) ;
  end;

procedure TForm1.BitBtn1Click(Sender: TObject);
var
  a,b: Integer;
  i : Double;
begin
  a := StrToIntDef( Edit1.Text, 0 ); // a : primer argumento de Suma
  b := StrToIntDef( Edit2.Text, 0 ); // b : segundo argumento de Suma
  i := Suma( a, b );                 // i : resultado de Suma

  // mostrar el valor de "i" en Edit3
  Edit3.Text := FloatToStr( i );    
end;

Saludos
__________________
Daniel Didriksen

Guía de estilo - Uso de las etiquetas - La otra guía de estilo ....
Responder Con Cita