[Oberon] real math

[Jörg]

Hi all

 

As neither myself nor Yaroslav had the result Zdenek had, we should ask:

What Oberon system on what platform are you using, Zdenek?

 

br

Jörg

 

 

From: Yaroslav Romanchenko [mailto:tobject at bk.ru] 
Sent: Dienstag, 11. November 2014 15:50
To: ETH Oberon and related systems
Subject: Re: [Oberon] real math

 


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/b1aab6f2/attachment.html 
-------------- next part --------------
A non-text attachment was scrubbed...
Name: smime.p7s
Type: application/x-pkcs7-signature
Size: 6097 bytes
Desc: not available
Url : https://lists.inf.ethz.ch/pipermail/oberon/attachments/20141111/b1aab6f2/attachment.bin