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