Проблема с битовыми операциями

[sid]

Народ подскажите! Че то никто не может подсказать. Постараюсь объяснить, как я это делаю на бумаге. Допустим у меня число 155555. В какой это системе я затрудняюсь ответить. Это число я расписываю в двоичной сист. по маске 24 34 34. т.е. у меня получ. 01.0101.101.0101.101.0101 и в конец я доб. 0, разб. на триады и запис. в восьм. виде. получ. 2552652. Вопрос, как это расписать на языке прогр.???

[Stilet]

Че то никто не может подсказать.

Ну это легко обьяснить - задание с подперевывертом... Без 100 грам не разберешся.

[Serge_Bliznykov]

интересно, а если у Вас первая цифра числа будет больше 3, как Вы распишете "по маске 2 4 3 4 3 4" ?! ну-ка, для числа
999888 или для числа 5979790
распишите, пожалуйста...

а вообще алгоритм простой.
Переводите число в строку.
Берёте по одной циферке из этой строки и переводите по Вашей маске в Bin
например, с помощью такой функции:

   function Int2Binary(l: longint; NLength : integer): string;
   { int32 to its binary string representation}
   var
     i: longint;
     s: string;
   begin
     s := '';
     repeat
       if odd(l) then
         s := '1' + s
       else
         s := '0' + s;
       l := l shr 1;
     until l=0;

     while length(s)<NLength do s := '0'+s;
     Int2Binary := s;
  end;

все бинарные строчки складываете.

потом к полученной строке справа добавляете '0' и полученную строку справа налево по три элемента переводите из двоичного представления...
всё.

[sid]

Больше 3-х быть в моем случае не может. Там как-то хитро сделано... Ну ладно придется делать так, как Вы предложили. Это проще, чем разбираться

[GunSmoker]

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

В какой это системе я затрудняюсь ответить.

"Сделай мне то, не знаю что". А вы ещё удивляетесь, чего не подсказывают :D