<HTML><BODY><p><br>How many right suggestions. But... anyway something wrong with real math in Oberon implementation, because same example in BlackBox returns yet another result expected by Zdenek.</p><p>Code:<br data-mce-bogus="1"></p><p>MODULE M1;<br><br>IMPORT<br> StdLog;<br> <br>PROCEDURE Do*;<br>VAR<br> r: REAL;<br>BEGIN<br> r := 480 / 100 * 100;<br> StdLog.Int(ENTIER(r * 1000000));<br> StdLog.Ln;<br>END Do;<br> <br>BEGIN<br>END M1.<br data-mce-bogus="1"></p><p>Output:<br data-mce-bogus="1"></p><p>480000000<br data-mce-bogus="1"></p><p>Same result as BlackBox
returned in commercial Embarcadero RAD Studio using type corresponding single type.<br><br>---<br>Cheers, SAGE<br>http://sage.com.ua/<br></p></BODY></HTML>