Преобразование двоичного числа в десятичное

Delphi , Синтаксис , Преобразования

/////////////////////////////////////////////////////////////////////////
// преобразование 32-битного base2 в 32-битный base10                  //
// максимальное число = 99 999 999, возвращает -1 при большем значении //
/////////////////////////////////////////////////////////////////////////

function Base10(Base2:Integer) : Integer; assembler;
asm

cmp        eax,100000000        // проверка максимального значения
jb         @1                   // значение в пределах допустимого
mov        eax,-1               // флаг ошибки
jmp        @exit                // выход если -1
@1:

push       ebx                  // сохранение регистров
push       esi
xor        esi,esi              // результат = 0
mov        ebx,10               // вычисление десятичного логарифма
mov        ecx,8                // преобразование по формуле 10^8-1
@2:

mov        edx,0                // удаление разницы
div        ebx                  // eax - целочисленное деление на 10, edx - остаток от деления на 10
add        esi,edx              // результат = результат + разность[I]
ror        esi,4                // перемещение разряда
loop       @2                   // цикл для всех 8 разрядов
mov        eax,esi              // результат функции
pop        esi                  // восстанавление регистров
pop        ebx
@exit:
end;

Эта функция Delphi Pascal конвертирует 32-битное двоичное число в 32-битное десятичное число. Вот разбивка кода:

Подпись функции Функция Base10 принимает целочисленный аргумент Base2 и возвращает целочисленное значение.

Обработка ошибок Первый блок кода проверяет, является ли входное значение больше максимально допустимого значения (99,999,999). Если это так, функция устанавливает возвращаемое значение в -1 и выходит.

Логика конвертации Если входное значение находится в приемлемом диапазоне, функция продолжает конвертацию. Она использует цикл для перебора каждого из 8 байт двоичного числа (32 бита).

Внутри цикла выполняются следующие шаги:

1. Регистр ebx устанавливается в 10 (десятичная основа).
2. Регистр edx инициализируется в 0.
3. Регистр eax делится на ebx с помощью инструкции div. Это выполняет правый сдвиг двоичного числа и обновляет eax с квотой, а также хранит остаток в edx.
4. Регистр esi увеличивается на остаток (edx) для накопления десятичного значения.
5. Регистр esi поворачивается на 4 бита вправо с помощью инструкции ror. Это эффективно сдвигает двоичное число на одну позицию вправо.
6. Цикл повторяется для каждого из 8 байт (32 бита).

Возвращение и очистка После завершения цикла конвертации функция возвращает накопленное десятичное значение в регистре eax.

Альтернативное решение Хотя этот код использует ассемблерный язык, более современным подходом было бы использовать встроенную поддержку Delphi для конвертации двоичного числа в десятичное. Например:

function Base10(Base2: Integer): Integer;
begin
  Result := StrToIntBin(IntToBin(Base2));
end;

Функция StrToIntBin из модуля SysUtils конвертирует строку двоичного числа в целочисленное значение. Обратите внимание, что это более компактное и легкое для поддержки решение, чем ассемблерный код.

Преобразование двоичного числа в десятичное - это процесс, который реализуется с помощью алгоритма на языке ассемблера, позволяющего преобразовать 32-битное двоичное число в 32-битное десятичное.

Комментарии и вопросы

Получайте свежие новости и обновления по Object Pascal, Delphi и Lazarus прямо в свой смартфон. Подпишитесь на наш Telegram-канал delphi_kansoftware и будьте в курсе последних тенденций в разработке под Linux, Windows, Android и iOS

:: Главная :: Преобразования ::