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

[Аватар]

Ну вот чуть покороче, тоже с тараканами

_SIZE_TEST1 = Trunc((SizeOf_Test1+_ROUND_SIZE-1)/_ROUND_SIZE)*_ROUND_SIZE;

[superedward]

Сообщение от Serge_Bliznykov

да, кстати, мне тоже непонятно, кто мешает написать так?!

Это всего лишь тесты для проверки функции.
Выражения с константами вычисляются во время компиляции программы, так что ваш спор беспредметен.

[Utkin]

Выражения с константами вычисляются во время компиляции программы,

Во умник нашелся, если бы все так просто было, ТС не создавал бы тему. Не все константы вычисляются так легко и просто, а только примитивные выражения. А это не тот случай.

так что ваш спор беспредметен.

Прочтите внимательно о чем идет речь, прежде чем делать такие заявления...

[Sibedir]

Мне кажется, superedward, прав. ВСЕ константы вычисляются на этапе компиляции. Но дело вовсе не в этом.

Сообщение от sibdeir

Вопрос не 'зачем', а 'как написать короче'? Ну, типа задачка для пытливых умов. Мне вот ничё толкового в головы не идет. Может кому придёт.

И

Сообщение от sibdeir

Подобная арифметика может понадобится и на этапе выполнения.

[Vapaamies]

Сообщение от Sibedir

ВСЕ константы вычисляются на этапе компиляции.

Да, именно так. А можно поинтересоваться, в какой прикладной задаче понадобилось вычислять округленные значения в исходных единицах, а не в _ROUND_SIZE-ах?

Наиболее типичная задача такого рода -- нахождение целого числа кластеров для размещения файла заданного размера. Но в этом случае искомое число -- именно число кластеров, а не округленная длина в байтах.

В разрезе системного программирования я посчитал эту задачу настолько типичной, что решил ввести в разрабатываемый мной язык отдельную операцию -- деление с учетом остатка, обозначаемую как +/. На Оно пример будет выглядеть так:

  SizeOf_Test1 = 31;
  SizeOf_Test2 = 32;
  SizeOf_Test3 = 33;
  SizeOf_Test4 = 871;
  SizeOf_Test5 = 528;

  _ROUND_SIZE = 16;
  _SIZE_TEST1 = (SizeOf_Test1 +/ _ROUND_SIZE) * _ROUND_SIZE;
  _SIZE_TEST2 = (SizeOf_Test2 +/ _ROUND_SIZE) * _ROUND_SIZE;
  _SIZE_TEST3 = (SizeOf_Test3 +/ _ROUND_SIZE) * _ROUND_SIZE;
  _SIZE_TEST4 = (SizeOf_Test4 +/ _ROUND_SIZE) * _ROUND_SIZE;
  _SIZE_TEST5 = (SizeOf_Test5 +/ _ROUND_SIZE) * _ROUND_SIZE;

Задумался даже о введении операции округления без деления, все равно +* свободен. Тогда будет еще проще:

  _SIZE_TEST1 = SizeOf_Test1 +* _ROUND_SIZE;

А в Паскале/Delphi расчет кластеров обычно записывают так:

var
  ClusterCount := (FileBytes + ClusterBytes - 1) div ClusterBytes;

[Sibedir]

Да, именно так. А можно поинтересоваться, в какой прикладной задаче понадобилось вычислять округленные значения в исходных единицах, а не в _ROUND_SIZE-ах?

Упражнялся по выравниванию данных на Lazarus. Не могу вкурить как заставить его выравнивать по заданное значение. {$Align 8} и {$PACKRECORDS 8} не работают. Компилятор их съедает но не реагирует.
А сам вопрос возник из чистого любопытства.
Как можно короче записать?
И
Как можно записать, чтобы на этапе выполнения работало быстрее?