trunc / neuste Version fehlerlos? - Gpc-de

27 May 2004


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