Sinus, Cosinus, Tangens...etc

[NeoDeluxe]

Hi ich versuch in meinem Mathe programm sinus zu berechnen, aber irgendwie kommt nicht das was ich brauche.
Es gibt in Delphi, soweit ich es weiß, Sin und ArcSin.
Aber ich hab selbst in einem kleinem programm probiert diese auszurechnen und da kommt immer etwas anderes raus

Delphi-Quellcode:

  
  val(edit1.Text,zahl,code);
  wurzel:=Sin(zahl);
  edit2.Text:=FloatToStr(wurzel);

Zahl ist als extended deklariert...plz help

[dizzy]

Delphi rechnet nicht in Grad, sondern im Bogenmaß. Hast du das bedacht?

[sniper_w]

Delphi-Quellcode:

a:=45; // degrees
sin_a := sin( a * pi / 180 );

[dizzy]

Alternativ: DegToRad

[BlackJack]

hast du auch den errorcode in "code" überprüft? ich weiss nicht ob die zahl die val zurückliefert definiert ist wenn ein error auftritt.

[NeoDeluxe]

danke: @ sniper
aber wie ist das mit ArcSin, muss mal da auch *pi/180 oder umgekehrt??

[sniper_w]

Delphi-Quellcode:

sin_a := 0.7074333376; // es muss ein Wert zwischen -1..1 inklusiv -1 und 1 sein
a := ArcSin( sin_a ) * 180 / pi; // in degrees

[Bart82]

Im Argument des ArcSin nicht, da der ArcSin die Umkehrfunktion des Sinus ist.
Das Ergebnis das du erhälst müsste aber im Bogenmas sein, wenn du das also in Grad haben willst musst du es wieder umrechnen.

[NeoDeluxe]

Zitat von sniper_w:

Delphi-Quellcode:

sin_a := 0.7074333376; // es muss ein Wert zwischen -1..1 inklusiv -1 und 1 sein
a := ArcSin( sin_a ) * 180 / pi; // in degrees

blah jetzt hab ich ein problem, da "sin_a" aus einem editfeld ausgelesen wird und man eingabe oft mit KOMMAzahlen eingibt und Delphi damit nicht rechnen kann sondern nur mit Punkt...

[BrunoT]

Hi,

Versuch es mal mit:

Delphi-Quellcode:

Try
  sin_a:= StrToFloat(Edit1.Text);
except
  sin_a:=0;
end;

StrToFloat berücksichtigt den in den Ländereinstellungen vorgesehenen Dezimalseparator. Mit Try fängst Du ab, ob was unsinniges eingegeben wurde.

mfg

BrunoT