First Test with reals

[Herbert]

Hi,

please see this code and the mystery results.

Code: Select all

program test1;

var  rr : real;

begin
     rr := 10.0;       //= 1.000000E+001 = correct
     rr := rr + 0.9;   //= 1.360000E+001 = ?
     rr := rr * 10.0;  //= 1.598672E-036 = ??
     rr := rr / 10.0;  //= 1.360000E+001 = ???
end.

What is wrong?

Best regards
Herbert