**Delphi**provides standard commands to

**round**and truncate decimal numbers. For Example:

Round(12.75) = 13

Trunc(12.75) = 12

Int(12.75) = 12

Frac(12.75) = 0.75

What about if we want to use a specific number of decimal digits? For example, we want to use 2 decimal digits and 1,2345 to be rounded to 1,24 or 3 decimal digits and have as result 1,235.

Find below the

**nkRound**commands to implement this:
Function **nkRound**(x: Real; DecimalDigits: Integer): Real;

var

i, f: integer;

r: Real;

begin

f:=1;

for i:=1 to DecimalDigits do

f:=f*10;

r:=x*f;

r:=Round(r);

r:=r/f;

Result:=r;

end;