Мастера DELPHI, Delphi programming community Рейтинг@Mail.ru Титульная страница Поиск, карта сайта Написать письмо 
| Новости |
Новости сайта
Поиск |
Поиск по лучшим сайтам о Delphi
FAQ |
Огромная база часто задаваемых вопросов и, конечно же, ответы к ним ;)
Статьи |
Подборка статей на самые разные темы. Все о DELPHI
Книги |
Новинки книжного рынка
Новости VCL
Обзор свежих компонент со всего мира, по-русски!
|
| Форумы
Здесь вы можете задать свой вопрос и наверняка получите ответ
| ЧАТ |
Место для общения :)
Орешник |
Коллекция курьезных вопросов из форумов
KOL и MCK |
KOL и MCK - Компактные программы на Delphi
Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / rsdn.org

 
Чтобы не потерять эту дискуссию, сделайте закладку « предыдущая ветвь | форум | следующая ветвь »

код Хэмминга [Delphi, Windows]


m3x ©   (03.05.09 19:45

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


@!!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]

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


версия для печати

Написать ответ

Ваше имя (регистрация  E-mail 







Разрешается использование тегов форматирования текста:
<b>жирный</b> <i>наклонный</i> <u>подчеркнутый</u>,
а для выделения текста программ, используйте <code> ... </code>
и не забывайте закрывать теги! </b></i></u></code> :)


Наверх

  Рейтинг@Mail.ru     Титульная страница Поиск, карта сайта Написать письмо