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

markieren

Delphi-Quellcode:

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

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?

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.

Grad=

markieren

Delphi-Quellcode:

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

zb.

markieren

Delphi-Quellcode:

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

hoffe es geht

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

markieren

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???

Ich zitiere mich einmal selbst:

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.

wenn du den Befehl zum Umwandeln nicht einfügst

Ok Danke jetzt habe ichs
mit dem folgenden code klappts

markieren

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

mfG, Nico

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?