Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Основная";
Текущий архив: 2005.01.30;
Скачать: [xml.tar.bz2];

Вниз

Плюсовая округлялка   Найти похожие ветки 

 
WhiteGuy ©   (2005-01-13 13:38) [0]

Здорово, ребята!!
Как округлить число в плюсовую сторону?
Т.е. 1,1 = 2, 3,0001=4
Подскажите!


 
TUser ©   (2005-01-13 13:43) [1]

SetRoundingMode(rmUp);
result:=round(i);


 
wicked ©   (2005-01-13 13:44) [2]

навскидку - добавлять 0,4999(9) и округлять, как обычно...
могу быть и не прав...


 
WhiteGuy ©   (2005-01-13 13:44) [3]

2ТЮзверь
Спасиб, мэн!


 
MBo ©   (2005-01-13 13:44) [4]

Надо полагать, хоть какая-то "округлялка" тебе известна.
Зайди в хелп по ней, перейди в раздел Category arithmetic routines, и покопайся там


 
MacroDenS ©   (2005-01-13 13:48) [5]

Берешь то что некруглое, и обрабатываешь напильником до степени круглости, если нужно с плюсовым эффектом - тогда сначала нарашиваешь предмет до состояния +, а потом напильником....


 
Stefan   (2005-01-13 13:52) [6]

Result := inc(int(i));


 
WhiteGuy ©   (2005-01-13 13:57) [7]

2MacroDenS
Базаришь вещи, чувак! :)


 
MacroDenS ©   (2005-01-13 13:58) [8]

[7]
ёу чувак


 
TUser ©   (2005-01-13 14:16) [9]


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

Result(3) = 4


 
Anatoly Podgoretsky ©   (2005-01-13 14:51) [10]

Ceil


 
WhiteGuy ©   (2005-01-14 12:22) [11]

2 TUser [1]
А функции SetRoundingMode нету!


 
begin...end ©   (2005-01-14 12:27) [12]

> [11] WhiteGuy ©   (14.01.05 12:22)

SetRoundMode


 
WhiteGuy ©   (2005-01-14 12:29) [13]

2 begin...end
SetRoundMode(rmUp)???
Щас просто под рукой Делфи нету!


 
begin...end ©   (2005-01-14 12:30) [14]

> [13] WhiteGuy ©   (14.01.05 12:29)

Да.


 
TUser ©   (2005-01-14 12:30) [15]


> А функции SetRoundingMode нету!

Ой, звиняй. F1 лениво жать было :)


 
WhiteGuy ©   (2005-01-14 12:54) [16]

Всё равно, извините за ламерство :-), компилятор пишет, что чёто там не продекларировано... 8D


 
begin...end ©   (2005-01-14 12:55) [17]

> [16] WhiteGuy ©   (14.01.05 12:54)

uses Math


 
WhiteGuy ©   (2005-01-14 12:58) [18]

2 begin...end  [17]
Oki, попробуем!



Страницы: 1 вся ветка

Форум: "Основная";
Текущий архив: 2005.01.30;
Скачать: [xml.tar.bz2];

Наверх





Память: 0.48 MB
Время: 0.036 c
1-1105966695
Mate_ru
2005-01-17 15:58
2005.01.30
Перенос слов


3-1103977626
Varfolomey
2004-12-25 15:27
2005.01.30
InterBase 6.0: BLOB


1-1105646604
Bobby Digital
2005-01-13 23:03
2005.01.30
Help file


1-1105814428
kai
2005-01-15 21:40
2005.01.30
Преобразование форматной строки SQL-запроса


1-1105708010
про
2005-01-14 16:06
2005.01.30
Kak svernut programku pri pervom ejo zapuske???





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский