Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   Varios (https://www.clubdelphi.com/foros/forumdisplay.php?f=11)
-   -   Resta de numeros reales. (https://www.clubdelphi.com/foros/showthread.php?t=2603)

DanielAlexander 30-07-2003 17:59:54

Resta de numeros reales.
 
Hola Gente!!!!!
Tengo un problema y la verdad no tengo idea de como solucionarlo.

tengo declaradas 3 variables de tipo Real, le asigno un numero real a cada una de ellas y luego las quiero restar entre si, y me da un numero exadecimal como resultado. ejm.

variable1:=156.23;
variable2:=156.23;
variable3:=0;

resultado:=variable1 - variable2 - variable3;

en la variable resultado debería obtener un 0;pero me da un numero exadecimal...
Si alguien me puede dar una mano agradecido....

Gracias...

delphi.com.ar 30-07-2003 18:17:28

Como una solución sencilla, te puedo decir que compares siempre los resultados de redondeados, o que tengas en cuenta un pequeño margen de error.

Código:

function SonIguales(const Nro1, Nro2: Extended): Boolean;
begin
  Result := Nro1 - Nro2 < 5.0e-324;
end;

Saludos!

DanielAlexander 30-07-2003 21:23:43

Mucha gracias, evidentemente el problema venia por ese lado
lo solucione con la funcion roundto(variable,-2)..
Gracias...


La franja horaria es GMT +2. Ahora son las 11:59:30.

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