Перестановка единицы

[RIO]

Здравствуйте ! Подскажите как называется данная вещь. И как ее реализовать на Delphi.

Пример :

На 3 столбца :

000
001
011
111

На 4 :

0000
0001
0011
.
.
.
И т.д. должно получится 16 строк

[DeKot]

Это числа в двоичном коде. 000 (0000) - соответствует десятичному dec0; 001 (0001) - dec 1; 011 (0011) - dec 3 и т.д.
Перевести числа из десятичного вида в двоичный можно так:
В код вставляем описание функции

function Dec_Bin(N_dec: integer): TMas;
var i: byte;
    weight: byte;  // "вес" разряда
    mas_bit: TMas;
begin
  weight:= 128;
  for i:= 7 downto 0 do
  begin
    mas_bit[i]:= N_dec div weight;
    if mas_bit[i] = 1 then N_dec:= N_dec - weight;
    weight:= weight div 2;
  end;
  Result:= mas_bit;
end;

И далее

procedure TForm1.FormPaint(Sender: TObject);
var i: byte;
begin
  for i:= 7 to 0 do
  Form1.Canvas.TextOut(50 + 15*i,100,IntToStr(Dec_Bin(N_dec)[i]);
end

Вместо N_dec подставляйте любое число в пределах байт (0 .. 255)ж