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