Das Skat-Projekt

[tankm26]

So, die Buben werden jetzt richtig sortiert. Geht das eleganter?

Wie bekomme ich die Karten wieder in ihre ursprüngliche Reihenfolge?
edit: damit z.B.

Procedure SelectionSort;
var i, j, min : Integer;
Begin
For i:= 1 to N-1 Do
Begin
min:= i;
For j:= i+1 To N Do
If (Data[j] < Data[min]) Then min:= j;

SwapValues( i, min);
End;
End;


Das war jetz' zulang (Bubensortier-Code)