Округление до целого,отличное от Round

[Rekky]

Это функция округления числа до целого не по правилам Round. Код очень простой, может кому пригодиться :

f

unction RoundToInt( x: real): integer;
 var y : extended;
 begin
    y := x- trunc(x);
    if  y>=0.5 then result := trunc(x)+1 else result := trunc(x);
 end;

[Serge_Bliznykov]

1) данная функция неправильно работает для отрицательных чисел (в отличии от round() )

2) если не сложно, укажите, пожалуйста, для какого положительного x результат RoundToInt(x) будет отличаться от Round(x)...
второй вопрос снимаю.
это происходит при x := 0.5;
Round(x) выдаёт 0

[Stilet]

может кому пригодиться

Есть уже такое Math.RoundTo. Подробности в хелпе.

[Serge_Bliznykov]

Есть уже такое Math.RoundTo

угу.
а ещё. добавлю, всем заинтересовавшимся, можно почитать, откуда эта проблема взялась:

Загадки округления

Загадки округления. Тестирование функций округления различных языков.