О логическом управлении мозгом, indeed

[lozkin]

{Friday filter ON

Comments

[vannadis]

А че там за алгоритм?

А ты почему не в жаббере?

[lozkin]

Могу выложить код в Паскале. :)

А почему я должен быть в Жаббере? :))

[vannadis]

давай. Люблю я Паскаль...

Вот в жаббере и выложил бы.
А почему не должен?

Вот ОНО. :)

[lozkin]

function iSqrt(Val : Longint) : Word;
var root,bitSqr : Longint;
begin
bitSqr := $40000000;
root := 0;

While bitSqr <> 0 do
begin
if Val >= bitSqr + root
then begin
Dec(Val, bitSqr + root);
root := (root shr 1) or bitSqr;
end
else root := root shr 1;
bitSqr := bitSqr shr 2;
end;
iSqrt := Root;
end;

[sivka_krd]

Да я-то что, не я ж писал.