Re^3: strange rounding


Do you know where your variables are?
	PerlMonks

Re^3: strange rounding

by BrowserUk (Patriarch)

on Nov 29, 2004 at 16:07 UTC ( [id://410954]=note: print w/replies, xml )

Need Help??

in reply to Re^2: strange rounding
in thread strange rounding

Try this:

print int(0.500000000000001+($u*$p*100))/100;
[download]

Examine what is said, not who speaks.

"But you should never overestimate the ingenuity of the sceptics to come up with a counter-argument." -Myles Allen
"Think for yourself!" - Abigail "Time is a poor substitute for thought"--theorbtwo "Efficiency is intelligent laziness." -David Dunham
"Memory, processor, disk in that order on the hardware side. Algorithm, algorithm, algorithm on the code side." - tachyon

Comment on Re^3: strange rounding Download Code

Replies are listed 'Best First'.

Re^4: strange rounding
by Anonymous Monk on Nov 30, 2004 at 09:28 UTC

that doesn't give correct results!

The problem is NOT within int(..) (I tried 0.501..)
the result of int is correct 12400, but if you devide this
(try only10!) you will get 123.99:

  $cent = int(0.5 + ($u*$p*100); # => 12400, ok
#but
  $dollar = $cent / 100; # => 123.99
# even if you use sprintf (which itself does 
#  NOT round financially, you have to it yourself!
  $dollar = sprintf ".2f", $cent/100; # => 123.99 Dollar
[download]

Carl

[reply]
[d/l]

In Section Seekers of Perl Wisdom