Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

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

Преобразование целого числа в набор битов [D7, XP]

Посторонний © (2006-12-01 10:23:00)
Привет всем ! Подкиньте функцию плиз.

from kz (2006-12-01 11:04:00) [1]
2 clickmaker

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

clickmaker (2006-12-01 10:57:00) [2]

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

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

iXT (2006-12-01 10:56:00) [3]

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

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

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

from kz (2006-12-01 10:52:00) [4]

> 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));

clickmaker (2006-12-01 10:48:00) [5]
а Math зачем?

from kz (2006-12-01 10:43:00) [6]
Да, чуть не забыл.

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

from kz (2006-12-01 10:39:00) [7]
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;

Сергей М. (2006-12-01 10:38:00) [8]

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

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

Посторонний (2006-12-01 10:34:00) [9]
:( Для моего мозга это слишком тяжело.

from kz (2006-12-01 10:30:00) [10]
При операциях с битовыми значениям удобно обращаться к кажджому биту,
как к элементу строки, причём так, чтобы 1-й бит - был 1-й символ строки,
а не последний.

Посторонний (2006-12-01 10:28:00) [11]
Мне такое задание в колледже дали, учитель ничего не объяснил лишь билет дал где так и написано :( Затвра программа должна быть готова.

Сергей М. (2006-12-01 10:28:00) [12]
http://www.delphimaster.ru/cgi-bin/forum.pl?n=18&id=1164797653

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

clickmaker (2006-12-01 10:25:00) [13]
TBits имеется в виду?
Тогда в цикле со сдвигом и маской And

MBo (2006-12-01 10:25:00) [14]
Каждое целое (да и нецелое число) в компьютере и так уже является набором битов, так что вопрос переформулируй

Наверх

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