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

Вниз

Как округлить.   Найти похожие ветки 

 
Executor ©   (2002-04-23 09:52) [0]

Как округлить число с плавающей точкой, до n знаков после запятой? Я знаю только один способ FormatFloat, но тогда придеться делать StrToFloat, что не очень здорово.


 
masik ©   (2002-04-23 09:54) [1]

RoundTo


 
Andrey007   (2002-04-23 11:21) [2]

Round(x*1000)/1000. В общем случае для n знаков надо умножать на 10 в степени n и, соответственно, делить на столько же.


 
Johnmen ©   (2002-04-23 11:24) [3]

// Округление -------------------------
function JRound(X: double; Precision: integer = 100) : double;
{Precision : 1 - до целых, 10 - до десятых, 100 - до сотых, ...}
var ScaledFractPart, Temp : double;
begin;
ScaledFractPart:=Frac(X)*Precision;
Temp:=Frac(ScaledFractPart);
ScaledFractPart:=Int(ScaledFractPart);
if Temp>=0.49999999 then ScaledFractPart:=ScaledFractPart+1;
if Temp<=-0.49999999 then ScaledFractPart:=ScaledFractPart-1;
Result:=Int(X)+ScaledFractPart/Precision;
end;


Почти на все случаи...Основа взята давно из какого-то фака...



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

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

Наверх




Память: 0.47 MB
Время: 0.008 c
4-17745
ice
2002-02-28 19:47
2002.05.06
как загнать прогу в трэй а не на панель?


14-17669
hp1100
2002-03-26 11:10
2002.05.06
Дайте, плз, линк на Borland resource Workshop


14-17704
savva
2002-03-28 10:11
2002.05.06
Не знаю куда вопрос задавать, попробую здесь.


4-17750
mikki
2002-03-03 12:28
2002.05.06
Послать сообщение от неактивного окна.


1-17631
agrig
2002-04-21 19:43
2002.05.06
TCheckBox - как програмно поменять Checked, чтобы не произошло ..