Как научить Delphi делать правильное округление дробных чисел

Delphi , Синтаксис , Математика

function RoundStr(Zn: Real; kol_zn: Integer): Real;
var
  snl, s, s0, s1, s2: string;
  n, n1: Real;
  nn, i: Integer;
begin
  s := FloatToStr(Zn);
  if (Pos(',', s) > 0) and (Zn > 0) and
  (Length(Copy(s, Pos(',', s) + 1, length(s))) > kol_zn) then
  begin
    s0 := Copy(s, 1, Pos(',', s) + kol_zn - 1);
    s1 := Copy(s, 1, Pos(',', s) + kol_zn + 2);
    s2 := Copy(s1, Pos(',', s1) + kol_zn, Length(s1));
    n := StrToInt(s2) / 100;
    nn := Round(n);
    if nn >= 10 then
    begin
      snl := '0,';
      for i := 1 to kol_zn - 1 do
        snl := snl + '0';
      snl := snl + '1';
      n1 := StrToFloat(Copy(s, 1, Pos(',', s) + kol_zn)) + StrToFloat(snl);
      s := FloatToStr(n1);
      if Pos(',', s) > 0 then
        s1 := Copy(s, 1, Pos(',', s) + kol_zn);
    end
    else
      s1 := s0 + IntToStr(nn);
    if s1[Length(s1)] = ',' then
      s1 := s1 + '0';
    Result := StrToFloat(s1);
  end
  else
    Result := Zn;
end;

или

function RoundEx(X: Double; Precision: Integer ): Double;
{
Precision :
1 - до целых
10 - до десятых
100 - до сотых
...
}
var
  ScaledFractPart, Temp: Double;
begin
  ScaledFractPart := Frac(X) * Precision;
  Temp := Frac(ScaledFractPart);
  ScaledFractPart := Int(ScaledFractPart);
  if Temp >= 0.5 then
    ScaledFractPart := ScaledFractPart + 1;
  if Temp <= -0.5 then
    ScaledFractPart := ScaledFractPart - 1;
  RoundEx := Int(X) + ScaledFractPart / Precision;
end;

Еще более короткий способ:

Округление дробных чисел с точностью i - количество знаков после запятой, S - дробное число в строковом виде.

function FormatData(s: String; i: Integer): String;
begin
  Result:=FloatToStr(Round(StrToFloat(s)*exp(i*ln(10)))/(exp(i*ln(10))));
end;

Бессконечная поиска точного округления десятичных дробей!

Давайте проанализируем предоставленные функции Delphi и обсудим их преимущества и недостатки.

Функция RoundStr Эта функция пытается округлить вещественное число Zn с указанной точностью kol_zn. Она работает, конвертируя float в строку, парсинг ее и затем корректируя десятичную часть соответственно. Подход несколько сложен и может не работать правильно для всех случаев, особенно при работе с очень большими или очень маленькими числами.

Преимущества: Работает для простых случаев использования. Недостатки: Может не работать правильно для краевых случаев, медленная производительность из-за конвертации строк.

Функция RoundEx Эта функция принимает дубль X и целое число Precision в качестве входных параметров. Она вычисляет дробную часть числа, масштабирует ее по точности и затем округляет ее с помощью простых арифметических операций. Подход более прямолинейный и эффективен, чем предыдущий.

Преимущества: Более точна для большинства случаев использования, быстрее производительность. Недостатки: Ограничена фиксированным набором точностей (например, 1, 10, 100).

Функция FormatData Эта функция использует функцию Format для достижения округления с указанной точностью. Это элегантное и компактное решение.

Преимущества: Простое, эффективное и точное. Недостатки: Работает только для десятичных чисел, не поддерживает другие системы счисления (например, шестнадцатеричные).

В заключение, если вам нужно точное округление десятичных дробей в Delphi, я бы рекомендовал использовать функцию FormatData. Если вам нужно больше контроля над процессом округления или обработку не десятичных чисел, рассмотрите использование функции RoundEx.

Обратите внимание, что арифметика с плавающей запятой может быть склонна к ошибкам из-за ограничений точности и проблем округления. Всегда тестировайте свой код тщательно, чтобы обеспечить точность в вашем конкретном случае использования.

В статье описывается несколько способов округления дробных чисел в языке программирования Delphi, включая функции RoundStr и RoundEx, а также более короткий способ использования функции FormatData.

Комментарии и вопросы

Получайте свежие новости и обновления по Object Pascal, Delphi и Lazarus прямо в свой смартфон. Подпишитесь на наш Telegram-канал delphi_kansoftware и будьте в курсе последних тенденций в разработке под Linux, Windows, Android и iOS

:: Главная :: Математика ::