Биты

← →
Инна (2006-04-18 22:58) [0]

У меня есть байт как мне его разобрать на биты, тоесть узнать чему равен определенный бит в байте, помогите пожалуйста ни как немогу сделать.

← →
Eraser © (2006-04-18 23:21) [1]

> Инна (18.04.06 22:58)

http://www.delphikingdom.com/asp/viewitem.asp?catalogid=838

← →
Юрий Зотов © (2006-04-18 23:29) [2]

Инна, учите двоичную систему счисления и логические операции AND, OR, NOT, XOR. Ибо они - рулез.

var
B: byte;
begin
B := что-то;

if B and 1 = 1 then
ShowMessage("Нулевой бит равен 1")
else
ShowMessage("Нулевой бит равен 0");

if B and 2 = 2 then
ShowMessage("Первый бит равен 1")
else
ShowMessage("Первый бит равен 0");

if B and 4 = 4 then
ShowMessage("Второй бит равен 1")
else
ShowMessage("Второй бит равен 0");

И т.д. Надеюсь, из этих примеров система стала понятна и осталось только придумать более элегантное решение, чем 8 операторов IF. Это Вам в качестве домашнего задания.

← →
Германн © (2006-04-19 02:35) [3]

> Юрий Зотов © (18.04.06 23:29) [2]

Не понял суть "домашнего задания"
С учётом - "Инна, учите двоичную систему счисления и логические операции AND, OR, NOT, XOR. Ибо они - рулез."
Ну это так, offtop.

← →
SergP. (2006-04-19 07:06) [4]

function GetBitFromByte(Source,nbit:byte):boolean;
begin
Result:=(Source shr nbit) and 1=1;
end;

← →
Плохиш © (2006-04-19 10:25) [5]

> Германн © (19.04.06 02:35) [3]
>
> > Юрий Зотов © (18.04.06 23:29) [2]
>
> Не понял суть "домашнего задания"

Ну, ведь в байте не три бита? Или?

← →
balepa © (2006-04-19 10:31) [6]

> Плохиш © (19.04.06 10:25) [5]

У Вас устаревшие сведения :)

← →
Ega23 © (2006-04-19 11:01) [7]

> Инна, учите двоичную систему счисления и логические операции
> AND, OR, NOT, XOR. Ибо они - рулез.

Плюс shl и ырк

← →
Ega23 © (2006-04-19 11:07) [8]

Блин.
В смысле, shl и shr

> Инна (18.04.06 22:58)

Вообще то этому в школе учат. Хотя бы с использованием div и mod.

Плохиш © (19.04.06 10:25) [5]

> Ну, ведь в байте не три бита?

В байте восемь битов. А в каждом четвертом - девять, так как високосный.

> В байте восемь битов. А в каждом четвертом - девять, так
> как високосный.

А в 1800-м?

> А в 1800-м?

Нет, он не кратный 400 :о)

Биты Найти похожие ветки