Hallo,
ich will Sinus, Cosinus und Tangens von meinem Programm ausrechnen lassen, die Befehle sind ja entsprechend Sin(x), Cos(x) und Tan(x), so weit bin ich schon, nur sind die Werte dann im Winkelmaß angegeben und ich hätte sie gerne im Gradmaß, du Funktion dazu heißt ja: RadToDeg; so weit hab ichs auch schon, aber trotzdem kommen voll die komischen Werte raus. Zum Beispiel bei Sinus von 30° kommt bei mir -56,6100420859772 raus, eigentlich müsste ja 0,5 rauskommen!
Hier noch mein Quelltext:
Delphi-Quellcode:
procedure TForm1.BuSinusClick(Sender: TObject);
begin
x := StrToFloat(Edit.Text);
z := RadToDeg(Sin(x));
Edit.Text := FloatToStr(z);
end;
Ich hoff, ihr könnt mir sagen, wo mein Fehler ist! Danke schon im voraus!
MfG
Florian
"Zwei Dinge sind unendlich, das Universum und die menschliche Dummheit, aber bei dem Universum bin ich mir noch nicht ganz sicher."
Albert Einstein