Delphi-PRAXiS - Delphi ArcCos Winkelberechnung

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)

- Algorithmen, Datenstrukturen und Klassendesign (https://www.delphipraxis.net/78-algorithmen-datenstrukturen-und-klassendesign/)

- - Delphi ArcCos Winkelberechnung (https://www.delphipraxis.net/202231-arccos-winkelberechnung.html)

ArcCos Winkelberechnung

Ich bin echt zu blöd! :oops:
Ich habe ein Dreieck mit den Seiten A=40, B=40, C=18. Ich suche den spitzen Winkel, der C
gegenüberliegt. Wenn ich meine Werte in einen Online-Rechner eingebe, erhalte ich
erwartungsgemäß einen Winkel von rund 26 Grad. Die dazu benutzte Formel ist angeblich
γ = arccos( (a² + b² - c²) / 2ab )
Wenn ich das mit Delphi 2010 selbst programmieren will, kommt die Fehlermeldung
"Ungültige Gleitkommeoperation". Was mache ich falsch? Oder stimmt die Formel nicht?

Code:

			function ArcCos(const X: Double): Double; // stammt aus Unit Math

asm

  FLD   X

  FLD1

  FADD  ST(0), ST(1)

  FLD1

  FSUB  ST(0), ST(2)

  FMULP ST(1), ST(0)

  FSQRT

  FXCH    // Absturz

  FPATAN

end;

  function winkel(a, b, c: Double): Double;

  var

    X: Double;

  begin

    // arccos( (a² + b² - c²) / 2ab )

    X := (a * a + b * b - c * c) / 2 * a * b;

    result := ArcCos(X) * (180 / PI);

  end;

  procedure TForm1.Button2Click(Sender: TObject);

  var

    Gamma: Double;

  begin

    Gamma := winkel(40.0, 40.0, 18.0);

  end;