Округление чисел

← →
PIF (2005-06-29 17:59) [0]

Здравствуйте! Скажите пожалуйста, как округлить число до заданного
количества значащих цифр после запятой, которое(т.е. число значащих цифр)задает пользователь.
Заранее благодарен!!!

← →
Ega23 © (2005-06-29 18:21) [1]

Умножить на 10 в степени заданного количества значащих цифр после запятой, округлить до целого, разделить на 10 в степени заданного количества значащих цифр после запятой.

А вообще - RoundTo

← →
TStas © (2005-06-29 19:07) [2]

function RoundToN(r:Real, n:Byte):real; //Знаков, сколько введется
var
i:byte;
m:Integer;
begin
m:=1;
for i:=1 to n do m:=10*m;
Resul:=m*r;
Result:=round(Result)/m;
end;

← →
PIF (2005-06-29 21:29) [3]

Спасибо за помощь!!!

Округление чисел Найти похожие ветки