Скачать: CL | DM;

Преобразование целого числа в набор битов   Найти похожие ветки 

← →
Посторонний   (2006-12-01 10:23) [0]

Привет всем ! Подкиньте функцию плиз.

---

← →
clickmaker ©   (2006-12-01 10:25) [1]

TBits имеется в виду?
Тогда в цикле со сдвигом и маской And

---

← →
MBo ©   (2006-12-01 10:25) [2]

Каждое целое (да и нецелое число) в компьютере и так уже является набором битов, так что вопрос переформулируй

---

← →
Посторонний   (2006-12-01 10:28) [3]

Мне такое задание в колледже дали, учитель ничего не объяснил лишь билет дал где так и написано :(  Затвра программа должна быть готова.

---

← →
Сергей М. ©   (2006-12-01 10:28) [4]

http://delphimaster.net/view/2-1164797653/

читать (особенно пост [15]) до полного просветления !

---

← →
from kz   (2006-12-01 10:30) [5]

При операциях с битовыми значениям удобно обращаться к кажджому биту,
как к элементу строки, причём так, чтобы 1-й бит - был 1-й символ строки,
а не последний.

---

← →
Посторонний   (2006-12-01 10:34) [6]

:( Для моего мозга это слишком тяжело.

---

← →
Сергей М. ©   (2006-12-01 10:38) [7]

> Для моего мозга это слишком тяжело


Что тяжело ? Уточнить формулировку задачи или где ?

---

← →
from kz   (2006-12-01 10:39) [8]

function IntToRBin32(Value: Cardinal): string;
var
 i: integer;
begin
 SetLength(Result, 32);
 for i := 1 to 32 do
   if (Value shl (i - 1)) shr 31 = 0 then
     Result[33 - i] := "0"
   else
     Result[33 - i] := "1";
end;

---

← →
from kz   (2006-12-01 10:43) [9]

Да, чуть не забыл.

uses Windows, SysUtils, Math - кажись.

---

← →
clickmaker ©   (2006-12-01 10:48) [10]

а Math зачем?

---

← →
from kz   (2006-12-01 10:52) [11]

> clickmaker ©   (01.12.06 10:48) [10]
> а Math зачем?


Ну хотябы для того, что обратно назад переобразовать.

 Result := 0;
 for i := 1 to Length(Value) do
   if Value[i] = "1" then
     Result := Result + Round(IntPower(2, i - 1));

---

← →
iXT   (2006-12-01 10:56) [12]

> Что тяжело ? Уточнить формулировку задачи или где ?

Не ну чего тут непонятного, здавать надо, а знаний "0"

[8] - все равно будет "Для моего мозга это слишком тяжело."
Если нет, тогда не все потеряно и заберу слова обратно.

---

← →
clickmaker ©   (2006-12-01 10:57) [13]

> [11] from kz   (01.12.06 10:52)

"обратно назад" можно и без функций. Сдвиг + OR

---

← →
from kz   (2006-12-01 11:04) [14]

2 clickmaker

Ну я не на столько умный как ты. Написал, что знал.

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.48 MB
Время: 0.027 c