Как преобразовать число к бОльшему квадрату двойки ?

← →
X-Fi (2005-10-13 02:28) [0]

Там 12 в 16, 50 в 64, 1000 в 1024 и т. д.

Просто ничего кроме кучи условий или цикла в голову не приходит. А может существует какая простая формула, чтобы быстро работала ?

← →
MBo © (2005-10-13 07:27) [1]

function RoundUpPower2(N: Integer): Integer;
begin
Dec(N);
N := N or (N shr 1);
N := N or (N shr 2);
N := N or (N shr 4);
N := N or (N shr 8);
N := N or (N shr 16);
Result := N + 1;
end;

function RoundUpPower2(const Value: DWord): Int64;
asm
sub esp, 8
bsr edx, eax
mov eax, 0
mov [esp], eax
mov [esp+4], eax
jz @@exit
inc edx
bts [esp], edx
@@exit:
mov eax, [esp]
mov edx, [esp+4]
add esp, 8
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
showmessage(inttostr(RoundUpPower2(12)));
showmessage(inttostr(RoundUpPower2(50)));
showmessage(inttostr(RoundUpPower2(1000)));
end;

Как преобразовать число к бОльшему квадрату двойки ? Найти похожие ветки