Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Плюсовая округлялка [D7, WinXP]

WhiteGuy © (2005-01-13 13:38:00)
Здорово, ребята!!
Как округлить число в плюсовую сторону?
Т.е. 1,1 = 2, 3,0001=4
Подскажите!

WhiteGuy (2005-01-14 12:58:00) [1]
2 begin...end [17]
Oki, попробуем!

begin...end (2005-01-14 12:55:00) [2]
> [16] WhiteGuy © (14.01.05 12:54)

uses Math

WhiteGuy (2005-01-14 12:54:00) [3]
Всё равно, извините за ламерство :-), компилятор пишет, что чёто там не продекларировано... 8D

TUser (2005-01-14 12:30:00) [4]

> А функции SetRoundingMode нету!
Ой, звиняй. F1 лениво жать было :)

begin...end (2005-01-14 12:30:00) [5]
> [13] WhiteGuy © (14.01.05 12:29)

Да.

WhiteGuy (2005-01-14 12:29:00) [6]
2 begin...end
SetRoundMode(rmUp)???
Щас просто под рукой Делфи нету!

begin...end (2005-01-14 12:27:00) [7]
> [11] WhiteGuy © (14.01.05 12:22)

SetRoundMode

WhiteGuy (2005-01-14 12:22:00) [8]
2 TUser [1]
А функции SetRoundingMode нету!

Anatoly Podgoretsky (2005-01-13 14:51:00) [9]
Ceil

TUser (2005-01-13 14:16:00) [10]

> Result := inc(int(i));

Result(3) = 4

MacroDenS (2005-01-13 13:58:00) [11]
[7]
ёу чувак

WhiteGuy (2005-01-13 13:57:00) [12]
2MacroDenS
Базаришь вещи, чувак! :)

Stefan (2005-01-13 13:52:00) [13]
Result := inc(int(i));

MacroDenS (2005-01-13 13:48:00) [14]
Берешь то что некруглое, и обрабатываешь напильником до степени круглости, если нужно с плюсовым эффектом - тогда сначала нарашиваешь предмет до состояния +, а потом напильником....

MBo (2005-01-13 13:44:00) [15]
Надо полагать, хоть какая-то "округлялка" тебе известна.
Зайди в хелп по ней, перейди в раздел Category arithmetic routines, и покопайся там

WhiteGuy (2005-01-13 13:44:00) [16]
2ТЮзверь
Спасиб, мэн!

wicked (2005-01-13 13:44:00) [17]
навскидку - добавлять 0,4999(9) и округлять, как обычно...
могу быть и не прав...

TUser (2005-01-13 13:43:00) [18]
SetRoundingMode(rmUp);
result:=round(i);

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »