How can I round an integer to the nearest 1000 in Pascal?

Question

I've got a Integer variable in Pascal. Is there any possible function I can use that can round that value to the nearest 1000, for example:

RoundTo(variable, 1000);

Does anything of the sort exist? Or is there another method I should try using?

Thanks!

score 2 · Accepted Answer · answered Apr 11 '13 at 10:14

2

The general solution for this kind of problem is to scale before and after rounding, e.g.

y = 1000 * ROUND(x / 1000);

answered Apr 11 '13 at 10:14

Paul R

208,748
37
389
560

1

Exactly what I was looking for but just couldn't think of it! Thanks! – alexcu Apr 13 '13 at 15:22

score 1 · Answer 2 · edited Jun 20 '20 at 09:12

1

Use RoundTo(variable, 3).

The second parameter specifies the digits you want to round to. Since you want to round to 1000 = 10³ you need to specifiy 3, not 1000.

The documentation for RoundTo says:

function RoundTo(const AValue: Extended; const ADigit: TRoundToEXRangeExtended): Extended;
Rounds a floating-point value to a specified digit or power of ten using "Banker's rounding".

ADigit indicates the power of ten to which you want AValue rounded. It can be any value from –37 to 37 (inclusive).

The following examples illustrate the use of RoundTo:
RoundTo(1234567, 3) = 1235000

(I left out parts not relevant to your question)

Side-note: RoundTo uses Banker's round, so RoundTo(500, 3) = 0 and RoundTo(1500, 3) = 2000.

edited Jun 20 '20 at 09:12

Community

1
1

answered Apr 11 '13 at 10:16

CodesInChaos

106,488
23
218
262

That's a Delphi-specific function though - it's not standard PASCAL ? – Paul R Apr 11 '13 at 15:51
@PaulR, it's in `freepascal` as well, [`RoundTo`](http://www.freepascal.org/docs-html/rtl/math/roundto.html). – LU RD Apr 11 '13 at 16:28

score 0 · Answer 3 · answered Apr 11 '13 at 10:17

0

x = 1000*(x/1000), or x = x - (x mod 1000)

answered Apr 11 '13 at 10:17

user207421

305,947
44
307
483

Both of the examples above truncate rather than round. – Paul R Apr 11 '13 at 15:49

How can I round an integer to the nearest 1000 in Pascal?

3 Answers3

Linked