Привет всем. Сразу оговорюсь, что я не супер-пупер программист, программирование - моё хобби и иногда кодирую простые программки. Поэтому, не относитесь сильно предвзято к моему коду.
У меня возникла задача округления чисел до сотых. Например:
32,325 мне нужно округлить до 32,33. 32,324 до 32,32. Т.е. произвести округление по математическим правилам. Функция RoundTo округляет 32,325 как 32,32. Меня это не устраивает. Расчеты финансовые и копейками пренебрегать не могу. Написал такую функцию под delphi 7.
Код:
function Okruglenie(x:real):real;
var
x1, x2, x3 : real;
begin
x1 := Frac(x);
x2 := x1*100;
x3 := Frac(x2);
if x3 >= 0.5 then x2 := x2 + 1 else x2 := x2;
if x2 >= 100 then x := Int(x)+1 else x := Int(x) + (Trunc(x2)/100);
Okruglenie := x;
end;
В результате у меня получается из числа 32,325 число 32,32. Но ведь по коду должно получиться 32.33
Решил эту проблему так:
Код:
if x3 >0.49999999999 then x2 := x2 + 1 else x2 := x2;
подскажите более деликатный способ решения этой проблемы