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

Вниз

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

 
ArtemESC ©   (2005-10-08 18:38) [0]

Доброго времени суток...
Как округлить Extended до некоторого фиксированного
знака после запятой?


 
GanibalLector ©   (2005-10-08 19:13) [1]

 RoundTo

Example :
var E:Extended;
begin
 E:=45.8574848;
 Caption:=FloatToStr(RoundTo(E,-2));


Хотя...с другой стороны :

function RoundTo(const AValue: Double; const ADigit: TRoundToRange): Double;

и в то же время :
Type Range Significant digits Size in bytes

Double 5.0 x 10^–324 .. 1.7 x 10^308 15–16 8
Extended 3.6 x 10^–4951 .. 1.1 x 10^4932 19–20 10



 
GuAV ©   (2005-10-08 19:14) [2]

До десятичного - вообще говоря, никак. До двоичного - умножением, усечением и делением. До десятичног приблизительно - roundto.
Обычно округление не требуется, лишние знаки отбрасываються уже при форматировании числа в строку.


 
Карелин Артем ©   (2005-10-08 19:57) [3]

ShowMessage(FormatFloat("#####0.####",35.222222));


 
murzik   (2005-10-08 23:16) [4]

Function RoundEx(X: Extended; DigitsAfterPoint: Byte = 0): Extended;
Begin
Result := StrToFloat(Trim(Format("%20." +
                     IntToStr(DigitsAfterPoint) + "f", [X])));
End;


 
GuAV ©   (2005-10-08 23:24) [5]

murzik   (08.10.05 23:16) [4]

Не Ваше ли творенье http://kladovka.net.ru/index.cgi?pid=list&rid=190 ?


 
murzik   (2005-10-08 23:33) [6]

нет, это я где-то позаимствовал


 
wp2   (2005-10-09 19:07) [7]

Round(x*100)/100 - до сотых
Round(x*1000)/1000 - до тысячных

и т.д.



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

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

Наверх




Память: 0.45 MB
Время: 0.038 c
1-1128448523
Цукор5
2005-10-04 21:55
2005.10.30
Position:=poMainFormCenter


14-1128678091
XGarik
2005-10-07 13:41
2005.10.30
Деньги за воздух


1-1128334065
Ugrael
2005-10-03 14:07
2005.10.30
как вывести в about номер билда ?


4-1124778504
officeman
2005-08-23 10:28
2005.10.30
как получить полный путь каталога "Рабочий стол"


4-1125244172
LiqS
2005-08-28 19:49
2005.10.30
CopyFileEx





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский