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

Вниз

Округление чисел в Дельфи   Найти похожие ветки 

 
Aleks   (2011-03-16 23:15) [0]

Здравствуйте мастера! Подскажите пожалуйста как сделать округление любого числа в большую сторону к числу кратному 5. Например:
1) начальное:7,результат:10
2) начальное:4,5,результат:5
3) начальное:12,3,результат:15
Я так понимаю нужно написать для этого функцию,так-как Дельфи так делать не умеет,но как это сделать не знаю :( Благодарен за любой совет!


 
Германн ©   (2011-03-16 23:45) [1]

Конечное:=(Начальное div 5)+5;


 
Германн ©   (2011-03-16 23:51) [2]

Точнее так
Конечное:=(Trunc(Начальное) div 5)+5;


 
Германн ©   (2011-03-16 23:52) [3]

Еще точнее так
Конечное:=(Trunc(Начальное) div 5)*5+5;
:)


 
KilkennyCat ©   (2011-03-16 23:52) [4]

5.1 что вернет?


 
KilkennyCat ©   (2011-03-16 23:53) [5]

а, умножение не заметил... :)


 
Aleks   (2011-03-17 00:14) [6]

Спасибо большое!


 
Германн ©   (2011-03-17 02:45) [7]


> KilkennyCat ©   (16.03.11 23:53) [5]
>
> а, умножение не заметил... :)
>

Ты не заметил только умножение? :)
А вот я для себя решил "внутренне" запретить выход на форумы "сразу".
Три поста для реализации простого вопроса - это перебор!


 
KilkennyCat ©   (2011-03-17 03:13) [8]


> Германн ©   (17.03.11 02:45) [7]

ну, проверку на уже кратные


 
Германн ©   (2011-03-17 03:22) [9]


> KilkennyCat ©   (17.03.11 03:13) [8]
>
>
> > Германн ©   (17.03.11 02:45) [7]
>
> ну, проверку на уже кратные
>

А вот это уже к автору!
В его условии ничего не сказано как нужно округлять целые числа кратные 5.



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

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

Наверх





Память: 0.46 MB
Время: 0.004 c
15-1299222665
И. Павел
2011-03-04 10:11
2011.06.26
Во всех ли крупных организациях так!?


15-1299249466
OW
2011-03-04 17:37
2011.06.26
Спрошу, а вдруг..


15-1299748624
laby
2011-03-10 12:17
2011.06.26
При вызове sp часики убрать


2-1300549046
RUu
2011-03-19 18:37
2011.06.26
adodataset


2-1300902450
Учусь
2011-03-23 20:47
2011.06.26
TWebBrowser и браузер по умолчанию





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
Английский Французский Немецкий Итальянский Португальский Русский Испанский