Как округлять до сотых в большую сторону?
Как округлять до сотых в большую сторону?
Прибавляешь 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;
Автор ответа: Vit
Взято с Vingrad.ru
