Also, es scheint alles zu funktionieren, nur die Winkel nicht. Wenn ich ein Dreieck, wie im vorherigen Beitrag angegeben habe, ist bei Gamma ein rechter winkel (90°).
WEnn ich nun Alpha berechne, kann ich danach auch Beta berechnen, weil alle 3 Winkel im Dreieck immer 180° ergeben, oder? Gut, dann hie mein Problem. ^^
Delphi-Quellcode:
edtGamma.Text := '90 °';
edtAlpha.Text := FloatToStr(ArcSin(StrToFloat(edtKathete1.Text) / StrToFloat(edtHyphotenuse.Text)));
edtBeta.Text := FloatToStr(90 - StrToFloat(edtAlpha.Text)) + ' °';
Wobei edtKathete1 Seite a sein.
edtKathete1.Text := FloatToStr(sqrt(sqr(StrToFloat(edtHyphotenuse.Text))-sqr(StrToFloat(edtKathete2.Text))));
Also a² = c² - b²
Also müsste der obige Code richtig sein. Aber das Programm rechnet etwas unmögliches aus (siehe Screenshot).
Haabe ich mich wieder mal verrechnet? ^^