Умножение больших целых чиселDelphi , Синтаксис , МатематикаУмножение больших целых чисел
Оформил: DeeCo 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; Статья Умножение больших целых чисел раздела Синтаксис Математика может быть полезна для разработчиков на Delphi и FreePascal. Комментарии и вопросыМатериалы статей собраны из открытых источников, владелец сайта не претендует на авторство. Там где авторство установить не удалось, материал подаётся без имени автора. В случае если Вы считаете, что Ваши права нарушены, пожалуйста, свяжитесь с владельцем сайта. :: Главная :: Математика ::
|
||||
©KANSoftWare (разработка программного обеспечения, создание программ, создание интерактивных сайтов), 2007 |