Probleme mit atan/atan2

[Andreas13]

Hallo Felix,
etwas professioneller geht es so:

Delphi-Quellcode:

Function ArithRound(x: Extended): Int64;
Begin
  IF Frac(x) < 0.5 Then
    Result:= Floor(x)
  Else
    Result:= Ceil(x);
End;{ArithRound}
{--------------}

oder

Delphi-Quellcode:

Function ArithRound(x: Extended): Int64;
Begin
  Result:= Trunc(x + 0.5); 
End;{ArithRound}
{--------------}

Gruß
Andreas