Последние записи

made in programmersforum 8

Интенсив по Python: Работа с API и фреймворками 24-26 ИЮНЯ 2022. Знаете Python, но хотите расширить свои навыки?
Slurm подготовили для вас особенный продукт! Оставить заявку по ссылке - https://slurm.club/3MeqNEk

Online-курс Java с оплатой после трудоустройства. Каждый выпускник получает предложение о работе
И зарплату на 30% выше ожидаемой, подробнее на сайте академии, ссылка - ttps://clck.ru/fCrQw

22nd
Фев

Округление целочисленной константы в большую сторону

Posted by micher under Delphi

Как проще округлить целочисленную константу в большую сторону до фиксированного значения?

Sibedir

SizeOf_Test1 = 31;

  SizeOf_Test2 = 32;

  SizeOf_Test3 = 33;

  SizeOf_Test4 = 871;

  SizeOf_Test5 = 528;
  _ROUND_SIZE = 16;

  _SIZE_TEST1 = SizeOf_Test1 + ((_ROUND_SIZE - (SizeOf_Test1 mod _ROUND_SIZE)) mod _ROUND_SIZE);

  _SIZE_TEST2 = SizeOf_Test2 + ((_ROUND_SIZE - (SizeOf_Test2 mod _ROUND_SIZE)) mod _ROUND_SIZE);

  _SIZE_TEST3 = SizeOf_Test3 + ((_ROUND_SIZE - (SizeOf_Test3 mod _ROUND_SIZE)) mod _ROUND_SIZE);

  _SIZE_TEST4 = SizeOf_Test4 + ((_ROUND_SIZE - (SizeOf_Test4 mod _ROUND_SIZE)) mod _ROUND_SIZE);

  _SIZE_TEST5 = SizeOf_Test5 + ((_ROUND_SIZE - (SizeOf_Test5 mod _ROUND_SIZE)) mod _ROUND_SIZE);

тема на форуме