Ach verdammt..
Delphi-Quellcode:
function Frac(X: Extended): Extended;
begin
result := X - Int(X);
end;
Das habe ich im Internet gefunden, doch leider ergibt sich daraus NICHT das selbe wie bei der echten FracFunktion.
Edit:
Delphi-Quellcode:
function FracF(X: Extended): Extended;
begin
result := X - IntF(X); // Markierung
end;
function IntF(X: Extended): Extended;
begin
result := X - FracF(X);
end;
Funktioniert nämlich nicht, denn dann ist bei der Markierung IntF undefiniert.