Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Delphi: Общие вопросы > вывести integer в виде массива бит

Автор: СЭНСЭЙ 6.4.2009, 10:29

Привет всем.
Подскажите как попроще вывести значение integer (к примеру) в виде массива бит

Автор: CodeMonkey 6.4.2009, 10:38

Я бы сделал как-то так (писал на коленке, могут быть ошибки):

Код

function ByteToBinStr(const B: Byte): String; // байт в строку битов
const
  C: array[0..15] of String = ('0000', '0001', '0010', '0011',
                                             '0100', '0101', '0110', '0111',
                                             '1000', '1001', '1010', '1011',
                                             '1100', '1101', '1110', '1111');
begin
  Result := C[B shr 4] + C [B and $F];
end;

function IntToBitStr(const I: Integer): String; // Integer в строку битов
begin
   Result := ByteToBinStr(I shr 24) + 
                  ByteToBinStr(I shr 16) + 
                  ByteToBinStr(I shr 8)
                  ByteToBinStr(I);
end;

Автор: СЭНСЭЙ 6.4.2009, 10:41

Хм.. Очень интересно и красиво!!!
А попроще никак?

Автор: CodeMonkey 6.4.2009, 10:58

Попроще - это как? Типа, чтоб препод сразу понял, что сами писали? smile

Автор: MetalFan 6.4.2009, 11:27

накидал на коленке "по проще".

Код


function BufToBit( ABuf: Integer ): string;
var
  i: Integer;
begin
  SetLength(Result, 36 );
  for i := SizeOf(ABuf)*8 downto 1 do
  begin
    if (ABuf and $1)=1 then
      Result[i] := '1'
    else
      Result[i] := '0';
    ABuf := ABuf shr 1;
  end;
end;

ABuf можно обозначить любым простым типом.
з.ы. но в коде есть ошибка smile

найдешь - молодец

Автор: Андре 6.4.2009, 14:09

Берем готовую функцию IntToHex и модернизируем немножко.

Код


procedure CvtInt; 
{ IN:
    EAX:  The integer value to be converted to text
    ESI:  Ptr to the right-hand side of the output buffer:  LEA ESI, StrBuf[16]
    ECX:  Base for conversion: 0 for signed decimal, 10 or 16 for unsigned
    EDX:  Precision: zero padded minimum field width
  OUT:
    ESI:  Ptr to start of converted text (not start of buffer)
    ECX:  Length of converted text
}
asm
        OR      CL,CL
        JNZ     @CvtLoop
@C1:    OR      EAX,EAX
        JNS     @C2
        NEG     EAX
        CALL    @C2
        MOV     AL,'-'
        INC     ECX
        DEC     ESI
        MOV     [ESI],AL
        RET
@C2:    MOV     ECX,10

@CvtLoop:
        PUSH    EDX
        PUSH    ESI
@D1:    XOR     EDX,EDX
        DIV     ECX
        DEC     ESI
        ADD     DL,'0'
        CMP     DL,'0'+10
        JB      @D2
        ADD     DL,('A'-'0')-10
@D2:    MOV     [ESI],DL
        OR      EAX,EAX
        JNE     @D1
        POP     ECX
        POP     EDX
        SUB     ECX,ESI
        SUB     EDX,ECX
        JBE     @D5
        ADD     ECX,EDX
        MOV     AL,'0'
        SUB     ESI,EDX
        JMP     @z
@zloop: MOV     [ESI+EDX],AL
@z:     DEC     EDX
        JNZ     @zloop
        MOV     [ESI],AL
@D5:
end;

function IntToAny(Value: Integer; Digits: Integer): string;
//  FmtStr(Result, '%.*x', [Digits, Value]);
asm
        CMP     EDX, 32        // Digits < buffer length?
        JBE     @A1
        XOR     EDX, EDX
@A1:    PUSH    ESI
        MOV     ESI, ESP
        SUB     ESP, 32
        PUSH    ECX            // result ptr
        MOV     ECX, 2        // ну а тут нужную нам систему счисления :)
        CALL    CvtInt
        MOV     EDX, ESI
        POP     EAX            // result ptr
        CALL    System.@LStrFromPCharLen
        ADD     ESP, 32
        POP     ESI
end;

Автор: mes 6.4.2009, 14:23

Цитата(Андре @ 6.4.2009, 13:09

)

Берем готовую функцию IntToHex и модернизируем немножко.

нда.. форум то по паскалю, а не по асму. И вобще в чем смысл то, делать непереносимым решение для задачи, не требущей критической оптимизации ?!

Автор: marinovsoft 6.4.2009, 14:53

Вот, писал на коленках:

Код


function byte2bit(b:byte):String;
var i:byte;
    tmpStr:String;
const bit_arr:array[1..8] of byte=($1,$2,$4,$8,$10,$20,$40,$80);

begin
   tmpStr:='';
   for i:=1 to 8 do
   if (b and bit_arr[i])=bit_arr[i] then
      tmpStr:='1'+tmpStr
   else tmpStr:='0'+tmpStr;
   byte2bit:=tmpStr;
end;

А это из работающей программы скопировано

Код


Const
      Arr1:Array[1..8] of byte=($1,$2,$4,$8,$10,$20,$40,$80);
Procedure Write_Byte(B:Byte);
Var
  i:Byte;
begin
     Write_bit_0;  { startovi bit }
     For i:=1 to 8 do
      If (B And Arr1[i])=Arr1[i] then
         Write_bit_1
      else
         Write_bit_0;
     Write_bit_1;  { 1st stopovi bit }
     Write_bit_1;  { 2nd stopovi bit }
end;

Сама работающая программа здесь _http://marinovsoft.narod.ru/korvet/msxcas.rar

Автор: MetalFan 6.4.2009, 15:37

имхо у миня лучче всех получилось) smile

Автор: CodeMonkey 6.4.2009, 15:54

Цитата(MetalFan @ 6.4.2009, 15:37

)

имхо у миня лучче всех получилось)

Я так думаю, что каждому свой вариант нравится лучше остальных ;)

Автор: mes 6.4.2009, 15:56

Цитата(MetalFan @ 6.4.2009, 14:37

)

имхо у миня лучче всех получилось) smile smile

но откуда взялось 36 ?! smile

Цитата(MetalFan @ 6.4.2009, 10:27

)

SetLength(Result, 36 );

Автор: CodeMonkey 6.4.2009, 15:58

Цитата(mes @ 6.4.2009, 15:56

)

но откуда взялось 36 ?! ;)

А вдруг чо! О_О smile

Автор: Akella 6.4.2009, 16:02

Цитата(mes @ 6.4.2009, 15:56

)

но откуда взялось 36 ?! smile

Как это откуда? Со справочника Стэля.

Автор: MetalFan 6.4.2009, 16:27

Цитата(Akella @ 6.4.2009, 16:02

)

Как это откуда? Со справочника Стэля.

хтоето???

а взялось из SizeOf( Integer ) * 8

Автор: mopsa 6.4.2009, 16:44

Цитата(MetalFan @ 6.4.2009, 19:27)

а взялось из SizeOf( Integer ) * 8

но это будет 32
но метод MetalFan`a после небольшой поправки мне кажется лучьшим

Автор: MetalFan 6.4.2009, 16:46

Цитата(mopsa @ 6.4.2009, 16:44

)

но это будет 32
но метод MetalFan`a после небольшой поправки мне кажется лучьшим

а, ну таки тогда две ошибки было) плохо арифметику в школе учил, поэтому вышло 8*4=36)

Автор: CodeMonkey 6.4.2009, 17:50

Вот ещё до кучи вариант моего варианта - стал пострашнее, но зато работает в два раза быстрее MetalFan-ского. Правда, если заменить копирование в Dst на Move (для варианта со String в D2009), то прирост скорости будет всего около 25-ти процентов.

Код

// ANSI:
function RawToBitStr(const Data; const Size: Integer): AnsiString;
const
  C: array[0..15] of AnsiString = ('0000', '0001', '0010', '0011',
                                   '0100', '0101', '0110', '0111',
                                   '1000', '1001', '1010', '1011',
                                   '1100', '1101', '1110', '1111');
var
  X: Integer;
  Src: PByte;
  Dst: PInteger;
begin
  SetLength(Result, Size * 8);

  Src := Pointer(Integer(@Data) + Size - 1);
  Dst := Pointer(Result);

  for X := 0 to Size - 1 do
  begin
    Dst^ := PInteger(C[Src^ shr 4])^;
    Inc(Dst);
    Dst^ := PInteger(C[Src^ and $F])^;
    Inc(Dst);
    Dec(Src);
  end;
end;

// Универсальный:
function RawToBitStr(const Data; const Size: Integer): String;
const
  C: array[0..15] of String = ('0000', '0001', '0010', '0011',
                               '0100', '0101', '0110', '0111',
                               '1000', '1001', '1010', '1011',
                               '1100', '1101', '1110', '1111');
var
  X: Integer;
  Src: PByte;
  Dst: PChar;
begin
  SetLength(Result, Size * 8);

  Src := Pointer(Integer(@Data) + Size - 1);
  Dst := Pointer(Result);

  for X := 0 to Size - 1 do
  begin
    Move(PInteger(C[Src^ shr 4])^, Dst^, 4 * SizeOf(Char));
    Inc(Dst, 4);
    Move(PInteger(C[Src^ and $F])^, Dst^, 4 * SizeOf(Char));
    Inc(Dst, 4);
    Dec(Src);
  end;
end;

function IntToBitStr(const I: Integer): AnsiString; inline;
begin
  Result := RawToBitStr(I, SizeOf(I));
end;

А реализация через CvtInt работает в 2.5 раза медленнее MetalFan-ской - но зато она проще всего в реализации (всего-то и надо, как цифирьку 16 в IntToHex поменять на 2-ку).

Автор: MetalFan 6.4.2009, 18:17

Цитата(CodeMonkey @ 6.4.2009, 17:50

)

зато работает в два раза быстрее MetalFan-ского

ну конееечно! хитрый! сразу 4 символа в один заход пишешь... а если таблицу расширить до полного байта, то еще быстрее дело пойдет ;)
зы. зато мой вариант нагляднее и понятнее) и преподу его проще объяснить ;) имхо

Автор: CodeMonkey 6.4.2009, 19:48

Цитата(MetalFan @ 6.4.2009, 18:17

)

а если таблицу расширить до полного байта, то еще быстрее дело пойдет ;)

Ага

) Только таблицу на полный байт замучаешся писать. Да, твой вариант простейший в реализации.

Автор: MetalFan 6.4.2009, 20:13

Цитата(CodeMonkey @ 6.4.2009, 19:48

)

Только таблицу на полный байт замучаешся писать.

а ее можно при запуске приложения генерировать)

Автор: Beltar 7.4.2009, 10:36

Код


Mask:=1;
for i:=0 to SizeOf(IntegerVariable) do
  begin
  if (IntegerVariable and Mask)>0 
    then Вывести 1
    else Вывести 0
  Mask:=Mask shl 1;  
  end;

Или я не прав? smile

Автор: mes 7.4.2009, 12:59

Цитата(Beltar @ 7.4.2009, 09:36

)

Или я не прав? smile

Цитата(Beltar @ 7.4.2009, 09:36

)

SizeOf(IntegerVariable)

SizeOf() возвращает кол-во байт, а не бит smile

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

Добавлено через 3 минуты и 32 секунды

Цитата(MetalFan @ 6.4.2009, 17:17

)

а если таблицу расширить до полного байта, то еще быстрее дело пойдет ;)

только тогда PInteger не подойдет smile

, так как для 8 анси-символов занимают 64 бита.

Автор: CodeMonkey 7.4.2009, 13:06

Цитата(mes @ 7.4.2009, 12:59

)

только тогда PInteger не подойдет , так как для 8 анси-символов занимают 64 бита.

Ну можно ведь и Move использовать. ... и даже вырвать оттуда кусок для копирования 8-16 байт (16-ть - для unicode), чтоб не вызывать функцию в цикле. Но под таблицу надо будет несколько Кб.

Автор: mes 7.4.2009, 13:12

Цитата(CodeMonkey @ 7.4.2009, 12:06

)

Ну можно ведь и

можно, но имхо овчинка выделки не стоит, чтоб идти дальше таблицы из 4х байт

Автор: bems 7.4.2009, 14:44

Цитата(mes @ 6.4.2009, 15:56

)

но откуда взялось 36 ?!

предлагаю SetLength(Result, 42 );

Автор: MetalFan 7.4.2009, 16:16

[off]

Цитата(bems @ 7.4.2009, 14:44

)

предлагаю SetLength(Result, 42 );

а поччему не 24? ))) может тогда лучше 44? типа как в анекдоте)[/off]

Автор: bems 7.4.2009, 17:16

MetalFan, потому что http://ru.wikipedia.org/wiki/%D0%9E%D1%82%D0%B2%D0%B5%D1%82_%D0%BD%D0%B0_%D0%B3%D0%BB%D0%B0%D0%B2%D0%BD%D1%8B%D0%B9_%D0%B2%D0%BE%D0%BF%D1%80%D0%BE%D1%81_%D0%B6%D0%B8%D0%B7%D0%BD%D0%B8,_%D0%B2%D1%81%D0%B5%D0%BB%D0%B5%D0%BD%D0%BD%D0%BE%D0%B9_%D0%B8_%D0%B2%D1%81%D0%B5%D0%B3%D0%BE_%D1%82%D0%B0%D0%BA%D0%BE%D0%B3%D0%BE