Округление чисел до определенной степени

ВНИМАНИЕ! Конкурс по программированию!

Проект Programmers.kz и школа hotPen3D2D предлагает Вам курсы по веб-дизайну, веб-программированию и компьютерной графике. Подробности здесь.

Информация к новости

Просмотров: 824
Автор: AlexanderMS

(голосов: 0)

Категория: Программирование » Delphi » Статьи и исходники » Синтаксис » Математика

Оформил: DeeCo
Автор: http://www.swissdelphicenter.ch

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;

Источник: delphiworld.narod.ru

Вернуться Комментариев: 0

Уважаемый посетитель, Вы зашли на сайт как незарегистрированный пользователь.
Мы рекомендуем Вам зарегистрироваться либо войти на сайт под своим именем.

Комментарии (0)

Округление чисел до определенной степени

Наш сайт рекомендует:

Добавление комментария