Grad in Sin, Cos und Tan ausgeben

[MrMyagi]

Moin allerseits,
und zwar möchte ich einmal wissen,
wie man mit Delphi eine ganz gewöhnliche
Gradangabe in Sinus, Cosinus und Tangenz
umwandelt?


mfG, Nico

[STS301]

Delphi-Quellcode:

Rad := DegToRad(Grad);
// un umgekehrt
Deg := RadtoDeg(Rad);

[MrMyagi]

Danke für die schnelle Antwort, jedoch
weiß ich jetzt nicht genau, wie ich mir
nun den entsprechende sinus, cosinus
und tangenz Wert daraus herleiten soll?

[3_of_8]

Das ist die Umwandlung von Grad in Bogenmaß und umgekehrt.

Sinus, Kosinus und Tangens ist in den Funktionen sin, cos und tan implementiert. Diese Funktionen erwarten eine Winkelangabe im Bogenmaß als Parameter.

[STS301]

Grad=

Delphi-Quellcode:

Grad := RadtoDeg(Rad);
//habe mich vorhin verschrieben

zb.

Delphi-Quellcode:

var i:real;
begin
i:=RadtoDeg(strtofloat(edit1.text));
//und dann normal weiter machen

hoffe es geht

[MrMyagi]

Ok Danke,
das klappt eigendlich schon so halb.
Naja halt nur so halb...

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
a := strtofloat(LabeledEdit1.text);
b := sin(a);
memo1.Lines.add(floattostr(b));
end;

...denn wenn ich dort für Winkel = 90 eingebe,
gibt er mir als sin-Wert = 0,89.. heraus, jedoch
weiß ich, dass 90° = 1 sin sind??? :(

[3_of_8]

Ich zitiere mich einmal selbst:

Zitat:

Zitat von 3_of_8

Sinus, Kosinus und Tangens ist in den Funktionen sin, cos und tan implementiert. Diese Funktionen erwarten eine Winkelangabe im Bogenmaß als Parameter.

Bogenmaß. Nicht Grad. Du musst also vorher in Bogenmaß umrechnen. Wie du das machst, steht noch einen Beitrag weiter oben: Mit der Funktion DegToRad.

[STS301]

wenn du den Befehl zum Umwandeln nicht einfügst ;)

[MrMyagi]

Ok Danke jetzt habe ichs :-D :-D :-D
mit dem folgenden code klappts :lol:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
a:=DegtoRad(strtofloat(labelededit1.text));
b := sin(a);
memo1.Lines.add(floattostr(b));
end;

...also so wie du erklärt hast :-D

mfG, Nico

[MrMyagi]

Sorry, hätte ich ja gemacht,
wenn ich dann nicht ein Doppelpost getätigt hätte,
hätte ich auch keinen neuen Thread aufgemacht.
(durch Edit wird das Thema ja nicht noch einmal aufgefrischt,
da ich dachte, dass das Thema schon erledigt sei)

Alse die Dateien gibts hier
und die "neue" Fehlerbeschreibung

Fehlerbeschreibung:

Zitat:

irgendwie klappt die Umrechnung teils schon und teils irgendwie nicht.
Muss ich da zwischen Sin, Cos und Tan noch irgendwelche unterschiede machen?
Bzw irgendetwas spezielles einbauen?