SRL Archive - Research & Development Lounge

I made this while experimenting with Delphi and changed it to run in Scar. I though it may be useful to someone, and thus it made its way here:

function RoundDec(number: extended; decimals: integer): extended;
begin
  Result := Round(number * Pow(10, decimals)) / Pow(10, decimals);
end;

You can test it with this:

program New;

function RoundDec(number: extended; decimals: integer): extended;
begin
  Result := Round(number * Pow(10, decimals)) / Pow(10, decimals);
end;

begin
  Writeln(FloatToStr(RoundDec(1.23456789, 8)));
end.

And change the 8 to different numbers to see it in action.

Nice function, i was so annoyed when i put:

program New;
begin
  Writeln(FloatToStr(7 div 2));
end.

and it says:

Successfully compiled
3
Successfully executed

div automatically rounds it down - if you don't want it to do that, then use / with variables or /blah.0 if not (so 7 / 2.0) so it knows to return a float :)
(Wizzup? posted it btw so it must be true)

Actually, in scar, div and / are exactly the same. It's only in Delphi that div floors the quotient. To get a float as a result, at least one number must be a float.

Just wanted to ask whats a float?

From: NaumanAkhlaQ
Just wanted to ask whats a float?

A decimal number. Same meaning as an extended.

EDIT: This function should be included in SCAR.

Glad you think it should be included in Scar - I just thought it may be useful to someone :)

Unfortunately unless you can convince me it's that useful, I don't think it should be included in SCAR…

The only time I could think of when you would use it would be for visual effect, but I didn't think it would be added anyway.