// Sortowanie metodą Shella
//-------------------------
// (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 <time.h>

using namespace std;

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

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

int main()
{
  int d[N],h,i,j,x;

  cout << " Sortowanie metoda Shella\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ść

  srand((unsigned)time(NULL));

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

// Wyznaczamy wartość początkowego przesunięcia

  for(h = 1; h < N; h = 3 * h + 1);
  h /= 9;
  if(!h) h++; // istotne dla małych N,
              // dla większych można pominąć!

// Sortujemy

  while(h)
  {
    for(j = N - h - 1; j >= 0; j--)
    {
      x = d[j];
      i = j + h;
      while((i < N) && (x > d[i]))
      {
        d[i - h] = d[i];
        i += h;
      }
      d[i - h] = x;
    }
    h /= 3;
  }

// 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 Metodą Shella
//-------------------------
// (C)2012 mgr Jerzy Wałaszek
// I Liceum Ogólnokształcące
// im. K. Brodzińskiego
// w Tarnowie

program Shell_Sort;

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

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

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

var
  h,i,j,x : integer;
begin
  writeln(' Sortowanie metoda Shella ');
  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;

// Wyznaczamy wartość początkowego przesunięcia

  h := 1;
  repeat
    h := 3 * h + 1;
  until h >= N;
  h := (h div 9);
  if h = 0 then h := 1; // istotne dla małych N,
                        // dla większych można
                        // pominąć!

// Sortujemy

  while h > 0 do
  begin
    for j := N - h downto 1 do
    begin
      x := d[j];
      i := j + h;
      while (i <= N) and (x > d[i]) do
      begin
        d[i - h] := d[i];
        inc(i, h);
      end;
      d[i - h] := x;
    end;
    h := h div 3;
  end;

// 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 Metodą Shella
'-------------------------
' (C)2012 mgr Jerzy Wałaszek
' I Liceum Ogólnokształcące
' im. K. Brodzińskiego
' w Tarnowie
  
CONST N = 20 ' Liczebność zbioru.

DIM AS INTEGER d(1 TO N),h,i,j,x

PRINT " Sortowanie metoda Shella "
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 * 100)
NEXT
PRINT "Przed sortowaniem:"
PRINT
FOR i = 1 TO N
  PRINT USING "####"; d(i);
NEXT
PRINT
PRINT

' Wyznaczamy wartość
' początkowego przesunięcia

h = 1
DO
  h = 3 * h + 1
LOOP UNTIL h >= N
h = INT(h / 9)
IF h = 0 THEN h = 1 ' istotne dla małych N,
                    ' dla większych można
                    ' pominąć!
' Sortujemy

WHILE h > 0
  FOR j = N - h TO 1 STEP -1
    x = d(j)
    i = j + h
    WHILE (i <= N) AND (x > d(i))
      d(i - h) = d(i)
      i = i + h
    WEND
    d(i - h) = x
  NEXT
  h = INT(h / 3)
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

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

import random

n = 20 # Liczebność zbioru.

d = [random.randrange(100) for i in range(n)]

print(" Sortowanie metodą Shella ")
print("--------------------------")
print("  (C)2026 Jerzy Walaszek  ")
print()

# wyświetlamy d[]

print("Przed sortowaniem:")
print()
for i in range(n):
    print("%4d" % (d[i]),end="")
print()
print()

# Wyznaczamy wartość
# początkowego przesunięcia

h = 1
while h < n:
    h = 3 * h + 1
h //= 9
if h == 0: h = 1 # istotne dla małych N,
                 # dla większych można
                 # pominąć!
# Sortujemy

while h:
    for j in reversed(range(n - h)):
        x = d[j]
        i = j + h
        while (i < n) and (x > d[i]):
            d[i - h] = d[i]
            i += h
        d[i - h] = x
    h //= 3

# 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 Metodą Shella
          </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 Metodą Shella
//-------------------------
// (C)2005 mgr Jerzy Wałaszek
// I Liceum Ogólnokształcące
// im. K. Brodzińskiego
// w Tarnowie

var N = 20;

function main()
{
  var d = new Array(N);
  var h,i,j,x,t;

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

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

  // Wyznaczamy początkowe
  // przesunięcie

  for(h = 1;
      h < N;
      h = 3 * h + 1);
  h = Math.floor(h / 9);
  if(!h) h++;

  // Sortujemy
  while(h)
  {
    for(j = N - h - 1;
        j >= 0;
        j--)
    {
      x = d[j];
      i = j + h;
      while((i < N) &&
            (x > d[i]))
      {
        d[i - h] = d[i];
        i += h;
      }
      d[i - h] = x;
    }
    h = Math.floor(h / 3);
  }
    
  // 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>