Sinus,Kosinus,Tangens

[Derelict Angel]

Hoi Leutz,

Ich will nen Taschenrechner progammieren, aber der gibt alles in Rad wieder und wenn ich dem sage der soll das in Deg umwandeln(RadToDeg)gibt der mir nur total falsche Zahlen raus. :wall:

Gibt es sonst noch einen Weg sowas auszurechen, ohne das was Delphi als
'HILFE'Angibt oder Delphi direkt sagen das alles in Degrees gerechnet werden soll?

Mfg Patrick

[Mirilin]

:hi:

Wie rufst Du denn die Funktionen auf, und wo wandelst Du die Winkel ins andere System um?


mfg Tobias

[Derelict Angel]

hmm...

Code:

var
  z1,z2,z3:real;
begin
  z1:=StrToFloat(edZahl1.Text);
  z2:=StrToFloat(edZahl2.Text);
  if rbDeg.Checked=true then
  begin
    z3:=RadToDeg(sin(z1));
    edErgebnis.Text:=FloatToStr(z3);
  end;

Hoffe das Hilf weiter.

[Mirilin]

:hi:

Der Sinus & Co gibt nicht einen Winkel zurück, sondern nimmt einen Winkel (im Rad-Format) als Parameter. Folglich musst Du den zu übergebenden Winkel ins Radian Format umwandeln.

Delphi-Quellcode:

var
  WinkelInGrad    : Extended;
  WinkelInRad     : Extended;
  SinusDesWinkels : Extended;
begin
  ...
  WinkelInRad     := DegToRad(WinkelInGrad);
  SinusDesWinkels := Sin(WinkelInRad);
  ...
end;

mfg Tobias

[Derelict Angel]

Okay Danke :thumb: !! Es klapp. :spin2:

Mfg Patrick