ReSQL.ru
     
powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Delphi [игнор отключен] [закрыт для гостей] / Округление RoundTo. Непонятно :)
25 сообщений из 55, страница 2 из 3
  2  все
Округление RoundTo. Непонятно :)
    #35599705
Фотография Anatoly Podgoretsky
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Anatoly Podgoretsky
Участник
zirraГаджимурадов Рустамzirra > Я худею, дорогая редакция!!!

С чего конкретно ?Ну, хотя бы с того, что при изменении SetRoundMode меняется результат присвоения переменных... Соответственно, и результат округления разный...
Ну на основания вывода я не стал бы делать вывод об присвоение, тут надо смотреть на представление в отладчике и с максимальной точностью.

Кроме того обычно переменные типа Double, а это вводит дополнительные погрешности при обработке.
...
Рейтинг: 0 / 0
17.10.2008, 01:13:02
| Ответить | Цитировать | Написать  
Округление RoundTo. Непонятно :)
    #35599706
x77
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
x77
Участник
Anatoly Podgoretskyне понимание, как работает компилятор. Почему A := 0.2 и константа 0,2 это
разные числа

я не понимаю чисто логически. потому что если 0.175 - это, видите-ли, не 0.175, а неведомо что - то в топку такие компиляторы. до меня этот voodoo-magic не доходит.

если кто-то понимает - ну слава богу. а меня как-то больше пугают такие приколы...
...
Рейтинг: 0 / 0
17.10.2008, 01:13:17
| Ответить | Цитировать | Написать  
Округление RoundTo. Непонятно :)
    #35599717
Фотография NextMan
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
NextMan
Участник
x77...
я не понимаю чисто логически. потому что если 0.175 - это, видите-ли, не 0.175, а неведомо что - то в топку такие компиляторы. до меня этот voodoo-magic не доходит...
А при чем тут компиляторы?
Ну, скажи сам, как представить в двоичной форме (Float) 0.175?
...
Рейтинг: 0 / 0
17.10.2008, 01:22:50
| Ответить | Цитировать | Написать  
Округление RoundTo. Непонятно :)
    #35599718
Фотография Anatoly Podgoretsky
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Anatoly Podgoretsky
Участник
Вообще то это не к компилятором относится, а к математике
Дискретные числа ограниченой точности.
Тебя же не смущает, что ты не можешь разделить точно 1 на 3? Какая бы точность не была. Допустим, что число не периодическая дробь, а точное число, только для точного представления нужно допустим 300 бит, а в наличии только 32/64/80

--
http://www.podgoretsky.com
...
Рейтинг: 0 / 0
17.10.2008, 01:24:15
| Ответить | Цитировать | Написать  
Округление RoundTo. Непонятно :)
    #35599723
andreymx
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
andreymx
Участник
Anatoly Podgoretsky
Я не сплю, я со стороны смотрю. Я все сказал, можно было бы еще и на
Королевство послать и послал бы, но тут вопрос за пределами тех статей, тут
не понимание, как работает компилятор. Почему A := 0.2 и константа 0,2 это
разные числа, я уже сказал, но что делать если нет понимания с той стороны.

--
http://www.podgoretsky.com

Что-то Анатолий рано спать лег.
Точное представление десятичных дробей в двоичной форме - его любимая тема. "Гараж"- Занимаюсь сатирой.
- Русской или иностранной?
- Нашей.
- По девятнадцатому веку?
- Нет, современной.
- Хм! У вас потрясающая профессия! Вы занимаетесь тем, чего нет.
...
Рейтинг: 0 / 0
17.10.2008, 01:36:31
| Ответить | Цитировать | Написать  
Округление RoundTo. Непонятно :)
    #35599741
x77
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
x77
Участник
NextMan , Anatoly Podgoretsky ,

вы хотите сказать, что дробные величины в дельфи хранятся, как частное?
...
Рейтинг: 0 / 0
17.10.2008, 02:11:15
| Ответить | Цитировать | Написать  
Округление RoundTo. Непонятно :)
    #35599754
Фотография NextMan
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
NextMan
Участник
А вы не хотите самостоятельно разобраться? Это совсем не сложно - вспомни школьный курс про номальное представление чисел, про "мантиссу" и "порядок".
Тут то же самое, только мантисса и порядок ограничены фиксированным числом бит. Иногда хватает точности, а иногда нет.
Типа, 0.25 есть "два в минус второй степени" - значащее число всего два бита мантисса отлично помещается в двух битах ( даже в одном! - если спихуть все на порядок).

А вот 0.15 точно представить нельзя. Ну, 0.125 (два в минус третьей) + 0.015625 (два в минус шестой) + 0,0078125 (два в минус седьмой) + 0,0009765625 (два в минус десятой) + ... и т.д., давай дальше сам
Надеюсь, понятно?
...
Рейтинг: 0 / 0
17.10.2008, 02:35:55
| Ответить | Цитировать | Написать  
Округление RoundTo. Непонятно :)
    #35599756
Фотография NextMan
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
NextMan
Участник
Ну вот здесь вроде понятно.
...
Рейтинг: 0 / 0
17.10.2008, 02:38:13
| Ответить | Цитировать | Написать  
Округление RoundTo. Непонятно :)
    #35599763
Гаджимурадов Рустам
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гаджимурадов Рустам
Участник
Шедевральный топик! Люблю такие темы - столько перлов можно услышать :)


Posted via ActualForum NNTP Server 1.4
...
Рейтинг: 0 / 0
17.10.2008, 03:21:43
| Ответить | Цитировать | Написать  
Округление RoundTo. Непонятно :)
    #35600053
Dryn
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Dryn
Гость
NextManНу вот здесь вроде понятно.

а как же тогда быть с округлением, как тогда правильно округлять (получать из 0.175 0.18) ?
...
Рейтинг: 0 / 0
17.10.2008, 10:06:47
| Ответить | Цитировать | Написать  
Округление RoundTo. Непонятно :)
    #35600071
andreymx
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
andreymx
Участник
попробовать ftCurrency
...
Рейтинг: 0 / 0
17.10.2008, 10:14:38
| Ответить | Цитировать | Написать  
Округление RoundTo. Непонятно :)
    #35600077
Зайцев Фёдор
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Зайцев Фёдор
Участник
Альта в пятерке нет
а вот и да )
...
Рейтинг: 0 / 0
17.10.2008, 10:16:35
| Ответить | Цитировать | Написать  
Округление RoundTo. Непонятно :)
    #35600246
x77
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
x77
Участник
NextMan, читаю... что-то такое смутно вспоминается...

))))))))))))))))))))))))))))), при чём тут математика? речь о представлении данных в эвм.
...
Рейтинг: 0 / 0
17.10.2008, 11:07:43
| Ответить | Цитировать | Написать  
Округление RoundTo. Непонятно :)
    #35600273
Фотография NextMan
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
NextMan
Участник
andreymx, Currency - это всего-навсего целый тип (64 бита), значение 1 принято считать за 0,0001 в десятичном исполнении.
Т.е., там нет описанных "проблем".
...
Рейтинг: 0 / 0
17.10.2008, 11:14:24
| Ответить | Цитировать | Написать  
Округление RoundTo. Непонятно :)
    #35600289
msLex
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
msLex
Участник
NextManandreymx, Currency - это всего-навсего целый тип (64 бита), значение 1 принято считать за 0,0001 в десятичном исполнении.
Т.е., там нет описанных "проблем".
только RoundTo его (Currency) преобразует к double со всеми вытекующими ;)
...
Рейтинг: 0 / 0
17.10.2008, 11:17:09
| Ответить | Цитировать | Написать  
Период между сообщениями больше года.
Округление RoundTo. Непонятно :)
    #39542377
Федор_Федор
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Федор_Федор
Гость
Помогите, пожалуйста, разобраться.
Я понял, что некоторые дроби невозможно точно представить в двоичном виде, и 0.175 это 0.17499999999999.
Но вот пример прямо из справки Делфи:
Код: pascal
1.
2.
3.
4.
5.
Expression         	Value
RoundTo(1234567, 3)	1234000
RoundTo(1.234, -2)	1.23
RoundTo(1.235, -2)	1.24
RoundTo(1.245, -2)	1.24


Пишу:
Код: pascal
1.
Form1.Label1.Caption:=FloatToStr(RoundTo(1.245,-2));


Получаю результат 1.25. А должно быть 1.24, согласно примеру из справки.
В справке ошибка?
...
Рейтинг: 0 / 0
26.10.2017, 13:02:59
| Ответить | Цитировать | Написать  
Округление RoundTo. Непонятно :)
    #39542386
zinpub
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
zinpub
Гость
Федор_Федор,

http://docwiki.embarcadero.com/Libraries/Tokyo/en/System.Math.SetRoundMode
...
Рейтинг: 0 / 0
26.10.2017, 13:12:02
| Ответить | Цитировать | Написать  
Округление RoundTo. Непонятно :)
    #39542397
Федор_Федор
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Федор_Федор
Гость
zinpub,
спасибо. Но я это сразу попробовал.
В справке сказано: "With the default rounding mode (rmNearest), if X is exactly halfway between two whole numbers, the result is always the even number.".
Ок. Делаем:
Код: pascal
1.
2.
3.
4.
5.
procedure TForm1.Button1Click(Sender: TObject);
begin
   SetRoundMode(rmNearest);
   Form1.Label2.Caption:=FloatToStr(RoundTo(1.245,-2));
end;


Результат: 1.25
...
Рейтинг: 0 / 0
26.10.2017, 13:20:22
| Ответить | Цитировать | Написать  
Округление RoundTo. Непонятно :)
    #39542408
Федор_Федор
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Федор_Федор
Гость
Я уже все таблицами исписал. Это правило прекрасно работает, если округляем до целых:
1.5 = 2
2.5 = 2
3.5 = 4
4.5 = 4
И т.д.
С округлением до десятых, сотых и т.д. - случайный результат. Где-то округляется в большую сторону, где-то в меньшую.
Причем у функции RoundTo(V,-2) и у функции FloatToStr(V,3,4) - порой разный результат округления.

Пример:
RoundTo(1.55,-1) = 1.5
FloatToStr(1.55,2,4) = '1.6E+0000'
...
Рейтинг: 0 / 0
26.10.2017, 13:26:56
| Ответить | Цитировать | Написать  
Округление RoundTo. Непонятно :)
    #39542423
zinpub
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
zinpub
Гость
Федор_Федор,

Можно ещё посмотреть в сторону Set8087CW, но там с 32/64 разница есть
...
Рейтинг: 0 / 0
26.10.2017, 13:40:09
| Ответить | Цитировать | Написать  
Округление RoundTo. Непонятно :)
    #39542429
Фотография JayDi
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
JayDi
Участник
Федор_Федор,

для школьного округления надо использовать SimpleRoundTo
...
Рейтинг: 0 / 0
26.10.2017, 13:43:37
| Ответить | Цитировать | Написать  
Округление RoundTo. Непонятно :)
    #39542509
Федор_Федор
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Федор_Федор
Гость
zinpub,

Ок. Спасибо. С ней пока не разбирался.
...
Рейтинг: 0 / 0
26.10.2017, 14:36:29
| Ответить | Цитировать | Написать  
Округление RoundTo. Непонятно :)
    #39542520
Федор_Федор
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Федор_Федор
Гость
JaDi,

Спасибо. Я обычно мудрил что-то вроде Round(V*n)/n, где n - номер цифры после запятой, которую надо округлить. Все работает отлично. Но недавно обнаружил, что есть RoundTo. Она вроде удобнее (писанины меньше), но работает непредсказуемо.
...
Рейтинг: 0 / 0
26.10.2017, 14:41:32
| Ответить | Цитировать | Написать  
Округление RoundTo. Непонятно :)
    #39542548
Фотография JayDi
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
JayDi
Участник
Федор_Федор,

Она работает предсказуемо -- это называется банковское округление (округление к ближайшему четному числу). Используется для того, чтобы у бахгалтеров ошибка округления не накапливалась при большом количестве записей.
...
Рейтинг: 0 / 0
26.10.2017, 15:04:57
| Ответить | Цитировать | Написать  
Округление RoundTo. Непонятно :)
    #39542709
Федор_Федор
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Федор_Федор
Гость
JaDi,
Тут вся ветка о банковском округлении, но все равно спасибо, что напомнили :-)
Непредсказуемо - это значит не в соответствии ни с правилами "банковского" округления, ни в соответствии с правилами "школьного" округления. Примеры - выше в теме.
...
Рейтинг: 0 / 0
26.10.2017, 17:14:36
| Ответить | Цитировать | Написать  
25 сообщений из 55, страница 2 из 3
  2  все
Форумы / Delphi [игнор отключен] [закрыт для гостей] / Округление RoundTo. Непонятно :)
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение   Полит. конфиден.  
NoSQL.ru       Кролег: Проекты, Новости, Чат       РЕД ФОРУМ       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=58&msg=39542397&tid=2041678]:
 0ms
get settings:
 6ms
get forum list:
 10ms
check forum access:
 2ms
check topic access:
 2ms
track hit:
 189ms
get topic data:
 6ms
get forum data:
 2ms
get page messages:
 35ms
get tp. blocked users:
 1ms
others: 227ms
total:  480ms
созд. / загр.: 480ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]