Делфи. Ранжирование таблицы истиности

[Алексей_2012]

Ребят, всем привет, мне нужно программно заполнить массив 0 и 1.

массив - абстракция таблицы истиности. Проблема с чередованием элементов.



должно быть

0 0 0
0 0 1
0 1 0
0 1 1
1 0 0
1 0 1
1 1 0
1 1 1

Выходит так:

0 0 0
0 0 1
0 1 1
0 1 1
1 1 1
1 1 1
1 1 1
1 1 1


вот сбоящий участок кода

for i:=0 to stolb-1 do
begin
  k:=0;
   ocherednost:=polovina;
  for j:=0 to strok-1 do
  begin
      if ocherednost=0 then
      begin
         ocherednost:=polovina;
       k:=1;
      end;
      arr_rang[i][j]:=k;
      Dec (ocherednost);
  end;
 polovina:=polovina div 2;
end;

Как я только не извращался с кодом - все равно тоже самое выходит...

function stepen_dwa(step: byte): integer;
var i: byte;
begin
  Result := 1;
  for i := 1 to step do
    Result := result * 2;
end;


procedure TForm1.Button1Click(Sender: TObject);
 var stolb,strok,i,j,polovina,ocherednost,k:integer;
 arr_rang:array of array of Byte;
 s:string;
begin
stolb:=3;
strok:=stepen_dwa(stolb);
 SetLength(arr_rang,stolb,strok);
   polovina:=strok div 2;


for i:=0 to stolb-1 do
begin
  k:=0;
   ocherednost:=polovina;
  for j:=0 to strok-1 do
  begin
      if ocherednost=0 then
      begin
         ocherednost:=polovina;
       k:=1;
      end;
      arr_rang[i][j]:=k;
      Dec (ocherednost);
  end;
 polovina:=polovina div 2;
end;


      for j:=0 to strok-1 do
      begin
           s:='';
        for i:=0 to stolb-1 do
         s:=s+inttostr(arr_rang[i][j])+' ';
        memo1.Lines.add(s);
      end;
    arr_rang:=nil;
end;

[ura_111]

0.jpg

[Serge_Bliznykov]

Сообщение от Алексей_2012

должно быть

Товарищ, а Вам не кажется, что эта таблица полностью совпадает с двоичным представлением последовательных чисел от 0 до 7?
может просто for i:=0 to 7 и переводить i -> двоичный массив (три строчки кода) ?

Добавлено в 10:51
Впрочем, код от ura_111 именно это и делает.
Просто, быстро, надёжно, эффективно. и не нужны тонны кода со всякими polovina / ocherednost / stepen_dwa и прочими заморочками...

[evg_m]

    if ocherednost=0 then begin
      ocherednost:=polovina;
      k:=1; //теперь запишем 1 
    end; //а КАК мы вернемся к записям 0 НА ЭТОЙ строке???

вот и получается 0011111

в цикле { for j:=0 to strok-1 do } НЕТ установки k в ноль чтобы мочь записать 0 после 1