Liebe Leute,
gibt's folgenden Fehler auch noch in der aktuellen Version? (man/frau achte auf den Wechsel von 232,60 nach 23259 (erstes Beispiel))
Grüße Egbert
PROGRAM test; VAR i : integer; Spesen : ARRAY [0..5] OF integer; 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); Spesen[i] := trunc(S[i] * 100); writeLn(Spesen[i]); writeln('----------'); END; END.
ergibt, übersetzt und ausgeführt mit gpc version 20021128, based on gcc-3.2.1:
---------- 2.326000000000000e+02 232.60 23259 ---------- 2.326100000000000e+02 232.61 23261 ---------- 5.000000000000000e+02 500.00 50000 ---------- 4.990000000000000e+02 499.00 49900 ---------- 4.999900000000000e+02 499.99 49999 ---------- 5.000000000000000e+02 500.00 50000 ----------