"be consistent" PerlMonks

### Re: OT: Integer rounding?

by Ryszard (Priest)
 on Mar 23, 2004 at 19:13 UTC ( #339125=note: print w/replies, xml ) Need Help??

in reply to OT: Integer rounding?

After a bit more googling i found the answer:
```dataless <dataless767@hotmail.com> wrote in article
<a8liar\$m91\$1@helle.btinternet.com>...
> Hi all,
> Can anyone recommend an algorithm to round an integer to the nearest
+ 5 or
> 10?

Let's round n to the nearest five first:

Divide n by 5
Add 0.5 to n
Discard the fractional part of n
Multiply n by 5

Now let's round to the nearest ten:

Divide n by 10
Add 0.5 to n
Discard the fractional part of n
Multiply n by 10

Now let's round to the nearest seven:

Divide n by 7
Add 0.5 to n
Discard the fractional part of n
Multiply n by 7

Do you see a pattern?

--
Bringing you today's technology tomorrow...
or in perl
```
#!/usr/bin/perl -w

use strict;

my \$prec   = 5;
my \$number = 32;

\$\="\n";

print int((\$number/\$prec)+.5)*\$prec;
smaller, anyone?

Create A New User
Node Status?
node history
Node Type: note [id://339125]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others chanting in the Monastery: (2)
As of 2021-04-17 05:43 GMT
Sections?
Information?
Find Nodes?
Leftovers?
Voting Booth?

No recent polls found

Notices?