// Sortowanie Szybkie
//-------------------
// (C)2012 mgr Jerzy Wałaszek
// I Liceum Ogólnokształcące
// w Tarnowie

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

using namespace std;

const int N = 20; // Liczebność zbioru.

int d[N];

// Procedura sortowania szybkiego
//-------------------------------

void Sortuj_szybko(int lewy, int prawy)
{
  int i,j,piwot;

  i = (lewy + prawy) / 2;
  piwot = d[i];
  d[i] = d[prawy];
  for(j = i = lewy; i < prawy; i++)
    if(d[i] < piwot)
    {
      swap(d[i], d[j]);
      j++;
    }
  d[prawy] = d[j];
  d[j] = piwot;
  if(lewy < j - 1)  Sortuj_szybko(lewy, j - 1);
  if(j + 1 < prawy) Sortuj_szybko(j + 1, prawy);
}

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

int main()
{
  int i;

  srand((unsigned)time(NULL));

  cout << "   Sortowanie szybkie\n"
          "------------------------\n"
          " (C)2005 Jerzy Walaszek \n\n"
          "Przed sortowaniem:\n\n";

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

  for(i = 0; i < N; i++)
    d[i] = rand() % 100;
  for(i = 0; i < N; i++)
    cout << setw(4) << d[i];
  cout << endl << endl;

  // Sortujemy

  Sortuj_szybko(0,N - 1);

  // Wyświetlamy wynik sortowania

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

// Sortowanie Szybkie
//-------------------
// (C)2012 mgr Jerzy Wałaszek
// I Liceum Ogólnokształcące
// w Tarnowie

program Quick_Sort;

const N = 20; // Liczebność zbioru.

var
  d : array[1..N] of integer;

// Procedura sortowania szybkiego
//-------------------------------

procedure Sortuj_szybko(lewy, prawy : integer);
var
  i,j,piwot,x : integer;
begin
  i := (lewy + prawy) div 2;
  piwot := d[i];
  d[i] := d[prawy];
  j := lewy;
  for i := lewy to prawy - 1 do
    if d[i] < piwot then
    begin
      x := d[i];
      d[i] := d[j];
      d[j] := x;
      inc(j);
    end;
  d[prawy] := d[j];
  d[j] := piwot;
  if lewy < j - 1 then
    Sortuj_szybko(lewy, j - 1);
  if j + 1 < prawy then
    Sortuj_szybko(j + 1, prawy);
end;

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

var
  i : integer;
begin
  writeln('   Sortowanie szybkie');
  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(100);
  writeln('Przed sortowaniem:');
  writeln;
  for i := 1 to N do
    write(d[i] : 4);
  writeln;
  writeln;

  // Sortujemy

  Sortuj_szybko(1,N);

  // Wyświetlamy wynik sortowania

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

' Sortowanie szybkie
'-------------------
' (C)2012 mgr Jerzy Wałaszek
' I Liceum Ogólnokształcące
' w Tarnowie

DECLARE SUB Sortuj_szybko(lewy AS INTEGER,_
                          prawy AS INTEGER)

CONST N = 20 ' liczebność zbioru
DIM SHARED d(N) AS INTEGER
DIM i AS INTEGER

PRINT "  Sortowanie  szybkie"
PRINT "-----------------------"
PRINT "(C)2005  Jerzy Walaszek"
PRINT
PRINT "Przed sortowaniem:"
PRINT

' Wypełniamy tablicę liczbami
' pseudolosowymi i wyświetlamy je

RANDOMIZE
FOR i = 1 TO N
  d(i) = INT(RND * 100)
  PRINT USING "####";d(i);
NEXT
PRINT
PRINT

' Sortujemy

Sortuj_szybko(1,N)

' 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

' Procedura sortowania szybkiego
'-------------------------------

SUB Sortuj_szybko(lewy AS INTEGER, _
                  prawy AS INTEGER)

DIM AS INTEGER i, j, piwot

  i = (lewy + prawy) \ 2
  piwot = d(i)
  d(i) = d(prawy)
  j = lewy
  FOR i = lewy TO prawy - 1
    IF d(i) < piwot THEN
      SWAP d(i), d(j)
      j += 1
    END IF
  NEXT
  d(prawy) = d(j)
  d(j) = piwot
  IF lewy < j - 1  THEN _
    Sortuj_szybko(lewy, j - 1)
  IF j + 1 < prawy THEN _
    Sortuj_szybko(j + 1, prawy)

END SUB

# Sortowanie szybkie
#-------------------
# (C)2012 mgr Jerzy Wałaszek
# I Liceum Ogólnokształcące
# w Tarnowie

import random

n = 20 # liczebność zbioru
d = [random.randrange(100) for i in range(n)]

# Procedura sortowania szybkiego
#-------------------------------

def sortuj_szybko(lewy,prawy):
    i = (lewy + prawy) // 2
    piwot = d[i]
    d[i] = d[prawy]
    j = lewy
    for i in range(lewy,prawy):
        if d[i] < piwot:
            d[i],d[j] = d[j],d[i]
            j += 1
    d[prawy] = d[j]
    d[j] = piwot
    if lewy < j - 1:
        sortuj_szybko(lewy, j - 1)
    if j + 1 < prawy:
        sortuj_szybko(j + 1, prawy)

# program główny

print(" Sortowanie  szybkie")
print("---------------------")
print("(C)2026 Jerzy Wałaszek")
print()
print("Przed sortowaniem:")
print()
for i in range(n):
    print("%4d" % (d[i]),end="")
print()
print()

# Sortujemy

sortuj_szybko(0,n - 1)

# Wyświetlamy wynik sortowania

print("Po sortowaniu:")
print()
for i in range(n):
    print("%4d" % (d[i]),end="")
print()
print()
input("Naciśnij Enter...")

<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="frmquicksort">
      <h3 style="text-align: center">Sortowanie Szybkie</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 Szybkie
//-------------------
// (C)2012 mgr Jerzy Wałaszek
// I Liceum Ogólnokształcące
// w Tarnowie

var N = 20; // Liczebność zbioru.
var d = new Array(N)

// Procedura sortowania szybkiego
//-------------------------------

function Sortuj_szybko(lewy, prawy)
{
  var i,j,piwot,x;

  i = Math.floor((lewy + prawy) / 2);
  piwot = d[i]; d[i] = d[prawy];
  for(j = i = lewy; i < prawy; i++)
  if(d[i] < piwot)
  {
    x = d[i]; d[i] = d[j]; d[j] = x;
    j++;
  }
  d[prawy] = d[j]; d[j] = piwot;
  if(lewy < j - 1)  Sortuj_szybko(lewy, j - 1);
  if(j + 1 < prawy) Sortuj_szybko(j + 1, prawy);
}

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

function main()
{
  var i,t;

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

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

// Sortujemy

  Sortuj_szybko(0, N - 1);

// Wyświetlamy wynik sortowania

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

</script> 

  </body>
</html>