Umrechnung Kosinuswert/Winkel

[JulianT]

Dankesehr, der Ansatz mit dem ArcCos hat mir sehr geholfen!

Delphi-Quellcode:

//Berechnen des Vektorenwinkels
cos_alpha:=skalarprodukt/(BetragA*BetragB);
EditCoswinkel.Text:=FloatToStr(cos_alpha);
alphabog:=ArcCos(cos_alpha);
alphagrad:= BogenZuGrad(alphabog);
EditWinkel.Text:=FloatToStr(alphagrad);

Sollte jetzt alles richtig sein

6o3l7.png

Ich würde die Ergebnisse nun noch gerne runden, die anderen 3 Edits programmiere ich später. Runden ging glaube ich mit FloatToStrF und ffFixed irgendwie, oder? Wie würde eine Codezeile aussehen, wenn ich auf 3 Nachkommastellen runden möchte?