Delphi-Version: 4 (stand leider nicht zur Auswahl)
Ich möchte ein Programm schreiben, welches den Winkel von 2 Verschiebungsvektoren berechnet.
Code:
float := ArcCos((a1*b1+a2*b2+a3*b3)/(Sqrt(power(a1,2)+power(a2,2)+power(a3,2)*Sqrt(power(b1,2)+power(b2,2)+power(b3,2)))));
float := RadToDeg(float);
Edit1.Text := FloatToStr(float) + ' Grad';
Es kommt kein Fehler beim Kompilieren, aber wenn ich den Button zur Berechnung drücke erscheint folgende Nachricht:
Klasse: EInvalidOp
Meldung: Ungültige Gleitkommazahl
Wie behebe ich das, sodass er mir den Winkel ausgibt?
Mit freundlichen Grüßen
Python