Hallo!
On Thu, May 27, 2004 at 08:02:00AM +0200, Dr. Egbert Seibertz wrote:
gibt's folgenden Fehler auch noch in der aktuellen Version? (man/frau achte auf den Wechsel von 232,60 nach 23259 (erstes Beispiel))
(Ich habe das Programm etwas umgeschrieben und jetzt läuft es:)
program test; var i : Integer; Spesen: array [0..5] of Integer; q : Real; const S: array [0..5] of Real = (232.60, 232.61, 500.00, 499.00, 499.99, 500.00); begin WriteLn('----------'); for i := 0 to 5 do begin WriteLn(S[i]); WriteLn(S[i] : 6 : 2); q := S[i] * 100.0; Spesen[i] := Trunc(q); WriteLn(Spesen[i]); WriteLn('----------') end end.
Mit der Ausgabe: ---------- 2.326000000000000e+02 232.60 23260 ---------- 2.326100000000000e+02 232.61 23261 ----------
und so weiter.
Eike