[reqyz]

Доброго времени суток уважаемые форумчане.

есть число X, как мы знаем в памяти оно хранится как набор единиц и нулей например 13 это 1101 и т д

задача: узнать положение ближайшей единицы, то-есть, четвертая с конца, значит бинарный размер = 4

предполагаю что делается на asm, благо в делфи его можно прикручивать.

пытался сделать через trunc(log2(abs(x))+1), работало, но использование функций, работающих с ieee745 или как его там, к сожалению запрещено,

подскажите, как можно найти позицию единички?
заранее благодарю

[Aristarh Dark]

Непонятно зачем это надо, но, если число меньше чем 2^x то его "бинарный размер" = x

[reqyz]

Сообщение от Aristarh Dark

Непонятно зачем это надо, но, если число меньше чем 2^x то его "бинарный размер" = x

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

Код:

  function GetCount(const Base:byte;X:Int64):cardinal;
  var
    z:int64;
    zp:cardinal;
    Base3:cardinal;
    xx:int64;
  begin
    Result:=0;
    Base3:=Base*Base*base;
    xx:=0;
    while X>0 do
    begin
      z:=1;
      zp:=0;
      while X>=Z do
      begin
        Z:=Z*base3;
        xx:=X;
        X:=X div Z;
        inc(zp,3);
        inc(Result,zp);
      end;
    end;
    if(xx<>0)and(X=0)then
    begin
      Z:=Z div (Base*Base);
      xx:=xx div Z;
      if(xx=0)then
        dec(Result,2)
      else
      if(xx<base)then
        dec(Result,1);
    end;
  end;

вот что пока получилось навоять, 10 000 000 значений максимального DWord - овского числа за 3 секунды определяет длину, но это не правильный подход и изврат, помогите с asm

[Freeman]

Ассемблерная команда какая-то была... Забыл.
Посмотрел в справочнике:

Код:

function MostSignificantBit(Value: LongInt): LongInt;
asm
        BSR EAX, EAX
end;

[Bargest]

Посмотрел в справочнике:

Только такую функцию нельзя использовать с модификатором stdcall, и вообще придется надеяться на то, что компилятор всегда и во всех версиях будет использовать один метод вызова. Для универсальности можно попробовать

Код:

function BSR(Value: LongInt): LongInt; assembler;
asm
        BSR EAX, Value
end;

Компилируется это в то же самое BSR eax, eax.
К счастью, эта инструкция переваривает и работу с памятью.

BSR reg32, reg/mem32 - Bit scan reverse on the contents of reg/mem32.

[Freeman]

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

Только такую функцию нельзя использовать с модификатором stdcall

Я написал что написал, а это функция с моделью вызова register. Не надо ля-ля. С использованием мнемнонического имени Value вместо EAX соглашусь. А модификатор assembler давно уже признан устаревшим и не несет никакого смысла.

На плохом форуме кто-то написал быдлокод для Int64. Моя версия будет выглядеть так:

Код:

function MostSignificantBit(Value: Int64): LongInt; overload; // к предыдущей, тоже overload
asm
        BSR EAX, EDX
        JZ @@lo
        SHL EAX, 1
        RET
@@lo:
        BSR EAX, EAX
end;