Rambler's Top100
"Knowledge itself is power"
F.Bacon
Поиск | Карта сайта | Помощь | О проекте | ТТХ  
 Круглый стол
  
Правила КС
>> Настройки

Фильтр вопросов
>> Новые вопросы
отслеживать по
>> Новые ответы

Избранное

Страница вопросов
Поиск по КС


Специальные проекты:
>> К л ю к в а
>> Г о л о в о л о м к и

Вопрос №

Задать вопрос
Off-topic вопросы

Помощь

 
 К н и г и
 
Книжная полка
 
 
Библиотека
 
  
  
 


Поиск
 
Поиск по КС
Поиск в статьях
Яndex© + Google©
Поиск книг

 
  
Тематический каталог
Все манускрипты

 
  
Карта VCL
ОШИБКИ
Сообщения системы

 
Форумы
 
Круглый стол
Новые вопросы

 
  
Базарная площадь
Городская площадь

 
   
С Л С

 
Летопись
 
Королевские Хроники
Рыцарский Зал
Глас народа!

 
  
ТТХ
Конкурсы
Королевская клюква

 
Разделы
 
Hello, World!
Лицей

Квинтана

 
  
Сокровищница
Подземелье Магов
Подводные камни
Свитки

 
  
Школа ОБЕРОНА

 
  
Арсенальная башня
Фолианты
Полигон

 
  
Книга Песка
Дальние земли

 
  
АРХИВЫ

 
 

Сейчас на сайте присутствуют:
 
 
 14:20 Den Sarych
 
 
Во Флориде и в Королевстве сейчас  14:28[Войти] | [Зарегистрироваться]
Ответ на вопрос № 39942

13-02-2006 01:12
В статье "7 чудес Delphi" узнал об одном чуде: Функции ROUND, 0,5 она будто округляет до 0 а 1,5 до 2. А как заставить "нормально"???

[+] Добавить в избранные вопросы

Отслеживать ответы на этот вопрос по RSS

Ответы:


Уважаемые авторы вопросов! Большая просьба сообщить о результатах решения проблемы на этой странице.
Иначе, следящие за обсуждением, возможно имеющие аналогичные проблемы, не получают ясного представления об их решении. А авторы ответов не получают обратной связи. Что можно расценивать, как проявление неуважения к отвечающим от автора вопроса.

14-02-2006 07:55 | Комментарий к предыдущим ответам
По правилам округления, 5 округляется до четного числа.

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

Даже Borland называет округление до четного числа "Banker’s Rounding", а округление в большую сторону - "Simple".

13-02-2006 18:49
Это и есть НОРМАЛЬНО! По правилам округления, 5 округляется до четного числа

13-02-2006 05:25 | Комментарий к предыдущим ответам
Мужики, ну вы меня удивляете!

При чем тут вещественные числа, FPU, SetRoundMode, Set8087CW и прочая дребедень? Round всегда округлит 0.5 до 0, независимо от режима округления. Никаких чудес здесь нет, в хелпе четко сказано, что "Round returns ... always the even number. This method of rounding is often called "Banker’s Rounding".

А если вы не в банке работаете, то пользуйтесь функцией SimpleRoundTo или свою напишите, например, как Noskov.

13-02-2006 02:47

function MyRound(X: Extended): Int64;
begin
  Result:=Trunc(X+0.5);
end;


13-02-2006 02:21
смотреть в сторону процедуры Set8087CW

13-02-2006 02:08 | Комментарий к предыдущим ответам
В Math есть настройка FPU:

{-----------------------------------------------------------------------
FPU exception/precision/rounding management

The following functions allow you to control the behavior of the FPU.  With
them you can control what constutes an FPU exception, what the default
precision is used and finally how rounding is handled by the FPU.

-----------------------------------------------------------------------}


type
  TFPURoundingMode = (rmNearest, rmDown, rmUp, rmTruncate);

{ Return the current rounding mode }
function GetRoundMode: TFPURoundingMode;

{ Set the rounding mode and return the old mode }
function SetRoundMode(const RoundMode: TFPURoundingMode): TFPURoundingMode;

type
  TFPUPrecisionMode = (pmSingle, pmReserved, pmDouble, pmExtended);

{ Return the current precision control mode }
function GetPrecisionMode: TFPUPrecisionMode;

{ Set the precision control mode and return the old one }
function SetPrecisionMode(const Precision: TFPUPrecisionMode): TFPUPrecisionMode;


13-02-2006 02:03
Посмотрите статью Антона Григорьева "Неочевидные особенности вещественных чисел"

Там этого нет, там идёт речь совсем о других вещах. Режимы округления определяются флагами FPU, а вот какими именно - сказать не могу.

13-02-2006 01:26
Посмотрите статью Антона Григорьева "Неочевидные особенности вещественных чисел"
http://www.delphikingdom.com/asp/viewitem.asp?catalogid=374

Добавьте свое cообщение

Вашe имя:  [Войти]
Ваш адрес (e-mail):На Королевстве все адреса защищаются от спам-роботов
контрольный вопрос:
Два кольца, два конца, посередине гвоздик.
в качестве ответа на вопрос или загадку следует давать только одно слово в именительном падеже и именно в такой форме, как оно используется в оригинале.
Надоело отвечать на странные вопросы? Зарегистрируйтесь на сайте.
Тип сообщения:
Текст:
Жирный шрифт  Наклонный шрифт  Подчеркнутый шрифт  Выравнивание по центру  Список  Заголовок  Разделительная линия  Код  Маленький шрифт  Крупный шрифт  Цитирование блока текста  Строчное цитирование
  • вопрос Круглого стола № XXX

  • вопрос № YYY в тесте № XXX Рыцарской Квинтаны

  • сообщение № YYY в теме № XXX Базарной площади
  • обсуждение темы № YYY Базарной площади
  •  
     Правила оформления сообщений на Королевстве

    Страница избранных вопросов Круглого стола.
      
    Время на сайте: GMT минус 5 часов

    Если вы заметили орфографическую ошибку на этой странице, просто выделите ошибку мышью и нажмите Ctrl+Enter.
    Функция может не работать в некоторых версиях броузеров.

    Web hosting for this web site provided by DotNetPark (ASP.NET, SharePoint, MS SQL hosting)  
    Software for IIS, Hyper-V, MS SQL. Tools for Windows server administrators. Server migration utilities  

     
    © При использовании любых материалов «Королевства Delphi» необходимо указывать источник информации. Перепечатка авторских статей возможна только при согласии всех авторов и администрации сайта.
    Все используемые на сайте торговые марки являются собственностью их производителей.

    Яндекс цитирования