Cosinus gibt falschen Wert aus

[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;