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

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

Избранное

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


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

Вопрос №

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

Помощь

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


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

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

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

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

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

 
   
С Л С

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

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

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

Квинтана

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

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

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

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

 
  
АРХИВЫ

 
 

Сейчас на сайте присутствуют:
 
  
 
Во Флориде и в Королевстве сейчас  07:44[Войти] | [Зарегистрироваться]
Ответ на вопрос № 40789

15-03-2006 09:24
Здравствуйте, уважаемые!

Продолжнение темы округления вещественных чисел (начало здесь http://www.delphikingdom.com/asp/answer.asp?IDAnswer=36234 ). Есть код округления вещественного числа:

procedure TfrmMain.Button1Click(Sender: TObject);

  function MyRoundTo1(const AValue: Double; const ADigit: TRoundToRange = -2): Double;
  var
    D, V: Double;
    i: Integer;
  begin
    D := IntPower(10, -1 * (ADigit - 1));
    V := AValue * D;
    i := Trunc(V);
    V := AValue;
    if (i mod 10) = 5 then V := V + 1 / D;
    Result := RoundTo(V, ADigit);
  end;

  function MyRoundTo2(const AValue: Double; const ADigit: TRoundToRange = -2): Double;
  var
    D, V: Double;
    i: Integer;
  begin
    D := IntPower(10, -1 * (ADigit - 1));
    i := Trunc(AValue * D);
    V := AValue;
    if (i mod 10) = 5 then V := V + 1 / D;
    Result := RoundTo(V, ADigit);
  end;

begin
  ShowMessageFmt('MyRoundTo1:'#10'%g'#10'%g'#10#10'MyRoundTo2:'#10'%g'#10'%g',
    [MyRoundTo1(24.2349999), MyRoundTo1(24.235), // ответ 24.23 и 24.24
    MyRoundTo2(24.2349999), MyRoundTo2(24.235)]); // ответ 24.23 и 24.23
end;



Вопрос следующий - почему в принципе одинаковый код дает разный результат?

PS Отличие в том, что в MyRoundTo1 используется промежуточная переменная V := AValue * D, а в MyRoundTo2 выражение прямо в параметре функции Trunc

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

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

Ответы:


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

16-03-2006 09:19 | Сообщение от автора вопроса
А поделиться самописными? Очень нужно - и не только мне... Если появится статья и не трудно, сообщи мне, пажалуйста. Почитаю - "больная" тема

16-03-2006 09:05
Да мне все равно что "бухгалтерское", что "арифметическое" - главное чтоб считало также как в Excel'е...

Тогда речь идет об арифметическом округлении. Рассказывать зачем нужно бухгалтерское нужно на примере, у меня есть материал, в ближайшее время хочу подготовить статью. И заодно хочу потестировать функции округления, как встроенные, так и самописные.

16-03-2006 08:54 | Сообщение от автора вопроса
Да мне все равно что "бухгалтерское", что "арифметическое" - главное чтоб считало также как в Excel'е... К стати, с Extended не работает верно, например MyRoundTo2(24.255) рузультат будет 24.25, а нужно 24.26...
Вот еще вариант округления:

function MyRoundTo(const AValue: Double; const ADigit: TRoundToRange = -2): Double;
var
  RM: TFPURoundingMode;
  PM: TFPUPrecisionMode;
  D: Double;
begin
  RM := GetRoundMode;
  PM := GetPrecisionMode;
  try
    SetPrecisionMode(pmDouble);
    D := IntPower(10, -1 * (ADigit - 1));
    D := D * AValue;
    if Trunc(D) mod 10 = 5
      then SetRoundMode(rmUp)
      else SetRoundMode(rmNearest);
    Result := RoundTo(AVAlue, ADigit);
  finally
    SetRoundMode(RM);
    SetPrecisionMode(PM);
  end;
end;



"Играемся" с RoundMode

15-03-2006 12:45
Но это же у тебя арифметическое округление получилось, а не бухгалтерское - что 0.025, что 0.035 вверх округляет. Таким деньги не всегда считать можно.

15-03-2006 09:53 | Сообщение от автора вопроса
Спасибо, Антон. Это у я никак с округлением не доразберусь... Поменял все на Extended - работает как нужно... Сбило с толку то, что в Math все RoundTo работают с Double

15-03-2006 09:39
Всё дело в том, что у функции Trunc параметр имеет тип Extended. При вычислении её аргумента значения AValue и D сначала расширяются до Extended, а потом перемножаются (так работает процессор), и результат без искажений передаётся в Trunc. А ваша переменная имеет тип Double, и когда получившееся в результате вычисления произведения значение записывается в неё, самые младшие разряды отбрасываются. Потом-то, конечно, это значение при передаче его в Trunc снова расширяется до Extended, но младшие разряды уже содержат нули, а не то, что там было. Это даёт погрешность порядка 2^(-54). Вам просто повезло - в наткнулись на случай, когда такая маленькая погрешность влияет на исход дела.

P.S. Честно говоря, я так и не понял, зачем вообще нужны Single и Double там, где нет нужды экономить память. С Extended работать гораздо приятнее.

Добавьте свое 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» необходимо указывать источник информации. Перепечатка авторских статей возможна только при согласии всех авторов и администрации сайта.
    Все используемые на сайте торговые марки являются собственностью их производителей.

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