Funcion Frac(x)

[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