Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2005.11.13;
Скачать: CL | DM;

Вниз

Как реализовать обычное математическое округление   Найти похожие ветки 

 
zorik ©   (2005-10-21 11:11) [0]

Ф-ция Round округливает:
1.5=2
2.5=2
3.5=4
4.5=4
5.5=6
6.5=6
Если ли функция какая "нормально" округливает? Или надо писать свою?
Спасибо.


 
Baltika-12   (2005-10-21 11:32) [1]

function MyRound(X:Double; N: Integer): Double;
var
 i,n1: Integer;
begin
 Result := X;
 n1 := 1;
 for i := 1 to N do n1 := n1*10;
 result := Trunc(Result*n1+0.5)/n1;
end;


 
zorik ©   (2005-10-21 12:24) [2]

Спасибо!
Но наверно должна быть и стандартная ф-ция.


 
ShiFT   (2005-10-21 12:48) [3]

int( X: Double)


 
Экспериментатор   (2005-10-21 13:48) [4]

в модуле Math стандартная функция RoundEx - один в один как MyRound у Baltika-12


 
Sergey_R ©   (2005-10-21 14:21) [5]

Вообще-то по правилам математики при округлении (если дробная часть заканчивается на 5) надо смотреть предыдущее число: если число нечетное, тогда округляем до большего, а если четное, тогда -  до меньшего.
Так что Round работает правильно!


 
111_   (2005-10-21 15:00) [6]

Она не округливает а округляет.


 
Lexer ©   (2005-10-21 15:00) [7]

>нечетное, тогда округляем до большего, а если четное, тогда -  до меньшего.

неужто?
ты где такое вычитал?



Страницы: 1 вся ветка

Текущий архив: 2005.11.13;
Скачать: CL | DM;

Наверх




Память: 0.48 MB
Время: 0.034 c
2-1129816409
проходил_мимо_решил_зайти
2005-10-20 17:53
2005.11.13
Мемо и печать


2-1129547718
Parth
2005-10-17 15:15
2005.11.13
Консольное приложение: иероглифы


9-1120114310
Мелкий
2005-06-30 10:51
2005.11.13
Проблемка с трансформацией меша в DirectX


2-1129697638
syte_ser78
2005-10-19 08:53
2005.11.13
Сново о украинской букве І


14-1129979702
alless
2005-10-22 15:15
2005.11.13
Как запускать файлы *.bin?