; SORTIEREN2.BB
Graphics 640,480
Dim A(10)
For I=1 To 10
 A(I) = Rand(100)
 Write A(I) + " "
Next
;
For I = 1 To 10
 For J = I To 10
  If A(I) > A(J) Then
   X = A(I) : A(I) = A(J) : A(J) = X
   Print
   For Y=1 To 10
    Write A(Y) + " "
   Next
  EndIf
 Next
Next
WaitKey

// ************************************************************************ //
// *                                                                      * //
// *  Autor:         Jörg Müller                                          * //
// *  Datum:         02.01.2004                                           * //
// *  Dateiname:     main.cpp                                             * //
// *  Zweck:         Hauptcode des Programmes                             * //
// *  Programm:      Array Sortierung mit Insertion Sort                  * //
// *                 und Kombination mit Shell Sort                       * //
// *                                                                      * //
// ************************************************************************ //

// *********************** Include Dateien ******************************** //
#include <iostream>
using namespace std;
#include <limits.h>

// *********************** Hauptfunktion des Programmes ******************* //
int main()
{
   // Anzahl der Daten im Array = Größe
   const int N = 1000;
   // Array deklarieren
   int a[N];
   // Hilfsvariablen
   int j, t;

   // Stepvariable für die Sortierung
   int step=1;
   
   // Array mit zufälligen Daten füllen, ohne Saat der Zufallszahlen zu bestimmen
   {
      for(int i=0; i < N; ++i)
         a[i] = rand()%10001;
   }
   
   // Stepwert suchen
   while(step<N)
      step = step*3+1;
   
   do // while(step > 0)
   {
      // Schritvariable verkleinern
      step = (step - 1) / 3;

      // Nacheinander die Elemente durchgehen
      for(int k=0; k<step; ++k)
      {
         // Alle Arrayelemente durchgehen
         //for (int i = k; i <= N; i += step)
         for (int i = k; i < N; i += step)
         {
            // Zählvariable für die While Schleife initialisieren
            j = i;
            // Aktuelles Element (welches Sortiert wird merken)
            t = a[j];
            // Elemente solange nach vor schieben, bis das zu Sortierende Element
            while (a[j-step] > t && j > step-1)
            {
               a[j] = a[j-step];
               j = j-step;
            }

            // Nachdem alle Werte vorgeschoben wurden, aktuellen Wert einsetzen
            a[j] = t;
         }
      }


   } while(step > 0);
   
   // Sortieren Array ausgeben
   for(int i=0; i < N; ++i)
      cout << (i+1) << ": " << a[i] << endl;

   return 0;

}

// *********************** Ende des Programmes **************************** //