Gray码生成

方法一：

(1) 1阶Gray码是 0, 1;

(2) 设n>1, 且n-1阶Gray码已定义好,

      将n-1阶Gray码顺序列一遍, 接下来

      将n-1阶Gray码反序列一遍,

      顺序列的码每个前面添0,

      反序列的码每个前面添1.

var

  n,s,i,s1,k,j:longint;

  a:array[0..1000] of longint;

   procedure a10(x,dep:longint);

var

  i:longint;

begin

  if x<>0

  then begin

       a10(x div 2,dep+1);

       write(x mod 2);

       end;

  if x=0

  then begin

         for i:=1 to n-dep+1 do

           write(0);

       end;

end;

begin

  read(n);

  a[1]:=0;

  s:=1;

  for i:=1 to n do

    begin

      s1:=s;

      s:=s*2;

      k:=s1;

      for j:=s1 downto 1 do

        begin

          inc(k);

          a[k]:=a[j]+s1;

        end;

    end;

  for i:=1 to s do

    begin

      a10(a[i],1);

      writeln;

    end;

end.

方法2：

例如：二进制码0101，为4位数，所以其所转为之格雷码也必为4位数，因此可取转成之二进位码第五位为0，即0 b3 b2 b1 b0。

0 xor 0=0，所以g3=0

0 xor 1=1，所以g2=1

1 xor 0=1，所以g1=1

0 xor 1=1，所以g0=1

因此所转换为之格雷码为0111 

var

  a:array[0..10000] of longint;

  s,i,n:longint;

  procedure a10(x,dep:longint);

var

  i:longint;

begin

  if x<>0

  then begin

       a10(x div 2,dep+1);

       write(x mod 2);

       end;

  if x=0

  then begin

         for i:=1 to n-dep+1 do

           write(0);

       end;

end;

  procedure gray(x:longint);

var

  s,x1,x2,i:longint;

begin

  s:=0;

  x1:=x;

  a[x]:=0;

  while x1<>0 do

    begin

      inc(s);

      x1:=x1 div 2;

    end;

  for i:=1 to s do

    begin

      x1:=x and (1<<(i-1));

      x1:=(x1<<(s-i))>>(s-1);

      x2:=x and (1<<i);

      x2:=(x2<<(s-i-1))>>(s-1);

      a[x]:=a[x]+((x1 xor x2)<<(i-1));

   end;

  a10(a[x],1);

  writeln;

end;

begin

  read(n);

  s:=1;

  for i:=1 to n do

    s:=s*2;

  for i:=0 to s-1 do

    gray(i);

end.