| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

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

X-Fi ©   (2005-10-13 02:28:00) 

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

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

---

Digitman   (2005-10-13 08:54:00) [1]

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;

---

MBo   (2005-10-13 07:27:00) [2]

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;

---

Наверх