Ver Mensaje Individual
  #2  
Antiguo 19-04-2017
Avatar de Casimiro Notevi
Casimiro Notevi Casimiro Notevi is offline
Moderador
 
Registrado: sep 2004
Ubicación: En algún lugar.
Posts: 32.021
Reputación: 10
Casimiro Notevi Tiene un aura espectacularCasimiro Notevi Tiene un aura espectacular
¿Qué son esos "begin" ahí por el medio?
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;
Responder Con Cita