rechenprogramm

[gelvuun]

Hallo!

ich schreibe gerade ein kleines Rechenprogramm und da bin ich beim eingeben der Formeln auf das problem gestoßen das ich nincht weiß wie man den cosinus in delphi schreibt....

also bitte um hilfe!

brauchse sowohl cos als auch den arccos!

[Die Muhkuh]

Hi,

binde die Unit Math ein und benutze Cos und ArcCos

[gelvuun]

also schreib ich dann

if .....
then
begin
alpha:=ArcCos(.....)

??

[ichbins]

Yep:

Delphi-Quellcode:

uses
  ..., math;

[...]

begin
  a:=arccos(12345);
  b:=cos(12345);
end;

ich bin mir aber nicht ganz sicher, wie du die Funktionen verwenden sollst, ob jetzt im Bogenmaß oder mit Grad... einfach mal ausprobieren.

[Sharky]

Hai gelvuun,

ersteinmal: "Herzlich Willkommen in der Delphi-PRAXiS".

Bei allen Antworten musst Du bitte eines beachten!!!

Delphi berechnet den Cos/Sin usw. im Bogenmass. Wenn Du den Winkel im Gradmass hast musst Du diesen erst umwandeln.

Delphi-Quellcode:

procedure TForm1.btn_Button1Click(Sender: TObject);
var
  a: extended;
  b: extended;
begin
  a := 45;
  b := Cos(GradToRad(a));
  ShowMessageFmt('Der Cosinus eines Winkels von %g ° beträgt %g', [a, b]);
end;

[gelvuun]

Danke!

das mit dem Bogenmaß oder Grad ist in meinem Fall nicht das Problem, da der in den ArcCos gesetzte Wert als Resultat einer Formel immer in ordentlichen Werten rauskommt.

vielen dank für die schnelle hilfe!