Einzelnen Beitrag anzeigen

pseudo-nym

Registriert seit: 6. Dez 2005
Ort: München
7 Beiträge
 
#1

Winkelfuntionen machen Zicken

  Alt 6. Dez 2005, 13:19
Da das mein erster Beitrag ist erstmal:

Hallo

Hab sonst immer nur gelesen, aber jetzt ein Problem das dringend einer Lösung bedürfte.
Und Zwar hab ich bei meinem Taschenrechner Winkelfunktionen eigebaut, die eigentlich ganz gut gehen wenn nicht bei Nullstellen Werte wie -5,42101086242752E-20 rauskommen würden.
Hab da programmiert:

Delphi-Quellcode:
procedure TRechenprogramm.ButtonSinClick(Sender: TObject);
begin
  Vorbereiten(EditEin1.Text, EditEin2.Text);
  if
    RButtonArgument1.Checked=true
  then
  begin
    Ergebnis:=Sin(Pi*Wert1/180);
    EditAus1.Text:=FloatToStr(Ergebnis);
    EditEin2.Text:=FloatToStr(0);
  end;
  if
    RButtonArgument2.Checked=true
  then
  begin
    Ergebnis:=Sin(DegToRad(Wert2));
    EditAus1.Text:=FloatToStr(Ergebnis);
    EditEin1.Text:=FloatToStr(0);
  end;
end;
Hilfe!
Wer Rasen säht, wird Mäher ernten (!)

MfG pseudo-nym
  Mit Zitat antworten Zitat