Ver Mensaje Individual
  #5  
Antiguo 19-04-2017
Daniel2622 Daniel2622 is offline
Miembro
NULL
 
Registrado: abr 2017
Posts: 29
Reputación: 0
Daniel2622 Va por buen camino
Hola ecfisa, ya trate de construir un código siguiendo tus recomendaciones.
El programa ya corre, pero al momento de imprimir los valores y calcular el resultado me sale este mensaje:

El proyecto project1 ha lanzado una exepción de la claes 'External:SIGFPE'.

At address 43E83B

Y este es mi nuevo código:

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)ouble;
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 b,n,p:Integer;
    i:Real;
begin
val(Edit1.Text,n);
p:=Potencia(b,n);
Edit2.Text:=IntToStr(p);
Edit3.Text:=FloatToStr(i);
end;

Esperó y me puedas seguir ayudando.
Saludos y Gracias.
Responder Con Cita