Cosinus gibt falschen Wert aus

[YXCVBNM1]

Hallo allerseits,

ich habe ein ganz komisches Problem.

Die Zeile

Edit1.Text:= FloattoStr(Cos(0.5*Pi))

gibt bei ihrer Ausführung im Edit1 ungefähr -2,7 aus. Meiner Meinung nach (und nach der des Taschenrechners) müsste aber 0 rauskommen.
Die Unit Math ist auch in den Uses vorhanden.

Hat jemand eine Ahnung woran dieser Rechenfehler liegen könnte?

[Furtbichler]

Na ich würde nochmal gaaanz genau hinschauen. Vermutlich steht da sowas wie '-2,72000000000000000000000E-45' oder so.

[YXCVBNM1]

Ach was für ein blöder Fehler. Manchmal sucht man eine halbe Ewigkeit nach einem Fehler und dann ist das sowas primitives.

Vielen Dank

[Der schöne Günther]

Zitat von YXCVBNM1:

Meiner Meinung nach (und nach der des Taschenrechners)

Ich glaube dafür gehörst du schon geknufft.

Nicht nur der Taschenrechner, auch der eigene Kopf.



Spaß beiseite: Wenn du Kommazahlen zuverlässig in einem String ausgeben willst, würde ich mir die Funktion FormatFloat(..) einmal ansehen.

Beispiel:

Delphi-Quellcode:

procedure TForm25.FormCreate(Sender: TObject);
const
   formatStr: String = '#0.00';
var
   zahl: Single;
begin
   zahl := Cos(0.5 * Pi());


   memo1.Lines.Append('Vorher:');
   memo1.Lines.Append( zahl.ToString() );

   memo1.Lines.Append(sLineBreak);

   memo1.Lines.Append('Nachher:');
   memo1.Lines.Append( FormatFloat(formatStr, zahl) );

end;

[Popov]

Winkel und Bogenmaß?

[Der schöne Günther]

Wenn ich mich nicht irre scheint die Embarcadero-Philosophie zu sein, das Ergebnis von trigonometrischen Funktionen immer im Gradmaß zurückzugeben.

[Helmi]

Zitat von Der schöne Günther:

Delphi-Quellcode:

procedure TForm25.FormCreate(Sender: TObject);
{...}
   memo1.Lines.Append( zahl.ToString() );
{...}

*hüstel*
falsche Programmiersprache


   memo1.Lines.Append(IntToStr(zahl));

[himitsu]

Zitat von Helmi:

*hüstel*
falsche Programmiersprache

In neueren Delphis geht das.
Seitdem Record-Helper nun auch endlich für generische Typen verfügbar sind, haben String, Integer und Co. auch eine ToString-Methode, so wie es TObjekt von Grund auf ja auch schon seit 'ner Weile hat.

Zitat von Der schöne Günther:

Wenn ich mich nicht irre scheint die Embarcadero-Philosophie zu sein, das Ergebnis von trigonometrischen Funktionen immer im Gradmaß zurückzugeben.

Ist es nicht Rad?

Und nein, das ist nicht Delphi/Borland, sondern kommt so direkt von der CPU (früher FPU).

[Stevie]

Zitat von himitsu:

Seitdem Record-Helper nun auch endlich für generische Typen verfügbar sind

Du meinst wohl für simple Typen - für generische Typen gibt's nach wie vor keine Helper.

[himitsu]

Aber AnsiString, UnicodeString und LongInt sind doch generische Typen, oder hieß das doch ein bissl anders?
Also die grundsätzliche Basistypen des Compilers, oder so ... nicht zu verwechseln mit den Generics.