Округление реальных типов
Округление реальных типов
|
Компьютер позволяет решать все те проблемы,
которые до изобретения компьютера не существовали
|
Если вам необходимо округлить число, то наиболее общее решение выглядит следующим образом:
function RoundFloat(R: Extended; Decimals: Integer): Extended;
var
Factor: Extended;
begin
Factor := Int(Exp(Decimals * Ln(10)));
Result := Round(Factor * R) / Factor;
end;
|
Статья Округление реальных типов раздела Синтаксис Типы и Переменные может быть полезна для разработчиков на Delphi и FreePascal.
Комментарии и вопросы
:: Главная :: Типы и Переменные ::
|
