Club Delphi  
    FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Principal > Varios
Registrarse FAQ Miembros Calendario Guía de estilo Buscar Temas de Hoy Marcar Foros Como Leídos

Respuesta
 
Herramientas Buscar en Tema Desplegado
  #1  
Antiguo 12-10-2007
jocey jocey is offline
Miembro
 
Registrado: Jan 2007
Posts: 111
Poder: 10
jocey Va por buen camino
Raiz Cuadrada

Amigos, se que esto les puede parecer un tanto tonto, pero necesito saber el nombre de la funcion que usa delphi para calcular la raiz cuadrada de un numero.

Gracias
Responder Con Cita
  #2  
Antiguo 12-10-2007
Khronos Khronos is offline
Miembro
 
Registrado: Apr 2007
Posts: 298
Poder: 10
Khronos Va por buen camino
Es sencillo, utiliza las funciones sqrt (raiz cuadrada) y sqr (cuadrado).

Código Delphi [-]
 
procedure TForm1.Button1Click(Sender: TObject);
var
i: real;
begin
i:=9;
showmessage(floattostr(sqrt(i)));
end;

Salu2
Responder Con Cita
  #3  
Antiguo 12-10-2007
Avatar de jhonny
jhonny jhonny is offline
Jhonny Suárez
 
Registrado: May 2003
Ubicación: Colombia
Posts: 6.753
Poder: 20
jhonny Va camino a la fama
Al función es Sqrt.
__________________
Lecciones de mi Madre. Tema: modificación del comportamiento, "Pará de actuar como tu padre!"
Responder Con Cita
  #4  
Antiguo 12-10-2007
Avatar de jhonny
jhonny jhonny is offline
Jhonny Suárez
 
Registrado: May 2003
Ubicación: Colombia
Posts: 6.753
Poder: 20
jhonny Va camino a la fama
Vaya¡¡ khronos se me a adelantado .

Si quieres mas información sobre la raiz cuadrada, cubica y todas las que necesites, podras sacar una conclusión del hilo http://www.clubdelphi.com/foros/showthread.php?t=28471
__________________
Lecciones de mi Madre. Tema: modificación del comportamiento, "Pará de actuar como tu padre!"
Responder Con Cita
  #5  
Antiguo 12-10-2007
Khronos Khronos is offline
Miembro
 
Registrado: Apr 2007
Posts: 298
Poder: 10
Khronos Va por buen camino
Jaja, te gané por unos segundos

Salu2
Responder Con Cita
  #6  
Antiguo 12-10-2007
Avatar de xEsk
[xEsk] xEsk is offline
Miembro Premium
 
Registrado: Feb 2006
Posts: 449
Poder: 11
xEsk Va por buen camino
Como han dicho hace nada, la función es sqrt, pero en caso de no conocer la función siempre puedes usar la base matemática de las raíces: x^(1/y).

Ejemplos:
Código Delphi [-]
resultado:=Power(9, 0.5); // raíz cuadrada de nueve
resultado:=Power(9, 1/3); // raíz cúbica
// at infinitum

Saludos.

Última edición por xEsk fecha: 12-10-2007 a las 17:11:10.
Responder Con Cita
  #7  
Antiguo 13-10-2007
Avatar de seoane
[seoane] seoane is offline
Miembro Premium
 
Registrado: Feb 2004
Ubicación: A Coruña, España
Posts: 3.717
Poder: 16
seoane Va por buen camino
Ya puestos a ser originales

Código Delphi [-]
function Raiz(X: Extended): Extended;
begin
  Result:= Exp(Ln(X)/2);
end;
Responder Con Cita
  #8  
Antiguo 13-10-2007
Avatar de xEsk
[xEsk] xEsk is offline
Miembro Premium
 
Registrado: Feb 2006
Posts: 449
Poder: 11
xEsk Va por buen camino
Cita:
Empezado por seoane Ver Mensaje
Ya puestos a ser originales

Código Delphi [-]
function Raiz(X: Extended): Extended;
begin
  Result:= Exp(Ln(X)/2);
end;
xDDD Bueno, pues ahi mi otra opción xD
Código Delphi [-]
function Raiz(x: Extended): Extended;
var
  n, i: Extended;

begin
  n:=x;
  i:=0.0;
  while i <> n do
    begin
      i:=n;
      n:=(x/n + n)/2;
    end;
  Result:=n;
end;

El algoritmo se reduce al método de Newton sobre la función f(r)= (r^2)-x
Responder Con Cita
  #9  
Antiguo 13-10-2007
Robert01 Robert01 is offline
Miembro
 
Registrado: Feb 2006
Ubicación: Córdoba, Argentina
Posts: 895
Poder: 11
Robert01 Va por buen camino
Usando el método del algoritmo babilónico. Me ganó xEsk por unos segundos por lo tanto no pongo el código.
Responder Con Cita
  #10  
Antiguo 13-10-2007
[egostar] egostar is offline
Registrado
 
Registrado: Feb 2006
Posts: 6.378
Poder: 17
egostar Va por buen camino
Bueno ya está por demás que ponga otra solución....

Salud OS

PD. A que muchacho tan logarítmico eres amigo Domingo
Responder Con Cita
  #11  
Antiguo 04-11-2015
Lag Lag is offline
Registrado
 
Registrado: Nov 2015
Posts: 1
Poder: 0
Lag Va por buen camino
Cita:
Empezado por xEsk Ver Mensaje
xDDD Bueno, pues ahi mi otra opción xD
Código Delphi [-]
function Raiz(x: Extended): Extended;
var
  n, i: Extended;

begin
  n:=x;
  i:=0.0;
  while i <> n do
    begin
      i:=n;
      n:=(x/n + n)/2;
    end;
  Result:=n;
end;

El algoritmo se reduce al método de Newton sobre la función f(r)= (r^2)-x
EL codigo de la raiz en que parte lo agrego , estamos trabajando con dda se lo pondria abajo de ese codigo?
Responder Con Cita
  #12  
Antiguo 04-11-2015
Avatar de Casimiro Notevi
Casimiro Notevi Casimiro Notevi is offline
Moderador
 
Registrado: Sep 2004
Ubicación: En algún lugar.
Posts: 26.455
Poder: 10
Casimiro Notevi Tiene un aura espectacularCasimiro Notevi Tiene un aura espectacular
Bienvenido a clubdelphi, como siempre aconsejamos a los nuevos, no olvides leer nuestra guía de estilo, gracias por tu colaboración
Responder Con Cita
Respuesta


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
Raiz cubica y raiz y jorgegetafe Varios 3 05-02-2007 23:42:35
knapsack+busqueda raiz finees Varios 0 17-11-2006 17:48:51
Funcion Raiz herodes Varios 3 22-12-2005 21:46:05
Saber el día a raiz de una fecha Luana Varios 2 15-02-2005 01:05:53
Raiz Cronos Varios 1 25-10-2003 02:26:52


La franja horaria es GMT +2. Ahora son las 18:16:30.


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