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!!!!

[luisgutierrezb]

y si usas un tipo de datos diferente? por ejemplo el currency?? ya me ha sacado de varios problemas este tipo de datos que ya mejor lo pongo por default cuando manejo cualquier decimal

[Mick]

Antes de utilizar numeros en punto flotante en nuestros calculos es importante entender como funcionan, hay muchos tutoriales por ejemplo:

http://support.microsoft.com/kb/42980/es

http://www.cs.utah.edu/~zachary/isp/applets/FP/FP.html

Saludos

[Robert01]

No heprobado los cálculos para ver si dan los valores correctos, probá así:

Código Delphi [-]
  public
    { Public declarations }
   x,y,fraccion,entero : single;
  end;

var
  Form1: TForm1;


implementation

{$R *.dfm}
procedure cal(var x : single; var y : single; var fraccion : single;var entero:single);
begin
entero:=trunc(x/y);
fraccion := y*frac(x/y);
end;

procedure TForm1.Button1Click(Sender: TObject);

begin

x:=strToFloat(Edit1.Text);
y:=strToFloat(Edit2.Text);

cal(x,y,fraccion,entero);

Edit3.Text:=floattoStr(entero);
Edit4.Text:=floattoStr(fraccion);

end;

Creo que anda bien

Saludos