Генерация кода Грея

[Merkator]

Помогите написать генерацию кода грея с задаваемой глубиной генерации.
Статья про код грея есть на википедии. Заранее спасибо.

[capta1n]

program gray;
var
 count : byte;
 str1,str2,str3 : string;
 i,l,m : byte;
 k,x : word;
begin

  assign (input,'grayIn.txt');
  assign (output,'grayOut.txt');
  reset (input);
  rewrite (output);

  readln (count);
  close(input);

  str3:='01';
  for i:=2 to count do
  begin
    if i=2 then
    begin
      str1:='01';
      str2:='10';
    end;
    x:=length(str1);
    l:=1;
    for m:=1 to i-1 do l:=2*l;
    k:=0;
    repeat
      inc (k,i);
      insert ('0',str1,k-i+1);
      insert ('1',str2,k-i+1);
    until k=x+l;
    str3:=str1+str2;
    str1:=str3;
    str2:='';
    k:=length(str1);
    repeat
      str2:=str2+copy(str1,k-i+1,i);
      dec(k,i)
    until k=0
    end;

  k:=1;
  for i:=1 to count do k:=k*2;
  for i:=1 to k do
  begin
    str1:=copy(str3,1,count);
    delete (str3,1,count);
    writeln (str1)
  end;

  close(output);
end.

можно сделать больше, но сейчас времени нет

[Merkator]

спасибо!
отзыв оставил!

[capta1n]

работает вроде да?? очень интересная задача, не то что эти дурацкие массивы - задолбали уже

[Merkator]

он берет 7 символов а дальше никак.
можешь объяснить алгоритм? а я его немного подкорректирую чтоб работал до 15.

[capta1n]

постараюсь объяснить в кратце - строка в паскале максимум может содержать 255 символов - в процессе выполнения очередного цикла строки становятся больше, причем похоже в экспоненциальной форме роста - поэтому когда дело доходит до 6 порядка, выполняется внутри так много циклов, что строка, когторая отвечается за одну половину кода грея начинает увеличиваться до 255 символов + еще символы, в общем переходит за грань, поэтому паскаль стопит - я могу доработать программу, чтобы она могла захватывать больше, а насчет алгоритма - так он описан между прочим Вами самое первое сообщение

[tempkis]

void GGen (int n, int A[]) //  n - размер кода 
{
    for (i=0; i<n; i++) A[i] = 0;
    i = 0;
    do {
        for (j=0; j<n; j++) printf(" %1d", A[j]); //вывод текущего подмножества
        i++; p = 0; j = i;
        while ( (j & 1) == 0) { j = j/2; p++; }
        if ( p < n ) A[p] = !A[p]; // инвертирование бита p
        printf(" - i=%2d j=%2d p=%2d", i, j, p); //отладочная информация
        printf("\n"); getch();
        } while ( p < n);
}