// Generowanie wszystkich wyrazów kodu Graya
//         o zadanej liczbie bitów
//------------------------------------------
// (C)2005 mgr Jerzy Wałaszek
//                 I Liceum Ogólnokształcące
//                 im. K. Brodzińskiego
//                 w Tarnowie
//------------------------------------------

#include <iostream>
#include <string>

using namespace std;

// W tablicy WyrazyGraya tworzone będą kolejne
// wyrazy kodowe. Tablica ta musi posiadać tyle
// elementów, ile jest wszystkich wyrazów kodu.

unsigned WyrazyGraya[65536];

// Funkcja oblicza potęgę liczby 2
//--------------------------------
unsigned Pot2(unsigned n)
{
  unsigned p;

  p = 1;
  while(n-- > 0) p += p;
  return(p);
}

// Rekurencyjna procedura generacji wyrazów kodu Graya
//----------------------------------------------------
void Gray(unsigned n)
{
  unsigned i, p;

  if(n == 1)
  {
    WyrazyGraya[0] = 0;
    WyrazyGraya[1] = 1;
  }
  else
  {
    Gray(n - 1); // wyznaczamy poprzednie wyrazy
    p = Pot2(n - 1);
    for(i = p; i < p + p; i ++)
      WyrazyGraya[i] = p + WyrazyGraya[p + p - i - 1];
  };
}

// Procedura wyświetlająca zawartość tablicy WyrazyGraya
//------------------------------------------------------
void Pisz(unsigned n)
{
  unsigned i, j, kg, p;
  string s;

  p = Pot2(n);
  for(i = 0; i < p; i++)
  {
    s  = "";
    kg = WyrazyGraya[i];
    for(j = 1; j <= n; j++)
    {
      s  = (char)(48 + kg % 2) + s;
      kg /= 2;
    };
    cout << s << endl;
  };
}

main()
{
  unsigned n;
  char z[1];

  cout << "Generacja kodu Gray'a\n"
          "---------------------\n"
          "(C)2005 J.Walaszek\n"
          "      I LO w Tarnowie\n\n"
          "Ile bitow (1..16) ? ";
  cin >> n;
  cout << endl;
  if((n < 1) || (n > 16))
    cout << "Niepoprawna liczba bitow n!";
  else
  {
    Gray(n); Pisz(n);
  };
  cout << "\n\nNacisnij ENTER...\n";
  cin.getline(z,1);
  cin.getline(z,1);
}

// Generowanie wszystkich wyrazów kodu Graya
//         o zadanej liczbie bitów
//------------------------------------------
// (C)2005 mgr Jerzy Wałaszek
//                 I Liceum Ogólnokształcące
//                 im. K. Brodzińskiego
//                 w Tarnowie
//------------------------------------------

program KodGraya;

{$APPTYPE CONSOLE}

// W tablicy WyrazyGraya tworzone będą kolejne
// wyrazy kodowe. Tablica ta musi posiadać tyle
// elementów, ile jest wszystkich wyrazów kodu.

var
  WyrazyGraya : array[0..65535] of word;

// Funkcja oblicza potęgę liczby 2
//--------------------------------
function Pot2(n : cardinal) : cardinal;
var
  p : cardinal;
begin
  p := 1;
  while n > 0 do
  begin
    p := p + p;
    dec(n);
  end;
  Pot2 := p;
end;

// Rekurencyjna procedura generacji wyrazów kodu Graya
//----------------------------------------------------
procedure Gray(n : cardinal);
var
  i,p : cardinal;
begin
  if n = 1 then
  begin
    WyrazyGraya[0] := 0;
    WyrazyGraya[1] := 1;
  end
  else
  begin
    Gray(n - 1); // wyznaczamy poprzednie wyrazy
    p := Pot2(n - 1);
    for i := p  to p + p - 1 do
      WyrazyGraya[i] := p + WyrazyGraya[p + p - i - 1];
  end;
end;

// Procedura wyświetlająca zawartość tablicy WyrazyGraya
//------------------------------------------------------
procedure Pisz(n : cardinal);
var
  i,j,kg : cardinal;
  s      : string;
begin
  for i := 0 to Pot2(n) - 1 do
  begin
    s  := '';
    kg := WyrazyGraya[i];
    for j := 1 to n do
    begin
      s  := char(48 + kg mod 2) + s;
      kg := kg div 2;
    end;
    writeln(s);
  end;
end;

var
  n : cardinal;
begin
  writeln('Generacja kodu Gray''a');
  writeln('---------------------');
  writeln('(C)2005 J.Walaszek');
  writeln('      I LO w Tarnowie');
  writeln;
  write('Ile bitow (1..16) ? '); readln(n);
  writeln;
  if not(n in [1..16]) then
    writeln('Niepoprawna liczba bitow n!')
  else
  begin
    Gray(n); Pisz(n);
  end;
  writeln;
  write('Nacisnij klawisz Enter...'); readln;
end.

' Generowanie wszystkich wyrazów kodu Graya
'         o zadanej liczbie bitów
'------------------------------------------
' (C)2005 mgr Jerzy Wałaszek
'                 I Liceum Ogólnokształcące
'                 im. K. Brodzińskiego
'                 w Tarnowie
'------------------------------------------

Option Explicit On

Module Module1

  ' W tablicy WyrazyGraya tworzone będą kolejne
  ' wyrazy kodowe. Tablica ta musi posiadać tyle
  ' elementów, ile jest wszystkich wyrazów kodu.

  Dim WyrazyGraya(65536) As UShort

  ' Funkcja oblicza potęgę liczby 2
  '--------------------------------
  Public Function Pot2(ByVal n As UInteger) As UInteger
    Dim p As UInteger

    p = 1
    While n > 0
      p = p + p : n = n - 1
    End While
    Return p
  End Function

  ' Rekurencyjna procedura generacji wyrazów kodu Graya
  '----------------------------------------------------
  Public Sub Gray(ByVal n As UInteger)
    Dim i, p As UInteger

    If n = 1 Then
      WyrazyGraya(0) = 0
      WyrazyGraya(1) = 1
    Else
      Gray(n - 1)  ' wyznaczamy poprzednie wyrazy
      p = Pot2(n - 1)
      For i = p To p + p - 1
        WyrazyGraya(i) = p + WyrazyGraya(p + p - i - 1)
      Next
    End If
  End Sub

  ' Procedura wyświetlająca zawartość tablicy WyrazyGraya
  '------------------------------------------------------
  Public Sub Pisz(ByVal n As UInteger)
    Dim i, j, kg As UInteger
    Dim s As String

    For i = 0 To Pot2(n) - 1
      s = ""
      kg = WyrazyGraya(i)
      For j = 1 To n
        s = Chr(48 + kg Mod 2) + s
        kg = kg \ 2
      Next
      Console.WriteLine(s)
    Next
  End Sub

  Sub Main()

    Dim n As UInteger

    Console.WriteLine("Generacja kodu Gray'a")
    Console.WriteLine("---------------------")
    Console.WriteLine("(C)2005 J.Wałaszek")
    Console.WriteLine("      I LO w Tarnowie")
    Console.WriteLine()
    Console.Write("Ile bitów (1..16) ? ") : n = Val(Console.ReadLine())
    Console.WriteLine()
    If (n < 1) Or (n > 16) Then
      Console.WriteLine("Niepoprawna liczba bitów n!")
    Else
      Gray(n) : Pisz(n)
    End If
    Console.WriteLine()
    Console.WriteLine("KONIEC. Naciśnij dowolny klawisz...")
    Console.ReadLine()

  End Sub

End Module

<html>
  <head>
  </head>
  <body>
    <div align="center">
<form style="BORDER-RIGHT: #ff9933 1px outset;
             PADDING-RIGHT: 4px;
             BORDER-TOP: #ff9933 1px outset;
             PADDING-LEFT: 4px;
             PADDING-BOTTOM: 1px;
             BORDER-LEFT: #ff9933 1px outset;
             PADDING-TOP: 1px;
             BORDER-BOTTOM: #ff9933 1px outset;
             BACKGROUND-COLOR: #ffcc66" name="frmkody">
  <h3 style="text-align: center">
    Rekurencyjne wyznaczanie wyrazów<br>
    n-bitowego kodu Graya
  </h3>
  <p style="TEXT-ALIGN: center">
    (C)2005 mgr Jerzy Wałaszek&nbsp;&nbsp; I LO w Tarnowie
  </p>
  <hr>
  <div align="center">
    <table border="0" cellpadding="4" style="border-collapse: collapse">
    <tr>
      <td align="right">Liczba bitów n (1...16) =</td>
      <td>
        <input value="4" name="inp_n" size="10" style="text-align: right">
      </td>
    </tr>
  </table>
  </div>
  <p style="TEXT-ALIGN: center">
    <input onclick="main();" type="button" value="Oblicz wyrazy kodu Gray'a"
           name="B13">
  </p>
  <p id="out_t" style="TEXT-ALIGN: center">...</p>
</form>

<script language="javascript">

// Generowanie wszystkich wyrazów kodu Graya
// o zadanej liczbie bitów
//------------------------------------------
// (C)2005 mgr Jerzy Wałaszek
// I Liceum Ogólnokształcące
// im. K. Brodzińskiego
// w Tarnowie
//------------------------------------------

// W tablicy WyrazyGraya tworzone będą kolejne
// wyrazy kodowe. Tablica ta musi posiadać tyle
// elementów, ile jest wszystkich wyrazów kodu.

var WyrazyGraya = new Array();

// Funkcja oblicza potęgę liczby 2
//--------------------------------
function Pot2(n)
{
  var p;

  p = 1;
  while(n-- > 0) p += p;
  return(p);
}

// Rekurencyjna procedura generacji wyrazów kodu Graya
//----------------------------------------------------
function Gray(n)
{
  var i,p;

  if(n == 1)
  {
    WyrazyGraya[0] = "0";
    WyrazyGraya[1] = "1";
  }
  else
  {
    Gray(n - 1); // wyznaczamy poprzednie wyrazy
    p = Pot2(n - 1);

// Uwaga - bardzo ważna jest kolejność tych pętli !!!

    for(i = p; i < p + p; i ++)
      WyrazyGraya[i] = "1" + WyrazyGraya[p + p - i - 1];

    for(i = 0; i < p; i++)
      WyrazyGraya[i] = "0" + WyrazyGraya[i]; 
  };
}

// Procedura wyświetlająca zawartość tablicy WyrazyGraya
//------------------------------------------------------
function Pisz(n)
{
  var i,p,t;

  t = "";
  p = Pot2(n);
  for(i = 0; i < p; i++) t += WyrazyGraya[i] + " ";
  document.getElementById("out_t").innerHTML = t;
}

function main()
{
  var n;

  n = parseInt(document.frmkody.inp_n.value);
  if(isNaN(n) || (n < 1) || (n > 16))
    document.getElementById("out_t").innerHTML =
       "<font color=Red><b>Niepoprawna ilość bitów</b></font>";
  else
  {
    Gray(n); Pisz(n);
  };
}

</script>
    </div>
  </body>
</html>