Округление чисел до определенной степениDelphi , Синтаксис , МатематикаОкругление чисел до определенной степени
Оформил: DeeCo function Rounder(var Value: Double; Decimals: Integer): Double; var j: Integer; A: Double; begin A := 1; case Decimals of 0: A := 1; 1: A := 10; else for j := 1 to Decimals do A := A * 10; end; Result := Int((Value * A) + 0.5) / A; end; procedure TForm1.Button1Click(Sender: TObject); var Value: Double; begin Value := 23.56784; //Result is 23.57 label1.Caption := FloatToStr(Rounder(Value, 2)); end; Статья Округление чисел до определенной степени раздела Синтаксис Математика может быть полезна для разработчиков на Delphi и FreePascal. Комментарии и вопросыМатериалы статей собраны из открытых источников, владелец сайта не претендует на авторство. Там где авторство установить не удалось, материал подаётся без имени автора. В случае если Вы считаете, что Ваши права нарушены, пожалуйста, свяжитесь с владельцем сайта. :: Главная :: Математика ::
|
||||
©KANSoftWare (разработка программного обеспечения, создание программ, создание интерактивных сайтов), 2007 |