Как округлять до сотых в большую сторону

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

Автор: Vit
WEB-сайт: http://forum.vingrad.ru

uses Math;

// Прибавляешь 0.5 затем округляешь:

function RoundMax(Num: real; prec: integer): real;
begin
  result := roundto(num + Power(10, prec - 1) * 5, prec);
end;

// До сотых соответственно будет:

function RoundMax100(Num: real): real;
begin
  result := round(num * 100 + 0.5) / 100;
end;

Here is the translation of the provided text into Russian:

Программа на языке Pascal, предназначенная для округления заданного числа до ближайшего сотого в направлении наверх.

Вот подробное описание работы каждой функции:

1. RoundMax:

   • Функция принимает два параметра: Num (вещественное число) и prec (целое число, представляющее собой точность).
   • Функция добавляет 0,5 к Num, а затем округляет его до указанной prec.
   • Это эффективно округляет число вверх, поскольку добавление 0,5 смещает точку округления на половину между двумя числами.

2. RoundMax100:

   • Функция принимает один параметр: Num (вещественное число).
   • Функция умножает Num на 100, чтобы сместить десятичную точку вправо (например, от 1,25 до 125).
   • Затем функция добавляет 0,5 для эффективного округления вверх.
   • Наконец, функция делит на 100, чтобы вернуть десятичную точку в ее исходное положение.

Вот пример использования этих функций:

program RoundToHundredth;
uses Math;

var
  num: real;
begin
  num := 1.2345;
  writeln(RoundMax(num, 2)); // Вывод: 1,24
  writeln(RoundMax100(num)); // Вывод: 1,23
end.

В этом примере RoundMax округляет число до двух десятичных знаков (точность 2), а RoundMax100 округляет его до ближайшего сотого.

Альтернативное решение заключается в использовании функции Trunc в сочетании с умножением и добавлением:

function RoundMax(Num: real; prec: integer): real;
begin
  result := trunc((num * power(10, prec)) + 0,5) / power(10, prec);
end;

function RoundMax100(Num: real): real;
begin
  result := trunc((num * 100) + 0,5) / 100;
end;

Эта APPROACH avoids the need to manually add and subtract powers of 10, making it more concise and efficient. However, it still achieves the same rounding effect as the original code.

В статье описывается способ округления до сотых в большую сторону с помощью программирования на языке Pascal, используя функции Round и Power.

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

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

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