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.

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

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


mfg Tobias

hmm...

markieren

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.

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.

markieren

Delphi-Quellcode:

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

mfg Tobias

Okay Danke !! Es klapp.

Mfg Patrick