Вычисление корня "вручную"

[Kronos913]

Зайду с объяснения зачем это надо.

Есть переменная Int64, но я не нашел ее "положительного" аналога в виде некоего Word64 (Если говорить о 32 разрядном Delphi 7)

Но немного открыв основы asm вставок понял, что в целом, через asm процедуры вполне себе можно использовать Int64 как Word64. А можно даже просто массив LongWord любой длины, который использовать как одно единое суперчисло.

Простые asm процедуры вполне справляются с прибавлением, отниманием, умножением. Деление сложнее, но тоже реализуемо. Процедуру перевода числа в строку (для вывода на экран) и строки в число тоже можно за два экрана текста.

И вот возникает вопрос: а как высчитать корень из такого числа?

[Arigato]

Сообщение от Kronos913

а как высчитать корень из такого числа?

Корень это не целочисленная операция.

[northener]

Сообщение от Kronos913

Зайду с объяснения зачем это надо.

Ваше объяснение ничего не объясняет.

Сообщение от Arigato

Корень это не целочисленная операция.

Деление тоже не целочисленная операция. Но ТС похоже где-то нарыл алгоритм деления на ассемблере без использования сопроцессора. Теперь хочет нарыть алгоритм вычисления корня без использования сопроцессора.
А это действительно возможно.

[digitalis]

Сообщение от Kronos913

asm процедуры вполне справляются с прибавлением, отниманием, умножением

Отнимание - это в уголовном кодексе, прибавление - в роддоме. А в математике существует вычитание и сложение.
А для корня - можно посмотреть хотя бы (если не заблокирован доступ к Вики )
https://ru.wikipedia.org/wiki/Итерац...формула_Герона

[Arigato]

Сообщение от northener

Деление тоже не целочисленная операция.

Деление может быть целочисленным. То есть когда и аргументы целые, и результат целый. А вот корень дает вещественный результат. А потому странно говорить о корне применительно к целым числам. Int64 приводится к Double или Extended, дальше считается корень, результат также будет Double.

Нет, конечно, есть Целочисленный квадратный корень, но вряд ли это именно то, что нужно автору.

[digitalis]

Сообщение от Arigato

вряд ли это именно то, что нужно автору.

"Ты что потерял, моя радость?" - кричу я ему,
А он отвечает: "Ах, если б я знал это сам" ©
https://yandex.by/video/preview/6084412523451799985 2:39

[Kronos913]

А как-то вообще можно увидеть, как устроен оригинальный sqrt?

[northener]

Можно в модуле system. Но вам это будет неинтересно.

[Kronos913]

Я открыл system но там его не нашел

[Kronos913]

Единственное что мне пришло на ум - это как-то так
Это черновик кода, который для быстродействия лучше перевести на asm

Использует метод половинного деления

Function sqrt2(a:Int64):LongWord;
var
  b, k:Int64;
  i, j:LongWord;
begin
  i:=2147483648; {2^31}
  j:=0;
  while i>0 do begin
    k:=j+i;
    b:=k*k;
    If b<=a then j:=j+i;
    i:=i div 2;
  end;
  Result:=j;
end;