Funcion Frac(x)

[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