Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   Varios (https://www.clubdelphi.com/foros/forumdisplay.php?f=11)
-   -   Raiz Cuadrada (https://www.clubdelphi.com/foros/showthread.php?t=49087)

jocey 12-10-2007 16:32:31

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

Khronos 12-10-2007 16:41:45

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

jhonny 12-10-2007 16:42:01

Al función es Sqrt.

jhonny 12-10-2007 16:46:22

Vaya¡¡ khronos se me a adelantado :D.

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

Khronos 12-10-2007 16:47:51

Jaja, te gané por unos segundos :D :D

Salu2

xEsk 12-10-2007 16:54:01

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.

seoane 13-10-2007 01:09:37

Ya puestos a ser originales :D

Código Delphi [-]
function Raiz(X: Extended): Extended;
begin
  Result:= Exp(Ln(X)/2);
end;

xEsk 13-10-2007 01:49:20

Cita:

Empezado por seoane (Mensaje 238278)
Ya puestos a ser originales :D

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

Robert01 13-10-2007 01:57:53

Usando el método del algoritmo babilónico. Me ganó xEsk por unos segundos por lo tanto no pongo el código.

egostar 13-10-2007 02:28:51

Bueno ya está por demás que ponga otra solución....:D:D:D:D

Salud OS

PD. A que muchacho tan logarítmico eres amigo Domingo :D:D

Lag 04-11-2015 08:56:47

Cita:

Empezado por xEsk (Mensaje 238287)
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?

Casimiro Notevi 04-11-2015 10:45:17

Bienvenido a clubdelphi, como siempre aconsejamos a los nuevos, no olvides leer nuestra guía de estilo, gracias por tu colaboración :)


La franja horaria es GMT +2. Ahora son las 14:24:21.

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