Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Основная";
Текущий архив: 2005.06.29;
Скачать: [xml.tar.bz2];

Вниз

ОКРУГЛЕНИЕ   Найти похожие ветки 

 
zaw   (2005-06-03 14:12) [0]

Почему функция RoundTo не округляет число 275.975 правильно
var
Double1, double2, double3, double4: double;
begin
Double1 := 3.5;
Double2 := 78.85;
Double2 := 78.89;

Double3 := RoundTo(Double1 * Double2, -2); // 275.97
Double4 := RoundTo(Double1 * Double2, -2); // 276.12

Label1.Caption := FloatToStr(Double3);
Label2.Caption := FloatToStr(Double4);  
end;


 
Anatoly Podgoretsky ©   (2005-06-03 14:30) [1]

По тому что ни о каком округлении для чисел с плавающей запятой говорить не приходится.
Округление это вообще тогда когда число круглое, никаких знаков после запятой.
Здесь же делается некоторый психологический обман, число умножается на 10^N, затем округляется, после опять делится на туже величину, после чего мы имеем опять не округленое число, при этом никто не гарантирует, что оно будет равно N / 10^N


 
panov ©   (2005-06-03 14:35) [2]

>zaw   (03.06.05 14:12)
И не надо так орать.


 
zaw   (2005-06-03 14:37) [3]

как выйти из ситуации?


 
Ega23 ©   (2005-06-03 14:38) [4]

как выйти из ситуации?

С позором. Или с честью.  На твой выбор.


 
zaw   (2005-06-03 14:51) [5]


> Ega23 ©   (03.06.05 14:38) [4]

Вышел с честью, вместо double надо было использовать extended


 
Anatoly Podgoretsky ©   (2005-06-03 15:32) [6]

Никуда ты не вышел, ты просто отодвинул границу.



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

Форум: "Основная";
Текущий архив: 2005.06.29;
Скачать: [xml.tar.bz2];

Наверх




Память: 0.45 MB
Время: 0.042 c
1-1118216795
llirik
2005-06-08 11:46
2005.06.29
Ассоциативный массив


3-1116232915
Dimedrol
2005-05-16 12:41
2005.06.29
Замена транзакций в MSSQL (part 2)


4-1114425641
Leonid
2005-04-25 14:40
2005.06.29
Как определить версию Windows ?


1-1117797095
San Sanich
2005-06-03 15:11
2005.06.29
Текст разного цвета


4-1115476321
GrayFace
2005-05-07 18:32
2005.06.29
Глюки в статье "Hooks"





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
Английский Французский Немецкий Итальянский Португальский Русский Испанский