[syber]

Привет всем. Сразу оговорюсь, что я не супер-пупер программист, программирование - моё хобби и иногда кодирую простые программки. Поэтому, не относитесь сильно предвзято к моему коду.
У меня возникла задача округления чисел до сотых. Например:
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;

подскажите более деликатный способ решения этой проблемы

[Aristarh Dark]

SimpleRoundTo, спасет гиганта мысли

[syber]

Спасибо, хотел было обрадоваться, но все-равно округляет нечестно, например 32,995 округляет как 32,99. А должно давать 33.

[syber]

Модератор, приношу свои извинения. Функция SimpleRoundTo округляет точно по банковским правилам (а мне оно как раз и нужно).

банковское округление, (если отбрасываемые цифры больше 0.5, происходит округление вверх (от нуля), если меньше 0.5 - цифры отбрасываются, если отбрасываемая часть равна 0.5, то округление происходит в зависимости от четности предпоследней цифры),

Мои правила округления не соответствуют этим правилам. Большое спасибо за совет.

[syber]

Хотя, все-равно считает с ошибками

[Ultras]

Сообщение от syber

Хотя, все-равно считает с ошибками

проверил щас, 32.325 округляет до 32.33, 32.324 округляет до 32.32 (проверял именно Вашу функцию), если есть вопросы, можете написать по ICQ 418018483

[syber]

Сообщение от Ultras

проверил щас, 32.325 округляет до 32.33, 32.324 округляет до 32.32 (проверял именно Вашу функцию), если есть вопросы, можете написать по ICQ 418018483

27.325 у меня округляется как 27.32. Это точно. Ввод данных через компонент Edit
Такой результат дает и SimpleRoundTo и вариант функции с 0,5. Хотя, по логике (проверял с листочком) должно выдавать 27.33

[s0Creator]

Сообщение от syber

Модератор, приношу свои извинения. Функция SimpleRoundTo округляет точно по банковским правилам (а мне оно как раз и нужно).
Мои правила округления не соответствуют этим правилам. Большое спасибо за совет.

Тогда объясните свои правила.

[syber]

Сообщение от s0Creator

Тогда объясните свои правила.

Арифметическое округление. Т.е. 32,995 должно округляться как 33.00, а 32,324 как 32,32

[syber]

На другом форуме нашёл сообщение, что функции RoundTo и SimpleRoundTo в частных случаях выдают ошибки.