// Sortowanie Pozycyjne
//--------------------------------------------------------
// (C)2012 mgr Jerzy Wałaszek
// I Liceum Ogólnokształcące
// im. K. Brodzińskiego
// w Tarnowie
//--------------------------------------------------------

#include <iostream>
#include <iomanip>
#include <cstdlib>
#include <time.h>

using namespace std;

const int N     =  80;  // ilość elementów
const int MAXEL = 999;  // maksymalna wartość elementu

// Procedura sortująca

void Sortuj(unsigned z1[], unsigned z2[], unsigned m)
{
  unsigned L[2],i;

  L[0] = L[1] = 0;
  for(i = 1; i <= N; i++) L[(z1[i] & m) > 0]++;
  L[1] += L[0];
  for(i = N; i >= 1; i--) z2[L[(z1[i] & m) > 0]--] = z1[i];
}

int main()
{
  unsigned d[N+1],b[N+1],i,m;

  cout << "  Sortowanie pozycyjne  \n"
          "------------------------\n"
          " (C)2005 Jerzy Walaszek \n\n"
          "Przed sortowaniem:\n\n";
          
// Generujemy pseudolosową zawartość zbioru d[ ]

  srand((unsigned)time(NULL));

  for(i = 1; i <= N; i++)
  {
    d[i] = rand() % (MAXEL + 1);
    cout << setw(4) << d[i];
  }
  
// Ustawiamy maskę na najmłodszy bit

  m = 1;

// Sortujemy

  while(m <= MAXEL)
  {
    Sortuj(d,b,m); m <<= 1;
    Sortuj(b,d,m); m <<= 1;
  }

// Wyświetlamy wyniki

  cout << "\nPo sortowaniu:\n\n";
  for(i = 1; i <= N; i++) cout << setw(4) << d[i];
  cout << endl;
  return 0;
}

// Sortowanie Pozycyjne
//--------------------------------------------------------
// (C)2012 mgr Jerzy Wałaszek
// I Liceum Ogólnokształcące
// im. K. Brodzińskiego
// w Tarnowie
//--------------------------------------------------------

program RadixSort;

const
  N     =  80;  // ilość elementów
  MAXEL = 999;  // maksymalna wartość elementu

type
  TZbior = array[1..N] of cardinal;

// Procedura sortująca

procedure Sortuj(var z1,z2 : TZbior; m : cardinal);
var
  L : array[boolean] of cardinal;
  i : cardinal;
  t : boolean;
begin
  L[false] := 0; L[true] := 0;
  for i := 1 to N do inc(L[(z1[i] and m) > 0]);
  inc(L[true], L[false]);
  for i := N downto 1 do
  begin
    t := (z1[i] and m) > 0;
    z2[L[t]] := z1[i];
    dec(L[t]);
  end;
end;

var
  d,b : TZbior;
  i   : integer;
  m   : cardinal;

begin
  writeln('  Sortowanie pozycyjne  ');
  writeln('------------------------');
  writeln(' (C)2005 Jerzy Walaszek ');
  writeln;

// Generujemy pseudolosową zawartość zbioru d[ ]

  randomize;
  for i := 1 to N do d[i] := random(MAXEL + 1);
  writeln('Przed sortowaniem:');
  writeln;
  for i := 1 to N do write(d[i]:4);

// Ustawiamy maskę na najmłodszy bit

  m := 1;

// Sortujemy

  while m <= MAXEL do
  begin
    Sortuj(d,b,m); m := m shl 1;
    Sortuj(b,d,m); m := m shl 1;
  end;

// Wyświetlamy wyniki

  writeln;
  writeln('Po sortowaniu:');
  writeln;
  for i := 1 to N do write(d[i]:4);
  writeln;
  writeln('KONIEC. Nacisnij klawisz Enter...'); readln;
end.

' Sortowanie Pozycyjne
'--------------------------------------------------------
' (C)2012 mgr Jerzy Wałaszek
' I Liceum Ogólnokształcące
' im. K. Brodzińskiego
' w Tarnowie
'--------------------------------------------------------

OPTION EXPLICIT

CONST N     =  80  ' ilość elementów
CONST MAXEL = 999  ' maksymalna wartość elementu

' Procedura sortująca

DECLARE SUB Sortuj(z1() AS UINTEGER, z2() AS UINTEGER, BYVAL m AS UINTEGER)
SUB Sortuj(z1() AS UINTEGER, z2() AS UINTEGER, BYVAL m AS UINTEGER)

  DIM AS UINTEGER L0,L1,i
  
  L0 = 0: L1 = 0
  FOR i = 1 TO N
    IF (z1(i) AND m) > 0 THEN
      L1 += 1
    ELSE
      L0 += 1
    END IF
  NEXT
  L1 += L0
  FOR i = N TO 1 STEP -1
    IF (z1(i) AND m) > 0 THEN
      z2(L1) = z1(i): L1 -= 1
    ELSE
      z2(L0) = z1(i): L0 -= 1
    END IF
  NEXT
END SUB

DIM AS UINTEGER d(N),b(N),i,m

PRINT "  Sortowanie pozycyjne  "
PRINT "------------------------"
PRINT " (C)2005 Jerzy Walaszek "
PRINT

' Generujemy pseudolosową zawartość zbioru d( )

RANDOMIZE
FOR i = 1 TO N: d(i) = INT(RND(1) * (MAXEL + 1)): NEXT
PRINT "Przed sortowaniem:"
PRINT
FOR i = 1 TO N: PRINT USING "####"; d(i);: NEXT

' Ustawiamy maskę na najmłodszy bit

m = 1

' Sortujemy

WHILE m <= MAXEL
  Sortuj(d(),b(),m): m = m SHL 1
  Sortuj(b(),d(),m): m = m SHL 1
WEND

' Wyświetlamy wyniki

PRINT
PRINT "Po sortowaniu:"
PRINT
FOR i = 1 TO N: PRINT USING "####"; d(i);: NEXT
PRINT
PRINT "KONIEC. Nacisnij dowolny klawisz..."
SLEEP
END

<html>
  <head>
  </head>
  <body>
    <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="frmradixsort">
      <h3 style="text-align: center">Sortowanie Pozycyjne</h3>
      <p style="TEXT-ALIGN: center">
        (C)2012 mgr Jerzy Wałaszek - I LO w Tarnowie
      </p>
      <hr>
      <p style="TEXT-ALIGN: center">
        <input onclick="main()" type="button" value="Sortuj" name="B1">
      </p>
      <p id="t_out" style="TEXT-ALIGN: center">...</p>
    </form>

<script language=javascript>

// Sortowanie Pozycyjne
//--------------------------------------------------------
// (C)2012 mgr Jerzy Wałaszek
// I Liceum Ogólnokształcące
// im. K. Brodzińskiego
// w Tarnowie
//--------------------------------------------------------

var N     =  80; // ilość elementów
var MAXEL = 999; // maksymalna wartość elementu

// Procedura sortująca

function Sortuj(z1,z2,m)
{
  var L0,L1,i;

  L0 = L1 = 0;
  for(i = 1; i <= N; i++) if((z1[i] & m) > 0) L1++; else L0++;
  L1 += L0;
  for(i = N; i >= 1; i--)
    if((z1[i] & m) > 0) z2[L1--] = z1[i]; else z2[L0--] = z1[i]; 
}

function main()
{
  var d = new Array(N + 1);
  var b = new Array(N + 1);
  var i,m,t;

  t = "Przed sortowaniem:<BR><BR>";

// Generujemy pseudolosową zawartość zbioru d[ ]

  for(i = 1; i <= N; i++)
  {
    d[i] = Math.floor(Math.random() *(MAXEL + 1));
    t += " " + d[i];
  }

// Ustawiamy maskę na najmłodszy bit

  m = 1;

// Sortujemy

  while(m <= MAXEL)
  {
    Sortuj(d,b,m); m <<= 1;
    Sortuj(b,d,m); m <<= 1;
  }

// Wyświetlamy wyniki

  t += "<BR><BR>Po sortowaniu:<BR><BR>";
  for(i = 1; i <= N; i++) t += " " + d[i];
  document.getElementById("t_out").innerHTML = t;
}

</script> 

  </body>
</html>