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

#include <cmath>
#include <iostream>
#include <iomanip>
#include <cstdlib>
#include <ctime>

using namespace std;

const int N = 6; // Liczebność zbioru. Nie wstawiaj liczb
                 // większych od 9, bo możesz się nie
                 // doczekać rozwiązania
int d[N];

// Funkcja sprawdzająca uporządkowanie w zbiorze
//-----------------------------------------------------
bool Posortowane()
{
  int i;

  for(i = 0; i < N - 1; i++) if(d[i] > d[i+1]) return false;
  return true;
}

// Procedura tasująca zbiór
//-------------------------
void Tasuj()
{
  int i,i1,i2;

  for(i = 1; i <= 3 * N; i++)
  {
    i1 = rand() % N; i2 = rand() % N;
    swap(d[i1], d[i2]);
  }
}

//******************************************************

int main()
{
  int i;

  cout << "Sortowanie  zwariowane\n"
          "----------------------\n"
          "(C)2005 Jerzy Walaszek\n\n";

// Najpierw wypełniamy tablicę d[] liczbami pseudolosowymi
// a następnie wyświetlamy jej zawartość

  srand((unsigned)time(NULL));

  for(i = 0; i < N; i++) d[i] = rand() % 10000;
  cout << "Przed sortowaniem:\n\n";
  for(i = 0; i < N; i++) cout << setw(6) << d[i];
  cout << endl << endl;

// Sortujemy

  while(!Posortowane()) Tasuj();

// Wyświetlamy wynik sortowania

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

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

program Bogo_Sort;

const N = 6; // Liczebność zbioru. Nie wstawiaj liczb
             // większych od 9, bo możesz się nie
             // doczekać rozwiązania
var
  d : array[1..N] of integer;

// Funkcja sprawdzająca uporządkowanie w zbiorze
//-----------------------------------------------------
function Posortowane : boolean;
var
  i : integer;
begin
  for i := 1 to N - 1 do
    if d[i] > d[i+1] then
    begin
      Posortowane := false; Exit;
    end;
  Posortowane := true;
end;

// Procedura tasująca zbiór
//-------------------------
procedure Tasuj;
var
  i,i1,i2,x : integer;
begin
  for i := 1 to 3 * N do
  begin
    i1 := 1 + random(N); i2 := 1 + random(N);
    x := d[i1]; d[i1] := d[i2]; d[i2] := x;
  end;
end;

// Program główny
//---------------

var
  i : integer;
begin
  writeln('Sortowanie  zwariowane');
  writeln('----------------------');
  writeln('(C)2005 Jerzy Walaszek');
  writeln;

// Najpierw wypełniamy tablicę d[] liczbami pseudolosowymi
// a następnie wyświetlamy jej zawartość

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

// Sortujemy

  while not Posortowane do Tasuj;

// Wyświetlamy wynik sortowania

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

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

  OPTION EXPLICIT

  CONST N = 8  ' Liczebność zbioru. Nie wstawiaj liczb
               ' większych od 9, bo możesz się nie
               ' doczekać rozwiązania

  DIM SHARED d(1 TO N) AS INTEGER

  DECLARE FUNCTION Posortowane() AS INTEGER

  DECLARE SUB Tasuj()

' Program główny
' --------------

  DIM i AS INTEGER

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

' Najpierw wypełniamy tablicę d[] liczbami pseudolosowymi
' a następnie wyświetlamy jej zawartość

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

' Sortujemy

  WHILE Posortowane() = 0: Tasuj(): WEND

' Wyświetlamy wynik sortowania

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

' Funkcja sprawdzająca uporządkowanie w zbiorze
'-----------------------------------------------------
PUBLIC FUNCTION Posortowane() AS INTEGER

  DIM  i AS INTEGER

  FOR i = 1 TO N - 1
    IF d(i) > d(i+1) THEN
      Posortowane = 0: EXIT FUNCTION
    END IF
  NEXT
  Posortowane = 1

END FUNCTION

' Procedura tasująca zbiór
'-------------------------
PUBLIC SUB Tasuj()

  DIM i AS INTEGER, i1 AS INTEGER, i2 AS INTEGER

  FOR i = 1 TO 3 * N
    i1 = 1 + INT(RND * N)
    i2 = 1 + INT(RND * N)
    SWAP d(i1), d(i2)
  NEXT

END SUB

<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="frmbogosort">
      <h3 style="text-align: center">Sortowanie Zwariowane</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 Zwariowane
//--------------------------------------------------------
// (C)2012 mgr Jerzy Wałaszek
// I Liceum Ogólnokształcące
// im. K. Brodzińskiego
// w Tarnowie
//--------------------------------------------------------

var N = 8; // Liczebność zbioru. Nie wstawiaj liczb
           // większych od 9, bo możesz się nie
           // doczekać rozwiązania

var d = Array(N);

// Funkcja sprawdzająca uporządkowanie w zbiorze
//-----------------------------------------------------
function Posortowane()
{
  var i;

  for(i = 0; i < N - 1; i++) if(d[i] > d[i+1]) return false;
  return true;
}

// Procedura tasująca zbiór
//-------------------------
function Tasuj()
{
  var i,i1,i2,x;

  for(i = 1; i <= 3 * N; i++)
  {
    i1 = Math.floor(Math.random() * N); i2 = Math.floor(Math.random() * N);
    x = d[i1]; d[i1] = d[i2]; d[i2] = x;
  }
}

//******************************************************

function main()
{
  var i,t;

// Najpierw wypełniamy tablicę d[] liczbami pseudolosowymi

  for(i = 0; i < N; i++) d[i] = Math.floor(Math.random() * 10000);
  t = "Przed sortowaniem:<BR><BR>";
  for(i = 0; i < N; i++) t += d[i] + " ";
  t += "<BR><BR>";

// Sortujemy

  while(!Posortowane()) Tasuj();

// Wyświetlamy wynik sortowania

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

  </body>
</html>