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

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

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

Округление чисел в Дельфи [D7, XP]

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

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

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

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

KilkennyCat (2011-03-17 03:13:00) [2]

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

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

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

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

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

Aleks (2011-03-17 00:14:00) [4]
Спасибо большое!

KilkennyCat (2011-03-16 23:53:00) [5]
а, умножение не заметил... :)

Германн (2011-03-16 23:52:00) [6]
Еще точнее так
Конечное:=(Trunc(Начальное) div 5)*5+5;
:)

KilkennyCat (2011-03-16 23:52:00) [7]
5.1 что вернет?

Германн (2011-03-16 23:51:00) [8]
Точнее так
Конечное:=(Trunc(Начальное) div 5)+5;

Германн (2011-03-16 23:45:00) [9]
Конечное:=(Начальное div 5)+5;

Наверх

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