// 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>

<div style="overflow-x: auto;"
     align="center">
  <table
  border="0"
  cellpadding="4"
  style="border-collapse:
         collapse">
    <tr>
      <td nowrap>
        <form
        name="frm"
        style="text-align:
               center;
               background-color:
               #E7E7DA">
          <b>
          Sortowanie Szybkie
          </b><br/>
          &nbsp;&nbsp;
          (C)2026 mgr
          Jerzy Wałaszek
          &nbsp;&nbsp;
          <hr/>
          <input
          onclick="main()"
          value="Sortuj"
          name="B1"
          type="button">
          <hr/>
          <div id="out">.</div>
        </form>
      </td>
    </tr>
  </table>
</div>

<script language="javascript">

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

var N = 20;
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] + " ";
  t += "<br/><br/>";

  // Sortujemy
  Sortuj_szybko(0, N - 1);

  // Wyświetlamy wynik
  // sortowania
  t += "Po sortowaniu:" +
       "<br/><br/>";
  for(i = 0; i < N; i++)
    t += d[i] + " ";
  document.getElementById("out")
  .innerHTML = t
}

</script>

  </body>
</html>