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

 Previous  Top  Next

    
 

 

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

 

Code:

Uses Math; 

{©Drkb v.3(2007): www.drkb.ru,

®Vit (Vitaly Nevzorov) - nevzorov@yahoo.com}

 

Function RoundMax(Num:real; prec:integer):real;

begin

result:=roundto(num+Power(10, prec-1)*5, prec);

end;

 

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

 

Code:

Function RoundMax100(Num:real):real;

{©Drkb v.3(2007): www.drkb.ru,

®Vit (Vitaly Nevzorov) - nevzorov@yahoo.com}

 

begin

result:=round(num*100+0.5)/100;

end;

       

 

 

©Drkb::00205

Автор: Vit (www.delphist.com, www.drkb.ru, www.unihighlighter.com, www.nevzorov.org)

Взято с Vingrad.ru http://forum.vingrad.ru