ReSQL.ru
     
powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Delphi [игнор отключен] [закрыт для гостей] / Округление RoundTo. Непонятно :)
55 сообщений из 55, показаны все 3 страниц
  все  
Округление RoundTo. Непонятно :)
    #35598728
sgec
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
sgec
Участник
RoundTo(0.175,-2)=0.17
RoundTo(0.275,-2)=0.28

непонятно
...
Рейтинг: 0 / 0
16.10.2008, 16:10:14
| Ответить | Цитировать | Написать  
Округление RoundTo. Непонятно :)
    #35598738
x77
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
x77
Участник
sgec , а что тут непонятного? при "пополамных" вариантах округление происходит в сторону ближайшего чётного числа, и так было всегда.


F1This method rounds to an even number in the case that AValue is not nearer to either value.
...
Рейтинг: 0 / 0
16.10.2008, 16:13:44
| Ответить | Цитировать | Написать  
Округление RoundTo. Непонятно :)
    #35598744
sgec
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
sgec
Участник
щас понял ага
...
Рейтинг: 0 / 0
16.10.2008, 16:17:01
| Ответить | Цитировать | Написать  
Округление RoundTo. Непонятно :)
    #35598850
Фотография Альт
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Альт
Участник
x77 sgec , а что тут непонятного? при "пополамных" вариантах округление происходит в сторону ближайшего чётного числа, и так было всегда.

это пацанам на vcl5 расскажите ;)
...
Рейтинг: 0 / 0
16.10.2008, 16:48:12
| Ответить | Цитировать | Написать  
Округление RoundTo. Непонятно :)
    #35598865
x77
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
x77
Участник
Альтэто пацанам на vcl5 расскажите ;)

в смысле?

Код: plaintext
  ShowMessage (FloatToStr (Round ( 2 . 5 )) + # 13  + FloatToStr (Round( 3 . 5 )));

ответ - 2,4. это и в семёрке также работает.
...
Рейтинг: 0 / 0
16.10.2008, 16:53:25
| Ответить | Цитировать | Написать  
Округление RoundTo. Непонятно :)
    #35598868
Фотография Альт
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Альт
Участник
x77Альтэто пацанам на vcl5 расскажите ;)

в смысле?

Код: plaintext
  ShowMessage (FloatToStr (Round ( 2 . 5 )) + # 13  + FloatToStr (Round( 3 . 5 )));

ответ - 2,4. это и в семёрке также работает.

а в пятерке нет
...
Рейтинг: 0 / 0
16.10.2008, 16:54:35
| Ответить | Цитировать | Написать  
Округление RoundTo. Непонятно :)
    #35598877
x77
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
x77
Участник
Альт , не знал.... о_О
...
Рейтинг: 0 / 0
16.10.2008, 16:57:38
| Ответить | Цитировать | Написать  
Округление RoundTo. Непонятно :)
    #35598886
Фотография Альт
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Альт
Участник
x77 Альт , не знал.... о_О
я до прошлого года тоже z_Z
...
Рейтинг: 0 / 0
16.10.2008, 16:59:34
| Ответить | Цитировать | Написать  
Округление RoundTo. Непонятно :)
    #35598911
Фотография Anatoly Podgoretsky
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Anatoly Podgoretsky
Участник
sgecRoundTo(0.175,-2)=0.17
RoundTo(0.275,-2)=0.28

непонятно
У тебя не 0,175, а что то близкое к 0,174999999999
...
Рейтинг: 0 / 0
16.10.2008, 17:09:01
| Ответить | Цитировать | Написать  
Округление RoundTo. Непонятно :)
    #35598946
x77
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
x77
Участник
что-то теперь мне стало нифига непонятно...

Anatoly Podgoretsky , RoundTo (0.175, -2) = 0.17. фахт.
...
Рейтинг: 0 / 0
16.10.2008, 17:19:35
| Ответить | Цитировать | Написать  
Округление RoundTo. Непонятно :)
    #35599002
Фотография Anatoly Podgoretsky
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Anatoly Podgoretsky
Участник
Я тебе верю и более того толкаю тебя верить.

Утверждение 1 - округление происходит в сторону ближайшего чётного числа
Утверждение верное, и поскольку его не происходит, то у тебя не 0.175, а немного меньше, а вот 0.275 строго посредине и округление идет в сторону четного

Утверждение 2 - операция RoundTo не работает с текстами.
Значит текст 0.175 надо преобразовать в число, с какой ни будь точностью (Single/Double/Extended), при преобразовании в ч число происходит ошибка представления, поскольку число 0.175 невозможно представить точно, а только приблизительно, или чуть больше или чуть меньше. По результату видно, что чуть меньше.

Утверждение 3 - если результат куда либо присваивается, то происходит опять же потеря точности, если только это не степень 2 и достаточно маленькое, как например 0.175

Дополнение 1 - все работает правильно поскольку нет присвоения результата функции и ты просто фантазируешь!!! Также нет проверки отношения - вывод тот же.

Дополнение 2 - или ты приводишь нормальный текст (не только присвоение), или говорить не о чем.

Дополнение 2 - ты ничего не читал и не знаешь об особенностях чисел с плавающей запятой.

--
http://www.podgoretsky.com
...
Рейтинг: 0 / 0
16.10.2008, 17:32:09
| Ответить | Цитировать | Написать  
Округление RoundTo. Непонятно :)
    #35599005
Фотография Anatoly Podgoretsky
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Anatoly Podgoretsky
Участник
Дополнение 4 - округление до не целого числа, это фикция, в результате то получается не круглое число.

--
http://www.podgoretsky.com
...
Рейтинг: 0 / 0
16.10.2008, 17:33:19
| Ответить | Цитировать | Написать  
Округление RoundTo. Непонятно :)
    #35599209
x77
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
x77
Участник
Anatoly Podgoretsky , всё это интересно и познавательно, но:

Код: plaintext
1.
2.
3.
4.
5.
 var 
  a: extended;
 begin 
  a :=  0 . 175 ;
  a := RoundTo(a, - 2 );

результат всегда будет 0.17 для любого вещественого типа (дельфийского). мне кажется - что должно быть 0.18. я пока себе это объяснить не могу :)
...
Рейтинг: 0 / 0
16.10.2008, 18:55:26
| Ответить | Цитировать | Написать  
Округление RoundTo. Непонятно :)
    #35599315
Фотография Anatoly Podgoretsky
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Anatoly Podgoretsky
Участник
Ты не обяснить не можешь, а понять, хотя тебе все расписали.

--
http://www.podgoretsky.com

Posted via ActualForum NNTP Server 1.4
...
Рейтинг: 0 / 0
16.10.2008, 20:09:02
| Ответить | Цитировать | Написать  
Округление RoundTo. Непонятно :)
    #35599320
x77
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
x77
Участник
Anatoly Podgoretsky, увы, не могу.
...
Рейтинг: 0 / 0
16.10.2008, 20:13:02
| Ответить | Цитировать | Написать  
Округление RoundTo. Непонятно :)
    #35599379
Фотография zirra
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
zirra
Участник
Я худею, дорогая редакция!!!
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
 program 
  _1;

 {$APPTYPE CONSOLE} 

 uses 
  Windows, SysUtils, Math;

 var 
  a, b: extended;
 begin 
  SetRoundMode(rmNearest);
  a :=  0 . 175 ;
  b := RoundTo(a, - 2 );
  Writeln(a: 10 : 20 , ' : ', b: 10 : 20 );

  SetRoundMode(rmDown);
  a :=  0 . 175 ;
  b := RoundTo(a, - 2 );
  Writeln(a: 10 : 20 , ' : ', b: 10 : 20 );

  SetRoundMode(rmUp);
  a :=  0 . 175 ;
  b := RoundTo(a, - 2 );
  Writeln(a: 10 : 20 , ' : ', b: 10 : 20 );

  SetRoundMode(rmTruncate);
  a :=  0 . 175 ;
  b := RoundTo(a, - 2 );
  Writeln(a: 10 : 20 , ' : ', b: 10 : 20 );
 end .
И её вывод:
Код: plaintext
1.
2.
3.
0.17500000000000000000 : 0.17000000000000001000
0.17499999999999999000 : 0.16999999999999995000
0.17500000000000000000 : 0.18000000000000003000
0.17499999999999999000 : 0.16999999999999995000
...
Рейтинг: 0 / 0
16.10.2008, 21:03:29
| Ответить | Цитировать | Написать  
Округление RoundTo. Непонятно :)
    #35599489
Гаджимурадов Рустам
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гаджимурадов Рустам
Участник
x77> мне кажется - что должно быть 0.18.

Нет. Хотя тут могут быть разные точки зрения.

x77> я пока себе это объяснить не могу :)

Подумай над определением понятия "четность".

zirra > Я худею, дорогая редакция!!!

С чего конкретно ?


Posted via ActualForum NNTP Server 1.4
...
Рейтинг: 0 / 0
16.10.2008, 22:39:34
| Ответить | Цитировать | Написать  
Округление RoundTo. Непонятно :)
    #35599505
Фотография zirra
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
zirra
Участник
Гаджимурадов Рустамzirra > Я худею, дорогая редакция!!!

С чего конкретно ?Ну, хотя бы с того, что при изменении SetRoundMode меняется результат присвоения переменных... Соответственно, и результат округления разный...
...
Рейтинг: 0 / 0
16.10.2008, 22:49:48
| Ответить | Цитировать | Написать  
Округление RoundTo. Непонятно :)
    #35599534
Гаджимурадов Рустам
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гаджимурадов Рустам
Участник
zirra> при изменении SetRoundMode меняется результат присвоения переменных...

Нет.

zirra> Соответственно, и результат округления разный...

Вот я и говорю - шо удивляет-то? :)
Меня с ходу немного озадачил только
второй результат - пока я не полистал
наверх и не увидел при каких условиях
он был получен.


Posted via ActualForum NNTP Server 1.4
...
Рейтинг: 0 / 0
16.10.2008, 23:14:49
| Ответить | Цитировать | Написать  
Округление RoundTo. Непонятно :)
    #35599549
Фотография zirra
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
zirra
Участник
Гаджимурадов Рустам
zirra> при изменении SetRoundMode меняется результат присвоения переменных...

Нет.

zirra> Соответственно, и результат округления разный...

Вот я и говорю - шо удивляет-то? :)
Меня с ходу немного озадачил только
второй результат - пока я не полистал
наверх и не увидел при каких условиях
он был получен. А четвёртый - не удивил?.. %)))
...
Рейтинг: 0 / 0
16.10.2008, 23:21:58
| Ответить | Цитировать | Написать  
Округление RoundTo. Непонятно :)
    #35599565
Гаджимурадов Рустам
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гаджимурадов Рустам
Участник
Нет.

Я после второго весь код прочитал. :)


Posted via ActualForum NNTP Server 1.4
...
Рейтинг: 0 / 0
16.10.2008, 23:32:42
| Ответить | Цитировать | Написать  
Округление RoundTo. Непонятно :)
    #35599654
Фотография zirra
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
zirra
Участник
Гаджимурадов РустамЯ после второго весь код прочитал. :) Издеваиссе?.. Какой в гузку - КОД?..
...
Рейтинг: 0 / 0
17.10.2008, 00:28:07
| Ответить | Цитировать | Написать  
Округление RoundTo. Непонятно :)
    #35599665
Фотография NextMan
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
NextMan
Участник
Что-то Анатолий рано спать лег.
Точное представление десятичных дробей в двоичной форме - его любимая тема.
...
Рейтинг: 0 / 0
17.10.2008, 00:36:14
| Ответить | Цитировать | Написать  
Округление RoundTo. Непонятно :)
    #35599668
Фотография zirra
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
zirra
Участник
NextManЧто-то Анатолий рано спать лег.
Точное представление десятичных дробей в двоичной форме - его любимая тема. Вообще-то, да...
Кстати, надысь была ж тема на эту тему... %)
...
Рейтинг: 0 / 0
17.10.2008, 00:38:35
| Ответить | Цитировать | Написать  
Округление RoundTo. Непонятно :)
    #35599703
Фотография Anatoly Podgoretsky
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Anatoly Podgoretsky
Участник
Я не сплю, я со стороны смотрю. Я все сказал, можно было бы еще и на
Королевство послать и послал бы, но тут вопрос за пределами тех статей, тут
не понимание, как работает компилятор. Почему A := 0.2 и константа 0,2 это
разные числа, я уже сказал, но что делать если нет понимания с той стороны.

--
http://www.podgoretsky.com

Что-то Анатолий рано спать лег.
Точное представление десятичных дробей в двоичной форме - его любимая тема.

Posted via ActualForum NNTP Server 1.4
...
Рейтинг: 0 / 0
17.10.2008, 01:07:45
| Ответить | Цитировать | Написать  
Округление 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
| Ответить | Цитировать | Написать  
Округление RoundTo. Непонятно :)
    #39542737
zinpub
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
zinpub
Гость
Федор_Федор,

Вспомнил
http://delphikingdom.com/asp/viewitem.asp?catalogid=1217
...
Рейтинг: 0 / 0
26.10.2017, 17:35:30
| Ответить | Цитировать | Написать  
Округление RoundTo. Непонятно :)
    #39542740
zinpub
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
zinpub
Гость
до кучи
http://delphikingdom.com/asp/viewitem.asp?catalogid=1218
...
Рейтинг: 0 / 0
26.10.2017, 17:37:14
| Ответить | Цитировать | Написать  
Округление RoundTo. Непонятно :)
    #39542750
Фотография JayDi
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
JayDi
Участник
Не знал, что всё настолько плохо в стандартных функциях О_о

Результаты получены на Delphi 7 при режиме округления по умолчанию (rmNearest). Результаты тестирования при других режимах приведены в приложении, но безошибочного поведения согласно какого-либо алгоритма достигнуть так и не удалось.

Вообще, результат RoundTo лишь в 50% случаев округления пятерки совпадает с правилом банковского округления. Статистическая погрешность подавляется отвратительно — набегает 13 руб. 45 коп разницы на миллионе записей. Еще меньше похожа ее подружка SimpleRoundTo на обещанное арифметическое округление — менее 40% совпадений, все ошибки в одну сторону (см. результаты тестов в приложении).
...
Рейтинг: 0 / 0
26.10.2017, 17:50:21
| Ответить | Цитировать | Написать  
Округление RoundTo. Непонятно :)
    #39542894
zinpub
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
zinpub
Гость
JaDi,


да, пичалька...
Но, надо сказать, я проверял в 2015 году на В7Дшеу(вот не помню версию), было на порядок лучше, но странные места встречались(процентов 10, на 100млн умножений)
...
Рейтинг: 0 / 0
26.10.2017, 22:53:42
| Ответить | Цитировать | Написать  
Округление RoundTo. Непонятно :)
    #39542896
zinpub
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
zinpub
Гость
D7Lite
...
Рейтинг: 0 / 0
26.10.2017, 22:55:54
| Ответить | Цитировать | Написать  
55 сообщений из 55, показаны все 3 страниц
  все  
Форумы / Delphi [игнор отключен] [закрыт для гостей] / Округление RoundTo. Непонятно :)
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение   Полит. конфиден.  
NoSQL.ru       Кролег: Проекты, Новости, Чат       РЕД ФОРУМ       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?all=1&fid=58&tid=2041678]:
 0ms
get settings:
 8ms
get forum list:
 16ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 183ms
get topic data:
 8ms
get forum data:
 2ms
get page messages:
 52ms
get tp. blocked users:
 1ms
others: 217ms
total:  493ms
созд. / загр.: 493ms
x
x
Закрыть


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