Re: trunc / neuste Version fehlerlos?

27 May 2004

      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

-- 
http://www.gnushi.de

Re: trunc / neuste Version fehlerlos?

Eike Lange