// Binarne Sortowanie Przez Wstawianie
//------------------------------------
// (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],i,j,ip,ik,x;

  cout << " Binarne sortowanie przez wstawianie\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 << endl;

// Sortujemy

  for(j = N - 2; j >= 0; j--)
  {
    x  = d[j];
    ip = j;
    ik = N;
    while(ik - ip > 1)
    {
      i = (ip + ik) / 2;
      if(x <= d[i]) ik = i; else ip = i;
    }
    for(i = j; i < ip; i++) d[i] = d[i + 1];
    d[ip] = x;
  }

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

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

program Insertion_Sort;

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

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

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

var
  i,j,x,ip,ik : integer;
begin
  writeln(' Binarne sortowanie przez wstawianie ');
  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

  for j := N - 1 downto 1 do
  begin
    x := d[j];
    ip := j;
    ik := N + 1;
    while ik - ip > 1 do
    begin
      i := (ip + ik) div 2;
      if x <= d[i] then
        ik := i
      else
        ip := i;
    end;
    for i := j to ip - 1 do
      d[i] := d[i + 1];
    d[ip] := x;
  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.

' Binarne Sortowanie Przez Wstawianie
'------------------------------------
' (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),i,j,x,ip,ik

PRINT " Binarne sortowanie przez wstawianie "
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

' Sortujemy

FOR j = N - 1 TO 1 STEP -1
  x = d(j)
  ip = j
  ik = N + 1
  WHILE ik - ip > 1
    i = INT((ip + ik) / 2)
    IF x < d(i) THEN
      ik = i
    ELSE
      ip = i
    END IF
  WEND
  FOR i = j TO ip - 1
    d(i) = d(i + 1)
  NEXT
  d(ip) = x
NEXT

' 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

# Binarne Sortowanie Przez Wstawianie
#------------------------------------
# (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(" Binarne sortowanie przez wstawianie ")
print("-------------------------------------")
print("       (C)2026  Jerzy Wałaszek       ")
print()

# wyświetlamy d[]

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

# Sortujemy

for j in reversed(range(n)):
    x = d[j]
    ip = j
    ik = n
    while ik - ip > 1:
        i = int((ip + ik) / 2)
        if x < d[i]:
            ik = i
        else:
            ip = i
    for i in range(j,ip):
        d[i] = d[i + 1]
    d[ip] = x

# 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="frmbinaryinsertionsort">
      <h3 style="text-align: center">Binarne Sortowanie Przez Wstawianie</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>

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

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

function main()
{
  var d = new Array(N);
  var i,j,ip,ik,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>";

  // Sortujemy

  for(j = N - 2; j >= 0; j--)
  {
    x  = d[j];
    ip = j;
    ik = N;
    while(ik - ip > 1)
    {
      i = Math.floor((ip + ik) / 2);
      if(x <= d[i]) ik = i; else ip = i;
    }
    for(i = j; i < ip; i++) d[i] = d[i + 1];
    d[ip] = x;
  }

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