Bug o es normal? - Trunc function

[jachguate]

Con la poca precisión del real, lo mas seguro es que valor1 no sea nueve, sino en realidad 8.999999999996 o algo así. Evidentemente, el trunc de eso es 8 y no 9. Pero este no es un problema de delphi, es un problema de las computadoras y los formatos para almacenar números.

Como ya te dijeron, podes obtener la parte fraccionaria directamente, o usar números con mas precisión, como los Double. Aún con estos, el problema persistirá, solo que ocurrirá menos veces (aquellas para las que la precisión del número resulte insuficiente para la operación que realizas y el resultado que queres ver).

Hasta luego.

[[xEsk]]

No, no lo hago para obtener la parte decimal, eso es un pequeño ejemplo q he puesto, lo q yo queria es pasar de un "real" a un "entero" (Real -> Integer/Word), y me di cuenta q en el codigo original no me devolvia el valor "correcto" e hice este pequeño (e inutil) ejemplo para comprobarlo.

Pero probare con double u otros.

Saludos.

[jachguate]

Empezado por xEsk

lo q yo queria es pasar de un "real" a un "entero" (Real -> Integer/Word)

Pues depende de lo que signifique pasar de un real a un entero. Yo diría que una forma "segura" de hacerlo es:

Código Delphi [-]
  Entero := Trunc(RoundTo(DoblePrecision, 0));

Hasta luego.

[[xEsk]]

jachguate lo de pasar de una variable con un valor "Real" a un "Integer" era pq necesitaba acceder a una posicion de un "Array", y la posicion se obtenia apartir de una formulita (xorra) q requeria de numeros reales, pero el resultado era un numero "natural". Tu solucion es buena tambien, pero con cambiar de "Real" a "Extended" ya funciono bien (y asi me libro de incluir Math al uses xDDD)

Saludos.