PHP DM Gate v0.9 » код Хэмминга <span class="vd">[Delphi, Windows]</span>

m3x © (03.05.09 19:45) [0]

Всем привет.Надо срочно сдать курсач, вот собираюсь начать писать.
Нужно написать кодер и декодер ,основанный на алгоритме Хэмминга.
Времени особо разбираться нет, поэтому обращаюсь к вам.
Вопрос первый :
Как в делфи байт перевести в последовательность бит ?
(нужно для того, чтобы исходный файл разбить на биты)

<Цитата>
@!!ex © (03.05.09 20:33) [1]

> Как в делфи байт перевести в последовательность бит ?

Как и в любой другом языке - смещением.

1) Это мода такая, заниматься курсачом когда уже дедлайн?
2) Неужели на лекциях не рассказывали как получить биты?

Ладно уж, помогу раздолбаю(кстати, вторая ссыль в гугле):
type
Bit = 0..1;

type
TBitSet = array[0..7] of Bit;

function GetNBit (X, N: byte): Bit;
begin
Result := x shr N and 1;
end;

function GetBits (X: byte): TBitSet;

var
N: integer;
begin
for N := 0 to 7 do
Result[N] := GetNBit(X, N);
end;

function MakeByte (BitSet: TBitSet): byte;

var
i: integer;
begin
Result := 0;
for i := 7 downto 0 do
Result := Result shl 1 + (BitSet[i] and 1);
end;

<Цитата>
m3x © (05.05.09 22:20) [2]

Спасибо, большое ! Если что ,еще напишу ;))

<Цитата>
m3x © (05.05.09 22:22) [3]

>
> Как и в любой другом языке - смещением.
>
> 1) Это мода такая, заниматься курсачом когда уже дедлайн?
>
> 2) Неужели на лекциях не рассказывали как получить биты?
>

еще время есть ) пара неделек. нормально.
с лекциями туго, ибо преподы шарят не оч. приходиться заниматься самообразованием

<Цитата>
tButton © (07.05.09 00:27) [4]

> преподы шарят не оч

ааа... тупыыые....

<Цитата>
Anatoly Podgoretsky © (05.05.13 16:37) [5]

Доцент тупой
(с) Приключения Шурика

<Цитата>
ProgRAMmer Dimonych © (09.08.13 01:08) [6]

> [5] Anatoly Podgoretsky © (05.05.13 16:37)

«Профессор лопух» же, не? :)

<Цитата>
Dennis I. Komarov © (15.08.13 19:34) [7]

Доцент моргалы выколет...

А по теме, [1] это только демонстрация, байт это и так последовательность бит и не нужно ничего переводить... Нужно понимать работу логических операторов.

<Цитата>
Dennis I. Komarov © (15.08.13 19:36) [8]

О, ветка то совсем свежая :)

<Цитата>
brother © (23.08.13 14:38) [9]

дядя Толя, зачем же так "рано"? )

<Цитата>
~~имя~~ (20.10.15 20:06) [10]

Удалено модератором

<Цитата>