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.