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

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

Форум программистов > Object Pascal: кроссплатформенные технологии > алгоритм перевода

Автор: rion 10.9.2007, 23:22

Мне нужен алгоритм перевода с 2-ичной системы исчесления в 16-тиричную. Уже незнаю где спрашивать. Помогите плиз. :(

Автор: ne0n 10.9.2007, 23:28

вообщем сначала переводишь в 10 систему, а из нее в 16-ричную:

Код


//переводим в десятичное
function BinTo(Value: string): Cardinal;
 var
   intX, PosCnt: Byte;
 begin
   Result := 0;
   PosCnt := 0;
   for intX := Length(Value) - 1 downto 0 do 
    case Value[intX + 1] of 
      '0': Inc(PosCnt);  
      '1':
         begin
          Result := Result or (1 shl PosCnt);
           Inc(PosCnt); 
        end;
     end;
 end;

перевод в 16-ю заключаеться в цикличном делении числа на 16, пока не получим остаток меньше 16!

хотя есть гораздо простой сппособ: делим двоичное число на на тетрады, т.е. например 11110000 делиться на 1111 и 0000(если не хватает нескольких цифр до завершения тетрады добовляем нули)

А вот тебе список значения тетрад:
bin       hex
0000    0
0001   1
0010   2
0011   3
0100   4
0101   5
0110   6
0111   7
1000   8
1001   9
1010   A
1011   B
1100   C
1101    D
1110    E
1111    F

Автор: Crot 11.9.2007, 04:02

Цитата(ne0n @ 11.9.2007, 05:28

)

хотя есть гораздо простой сппособ: делим двоичное число на на тетрады, т.е. например 11110000 делиться на 1111 и 0000(если не хватает нескольких цифр до завершения тетрады добовляем нули)

Думаю, следуюет дополнить ответ тем, что "нули надо добавлять с левой стороны".

Автор: ne0n 11.9.2007, 08:40

Цитата(Crot @ 11.9.2007, 04:02

)

Думаю, следуюет дополнить ответ тем, что "нули надо добавлять с левой стороны".

разумееться, если речь едет о целой части числа(или вообще о целом числе), если же разговор идет о дробной части, то нули надо добавлять слева, а вообще я просто думал что все помнят школьные уроки информатики smile