(x mod 2) = 0
... Du meinst also NOT
ODD?
Zitat:
Delphi-Quellcode:
function IntCeilDiv( Val1, Val2 : Integer ) : Integer;
begin
Result := Val1 div Val2;
if Val1 mod Val2 <> 0 then
Inc( Result );
end;
Immer aufrunden?
Delphi-Quellcode:
Result := (Val1 + 1) div 2;
Result := (Val1 + Val2 div 2) div Val2;
Vor dem Dividieren die Hälfte des Divisors hinzuaddiert, führt zu einem arithmetischem Aufrunden, da man den 0-Wert um die Hälfte (auf 0,5) verschoben hat.
(oder wie auch immer man das auf Mathematikdeutsch ausdrückt)