Разобрать код 2 функций

@tanzor69 · Регистрация: 19.03.2011

Студворк — интернет-сервис помощи студентам

Вообщем программа уже готова, завтра сдавать, а как работают две функции я не понимаю. Если есть знающие люди, напишите пожалуйста комментарии к коду:

Delphi
1
2
3
4
5
6
7
8
9
10
11
function ByteToBinStr(a_bByte: byte): string;
var
i: integer;
begin
SetLength(Result, 8);
for i := 8 downto 1 do
begin
   Result[i] := chr($30 + (a_bByte and 1));
   a_bByte := a_bByte shr 1;
end;
end;

Delphi
1
2
3
4
5
6
7
8
function BinStrToByte(a_sBinStr: string): byte;
var
i: integer;
begin
Result := 0;
for i := 1 to length(a_sBinStr) do
   Result := (Result shl 1) or byte(a_sBinStr[i] = '1');
end;

P.S. вообще эти функции переодят текст в его двоичный код и наоборот.

@Mysterious Light · 23.05.2011, 15:13

(a_bByte and 1) == (a_bByte mod 2)
chr($30 + (a_bByte and 1)) == IntToStr(a_bByte mod 2)[1]
(a_bByte shr 1) == (a_bByte div 2)
ByteToBinStr представляет число в двоичном виде и формирует соотв. строку.
(Result shl 1) == (Result*2)
byte(a_sBinStr[i] = '1') == StrToInt(a_sBinStr[i]) при условии корректного входа
(Result shl 1) or byte(a_sBinStr[i] = '1') == Result*2 + StrToInt(a_sBinStr[i])
Эта функция делает всё наоборот: из последовательности 0 и 1 формирует двоичное число.

Учти: у первой функции на выходе будет всегда 8-символьная строка.
Числа только положительные в двоичной форме.

Обрати внимание: порядок выполнения цикла в первой функции от 8 до 1 (от младшего разряда к старшему), во второй от первого символа до последнего (от старшего к младшему)

@tanzor69 · 23.05.2011, 21:59 **[ТС]**

Сообщение от Mysterious Light

(a_bByte and 1) == (a_bByte mod 2)
chr($30 + (a_bByte and 1)) == IntToStr(a_bByte mod 2)[1]
(a_bByte shr 1) == (a_bByte div 2)
ByteToBinStr представляет число в двоичном виде и формирует соотв. строку.
(Result shl 1) == (Result*2)
byte(a_sBinStr[i] = '1') == StrToInt(a_sBinStr[i]) при условии корректного входа
(Result shl 1) or byte(a_sBinStr[i] = '1') == Result*2 + StrToInt(a_sBinStr[i])
Эта функция делает всё наоборот: из последовательности 0 и 1 формирует двоичное число.

Учти: у первой функции на выходе будет всегда 8-символьная строка.
Числа только положительные в двоичной форме.

Обрати внимание: порядок выполнения цикла в первой функции от 8 до 1 (от младшего разряда к старшему), во второй от первого символа до последнего (от старшего к младшему)

огромнейшее спасибо!
еще пару вопросов:
1).a_bByte mod 2 ---- > целочисленный остаток от деления?и где почитать, что (a_bByte and 1) - тоже что и a_bByte mod 2
2). $30 - что это?) и что значит [1] ?

@Mysterious Light · 24.05.2011, 05:23

$30 (оно же 48) — это ASCII код нуля, поэтому chr($30+number) есть символ цифры, соотв. number.
a and b, где a и b числа, есть число, полученное побитовым умножением. Четное число имеет в младшем разряде 0, нечетное — 1. (a and 1) равно последнему биту a (поскольку все, кроме младшего разряда зануляются за счет нулей 00000001), а поэтому указывает на четность. Прочитай про and, or, xor, shl, shr.

Новые блоги и статьи Все статьи Все блоги /
SDL3 для Desktop (MinGW): Создаём пустое окно с нуля для 2D-графики на SDL3, Си и C++ 8Observer8 10.03.2026 Содержание блога Финальные проекты на Си и на C++: hello-sdl3-c. zip hello-sdl3-cpp. zip Результат:	Установка CMake и MinGW 13.1 для сборки С и C++ приложений из консоли и из Qt Creator в EXE 8Observer8 10.03.2026 Содержание блога MinGW - это коллекция инструментов для сборки приложений в EXE. CMake - это система сборки приложений. Здесь описаны базовые шаги для старта программирования с помощью CMake и. . .	Как дизайн сайта влияет на конверсию: 7 решений, которые реально повышают заявки Neotwalker 08.03.2026 Многие до сих пор воспринимают дизайн сайта как “красивую оболочку”. На практике всё иначе: дизайн напрямую влияет на то, оставит человек заявку или уйдёт через несколько секунд. Даже если у вас. . .	Модульная разработка через nuget packages DevAlt 07.03.2026 Сложившийся в . Net-среде способ разработки чаще всего предполагает монорепозиторий в котором находятся все исходники. При создании нового решения, мы просто добавляем нужные проекты и имеем. . .
Модульный подход на примере F# DevAlt 06.03.2026 В блоге дяди Боба наткнулся на такое определение: В этой книге («Подход, основанный на вариантах использования») Ивар утверждает, что архитектура программного обеспечения — это структуры,. . .	Управление камерой с помощью скрипта OrbitControls.js на Three.js: Вращение, зум и панорамирование 8Observer8 05.03.2026 Содержание блога Финальная демка в браузере работает на Desktop и мобильных браузерах. Итоговый код: orbit-controls-threejs-js. zip. Сканируйте QR-код на мобильном. Вращайте камеру одним пальцем,. . .	SDL3 для Web (WebAssembly): Синхронизация спрайтов SDL3 и тел Box2D 8Observer8 04.03.2026 Содержание блога Финальная демка в браузере. Итоговый код: finish-sync-physics-sprites-sdl3-c. zip На первой гифке отладочные линии отключены, а на второй включены:. . .	SDL3 для Web (WebAssembly): Идентификация объектов на Box2D v3 - использование userData и событий коллизий 8Observer8 02.03.2026 Содержание блога Финальная демка в браузере. Итоговый код: finish-collision-events-sdl3-c. zip Сканируйте QR-код на мобильном и вы увидите, что появится джойстик для управления главным героем. . . .

@Mysterious Light $Эксперт по математике/физике$ 4313 / 2105 / 431 Регистрация: 19.07.2009 Сообщений: 3,204 Записей в блоге: 24
	23.05.2011, 15:13
	(a_bByte and 1) == (a_bByte mod 2) chr($30 + (a_bByte and 1)) == IntToStr(a_bByte mod 2)[1] (a_bByte shr 1) == (a_bByte div 2) ByteToBinStr представляет число в двоичном виде и формирует соотв. строку. (Result shl 1) == (Result2) byte(a_sBinStr[i] = '1') == StrToInt(a_sBinStr[i]) при условии корректного входа (Result shl 1) or byte(a_sBinStr[i] = '1') == Result2 + StrToInt(a_sBinStr[i]) Эта функция делает всё наоборот: из последовательности 0 и 1 формирует двоичное число. Учти: у первой функции на выходе будет всегда 8-символьная строка. Числа только положительные в двоичной форме. Обрати внимание: порядок выполнения цикла в первой функции от 8 до 1 (от младшего разряда к старшему), во второй от первого символа до последнего (от старшего к младшему) 1

@Mysterious Light $Эксперт по математике/физике$ 4313 / 2105 / 431 Регистрация: 19.07.2009 Сообщений: 3,204 Записей в блоге: 24
	24.05.2011, 05:23
	$30 (оно же 48) — это ASCII код нуля, поэтому chr($30+number) есть символ цифры, соотв. number. a and b, где a и b числа, есть число, полученное побитовым умножением. Четное число имеет в младшем разряде 0, нечетное — 1. (a and 1) равно последнему биту a (поскольку все, кроме младшего разряда зануляются за счет нулей 00000001), а поэтому указывает на четность. Прочитай про and, or, xor, shl, shr. 0