Funcion Frac(x)

[juanjo_m_m]

un ejemplo tienes un producto que tiene peso total t peso por bulto
digamos:

tienes 10984 kilos de arroz
y cada bulto pesa 50 Kilos

para hacer la conversion y saber cuantos bultos y cuanto de fraccion tienes se hace lo siguiente...

10984/50= 219.68

tengo 219 bultos de 50 kilos cada uno y...

0.68*50=34

34 kilos en fraccion que seria equivalente a 219 bultos + 34 kilos = 10984 kilos de arroz

pero el problema que tengo es que en el primer calculo me da correcto como debe de ser pero si trato de hacer el mismo calculo con otros datos en la fraccion me saca 9.9999 sea cual sea el valor no se donde puede estar el error, el procedimiento de las formulas es el siguiente..

X:= 1425.412
Y:= 25

entero:= trunc( X / Y);
fraccion:= frac( X / Y)* Y;

saca lo siguiente X:= 57 Y:= 0.412


//*/*/*/*/*/

en el segundo calculo.....

X:= 1472.145
Y:= 25

entero:= trunc( X / Y);
fraccion:= frac( X / Y)* Y;

saca lo siguiente X:= 58 Y:= 9.999


POR ESO NO SE DONDE PUEDE ESTAR EL ERROR!!!!