Einzelnen Beitrag anzeigen

Python

Registriert seit: 21. Nov 2013
3 Beiträge
 
#1

Wurzel & Winkelberechnung

  Alt 21. Nov 2013, 18:30
Delphi-Version: 5
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
  Mit Zitat antworten Zitat