Как округлять до сотых в большую сторону?

Материал из DRKB

Как округлять до сотых в большую сторону?[править | править код]

Прибавляешь 0.5 затем отбрасываешь дробную часть:

uses Math;  

function RoundMax(num: Real; prec: Integer): Real; 
begin 
  Result := RoundTo(num + Power(10, prec-1) * 5, prec); 
end;


До сотых соответственно будет:

function RoundMax100(num: Real): Real; 
begin 
  Result := Round(num * 100 + 0.5) / 100; 
end;


Author: Vit (www.delphist.com, www.drkb.ru, www.unihighlighter.com, www.nevzorov.org)
Source: Взято с Vingrad.ru http://forum.vingrad.ru
ID: 00205