[Oberon] real math

[Yaroslav Romanchenko]

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.
Code:
MODULE M1;

IMPORT
StdLog;

PROCEDURE Do*;
VAR
r: REAL;
BEGIN
r := 480 / 100 * 100;
StdLog.Int(ENTIER(r * 1000000));
StdLog.Ln;
END Do;

BEGIN
END M1.
Output:
480000000
Same result as BlackBox
returned in commercial Embarcadero RAD Studio using type corresponding single type.

---
Cheers, SAGE
http://sage.com.ua/
-------------- next part --------------
An HTML attachment was scrubbed...
URL: https://lists.inf.ethz.ch/pipermail/oberon/attachments/20141111/0e80140b/attachment.html