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!