Вверх ↑
Разработчик
Ответов: 26164
Рейтинг: 2127
#1: 2011-08-23 20:57:04 ЛС | профиль | цитата
Леонид писал(а):
Во как А меня учили

Учили тебя правильно, но это неприменимо ни для чего, что связано с расходом материала. Там если больше целого, сразу надо округлять до следующего целого. А в Delphi, кстати, есть специальные функции для этого

Функции Ceil, Int, Floor, Round, Trunc обеспечивают округление действительного числа до целого, но в разные стороны: Ceil - в сторону увеличения, Floor - в сторону уменьшения, Round
- до ближайшего целого, Int и Trunc - в сторону нуля. Если число точно посередине между целыми, то функция Round всегда округляет до четного числа. Ниже приведены примеры округления:


функцияX = 3.5X = -3.5X = 3
Ceil4-33
Floor3-43
Int, Trunc3-33
Round4-43


карма: 22

0