Главная страница
    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.003 c
2-1300355834
nameziz
2011-03-17 12:57
2011.06.26
скачивание файлов http


15-1299187799
Юрий
2011-03-04 00:29
2011.06.26
С днем рождения ! 4 марта 2011 пятница


15-1299822781
И. Павел
2011-03-11 08:53
2011.06.26
БД Access не открывается, хотя JET 4.0 установлен


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


2-1300180531
cross
2011-03-15 12:15
2011.06.26
как корректно заэнаблить контролы





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