{ Programm: Sort.Pas                             }
{ Funktion: Laedt die einzelnen Module ein und   }
{           sortiert das zuvor belegte TestArray }
{ Autor: Ralf Schoessler-Niebergall              }
{ (c) CPC International                          }

Program SortTester;

Const Size = 100;   { Groesse des TestArrays }
Type StudentArray = Array [1..size] of Integer;
     Student      = Integer; { Art der Daten }

Var TestArray:   StudentArray;
    Loop:        Integer; { Schleifenvariable }

{$IBubble.Inc}         { Einbinden der einzelnen }
{$ISelect.Inc}         { Sortierverfahren        }
{$IInsert.Inc}
{$IHeap.Inc}
{$IQuick.Inc}
{$IShell.Inc}

Procedure Fill;       { Fuellt das TestArray mit }
Begin                 { Integer-Werten }
 For Loop:=1 To Size do
  TestArray[Loop]:=Random(Size)+1;
 WriteLn('Shuffling');
End;

Procedure Output; { Ausgabe der Werte auf Bild- }
Begin             { schirm }
 For Loop:=1 to Size Do
 Begin
  Write (TestArray[Loop]:6,' : ');
 End;
 WriteLn;
End;

Begin                               { SortTester }

 ClrScr; Fill; Output;       { BubbleSort }
 WriteLn('BubbleSorting');
 BubbleSort(TestArray,Size);
 WriteLn('Ready');
 OutPut;

 ClrScr; Fill; Output;       { SelectSort }
 WriteLn('SelectSorting');
 SelectSort(TestArray,Size);
 WriteLn('Ready');
 Output;

 ClrScr; Fill; OutPut;       { InsertSort }
 WriteLn('InsertSorting');
 InsertSort(TestArray,Size);
 WriteLn('Ready');
 Output;

 ClrScr; Fill; OutPut;         { HeapSort }
 WriteLn('HeapSorting');
 HeapSort(TestArray,Size);
 WriteLn('Ready');
 Output;

 ClrScr; Fill; OutPut;        { QuickSort }
 WriteLn('QuickSorting');
 QuickSort(TestArray, Size);
 WriteLn('Ready');
 Output;

 ClrScr; Fill; OutPut;        { ShellSort }
 WriteLn('ShellSorting');
 ShellSort(TestArray,Size);
 WriteLn('Ready');
 OutPut;

 Repeat Until KeyPressed;
End.

{ Ende Sort.Pas	}