Умножение больших целых чисел

Delphi , Синтаксис , Математика

Оформил: DeeCo
Автор: http://www.swissdelphicenter.ch

type
   IntNo = record
     Low32, Hi32: DWORD;
   end;

 function Multiply(p, q: DWORD): IntNo;
 var
   x: IntNo;
 begin
   asm
     MOV EAX,[p]
     MUL [q]
     MOV [x.Low32],EAX
     MOV [x.Hi32],EDX
   end;
   Result := x
 end;


 // Test the above with: 
// So kannst du es testen 

var
   r: IntNo;
 begin
    r := Multiply(40000000, 80000000);
    ShowMessage(IntToStr(r.Hi32) + ', ' + IntToStr(r.low32))
 end;

Here's the translation of the text into Russian:

Делфи-программа, которая умножает два больших целочисленных значения с помощью ассемблерного языка. Функция Multiply принимает два параметра типа DWORD (32-битное неотрицательное целое число) p и q, и возвращает запись IntNo, содержащую низшие 32 бита и высокие 32 бита результата.

Рассмотрим, как работает программа:

1. Используется блок asm, чтобы сгенерировать ассемблерный код, выполняющий умножение.
2. Первые две строки, MOV EAX,[p] и MUL [q], загружают значение p в регистр EAX и умножают его на значение q.
3. Результат умножения хранится в регистре EDX, который содержит высокие 32 бита результата.
4. Низшие 32 бита результата хранятся в регистре EAX.
5. Значения затем присваиваются полям Low32 и Hi32 записи x.
6. Finally, переменная Result устанавливается в значение записи x, которая содержит результат умножения.

Тестовый код в конце создает экземпляр записи IntNo, вызывает функцию Multiply с аргументами 40000000 и 80000000, и отображает полученные значения с помощью ShowMessage.

Вот предложение по улучшению:

Вместо использования ассемблерного языка можно использовать встроенный оператор умножения в Delphi для достижения identical результата. Например:

function Multiply(p, q: DWORD): IntNo;
begin
  Result := IntNo((p * q) shr 32, p * q and $FFFF);
end;

Код использует оператор * для умножения значений, а затем извлекает высокие 32 бита с помощью оператора shr (сдвиг вправо) и низшие 32 бита с помощью оператора and. Результат присваивается записи IntNo, которая содержит оба значения.

Эта APPROACH, вероятно, будет более эффективной и легкой для поддержки, чем оригинальный код, использующий ассемблерный язык.

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

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

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

:: Главная :: Математика ::