Club Delphi  
    FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Otros entornos y lenguajes > Lazarus, FreePascal, Kylix, etc.
Registrarse FAQ Miembros Calendario Guía de estilo Buscar Temas de Hoy Marcar Foros Como Leídos

 
 
Herramientas Buscar en Tema Desplegado
  #1  
Antiguo 18-04-2017
Daniel2622 Daniel2622 is offline
Miembro
 
Registrado: abr 2017
Posts: 27
Poder: 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
 


Herramientas Buscar en Tema
Buscar en Tema:

Búsqueda Avanzada
Desplegado

Normas de Publicación
no Puedes crear nuevos temas
no Puedes responder a temas
no Puedes adjuntar archivos
no Puedes editar tus mensajes

El código vB está habilitado
Las caritas están habilitado
Código [IMG] está habilitado
Código HTML está deshabilitado
Saltar a Foro

Temas Similares
Tema Autor Foro Respuestas Último mensaje
Consulta Mysql Suma entre rango de fechas kaeltas MySQL 4 22-06-2012 21:30:44
Factorial hasta 1000 Cheswar Varios 29 21-09-2007 20:43:27
Compatibilidad entre aplicaciones ASP.NET entre Delphi 8 .Net y Visual Studio.Net kenyamg .NET 0 21-02-2007 07:30:33
exponente con delphi JODELSA Varios 1 22-06-2005 15:12:22
Calcular exponente [Gunman] Varios 0 18-04-2005 13:28:39


La franja horaria es GMT +2. Ahora son las 22:46:52.


Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2017, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi
Copyright 1996-2007 Club Delphi