Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Delphi: Для новичков > Округление

Автор: Dmitry1987 18.6.2008, 09:17

Как при дробной части равной 0.5 округлить число в большую сторону? Т.е. 13 / 2 = 6.5 должно округлиться до 7.

Автор: morpheyushka 18.6.2008, 09:52

Код


round(x)

Formatted Output
round(2.6) = 3 round (2.4) = 2 round(2.5) = 3 round(-1.6) = -2 round(-1.5) = -1

вроде так, если я правильно понял)) smile

Автор: Max_Rendel 18.6.2008, 09:53

http://forum.vingrad.ru/forum/topic-116318/unread-1.html

Код


uses math
...
var
  i: Integer;
begin
  SetRoundMode(rmUp);
  i := Round(13 / 2);

  ShowMessage( IntToStr(i) ); // i = 7
end;

morpheyushka, спасибо за замечание. smile

Автор: morpheyushka 18.6.2008, 09:56

2 Max_Rendel, end забыл написать вместо последнего begin smile

Автор: TForumUser 18.6.2008, 15:43

Если надо округлять не по правилам округления, а всегда в большую сторону, можно использовать функцию Ceil
Ceil(-2.8) = -2
Ceil(2.2) = 3
Ceil(2.8) = 3
Ceil(-1.0) = -1