Округление

← →
Шнур (2004-04-29 17:39) [0]

Уважаемые мастера! Подскажите каким образом можно округлять числа только в большую сторону, например с 320 до 400

← →
Sandman25+1 (2004-04-29 17:41) [1]

Добавить 50, и потом округлить к ближайшему.

← →
han_malign © (2004-04-29 17:44) [2]

function AdjustSize(Val,BlockSize: Integer): Integer; var ll: Integer; begin Result:=Val; ll:=Val mod BlockSize; if(ll>0)then inc(Result,BlockSize-ll); end;{AdjustSize}

← →
han_malign © (2004-04-29 17:46) [3]

function Ceil(const X: Extended):Integer;
Call Ceil to obtain the lowest integer greater than or equal to X. The absolute value of X must be less than MaxInt. For example:
Ceil(-2.8) = -2
Ceil(2.8) = 3
Ceil(-1.0) = -1

посмотри в хэлпе модуль Math и функции RoundTo и SetRoundMode. Может поможет...

← →
Expre$$ (2004-04-30 10:45) [5]

Trunc ()

Округление Найти похожие ветки