Round(Value: Double; Precision: Integer): Double;
Value. Округляемое вещественное число;
Precision. Количество дробных разрядов, до которого требуется округлить число.
Метод Round возвращает результат округления числа до указанного количества десятичных разрядов.
Значения входных параметров не могут быть пустыми.
Если количество дробных разрядов больше 0, то число округляется до указанного количества десятичных разрядов справа от десятичной запятой.
Если количество дробных разрядов равно 0, то число округляется до ближайшего целого.
Если количество дробных разрядов меньше 0, то число округляется слева от десятичной запятой.
Для выполнения примера добавьте ссылку на системную сборку MathFin.
Sub UserProc;
Var
r1, r2, r3, r4: Double;
Begin
r1 := Math.Round(2.15,1);
Debug.WriteLine(r1);
r2 := Math.Round(-50.55,-2);
Debug.WriteLine(r2);
r3 := Math.Round(21.5,-1);
Debug.WriteLine(r3);
r4 := Math.Round(-1.475,2);
Debug.WriteLine(r4);
End Sub UserProc;
В результате выполнения примера в окно консоли будут выведены результаты округления:
Число и количество разрядов положительны: «2.2»;
Число и количество разрядов отрицательны: «-100»;
Число положительно, а количество разрядов отрицательно: «20»;
Число отрицательно, а количество разрядов положительно: «-1.48».
См. также: