Dreistein

 


* Startseite     * Über...     * Archiv     * Gästebuch     * Kontakt



* Themen
     Willkommen
     Allgemeines
     * Variablen
     * Function
     * Procedure
     * String
     * Array
     FormObjekte
     * Button
     * CheckBox
     * Editfeld
     * Label
     * Listbox
     * RadioButton
     * Timer
     * Turtle
     Sortieralgorithmen
     * Arraysort
     * Bubblesort
     * Selection Sort
     * Quicksort
     Schleifen
     * repeat-Schleife
     * while-Schleife
     * for-Schleife
     Rekursion
     * Ackermann
     * Binominalkoeffizent
     * Fibonacci Zahlen
     * Fakultät
     * GGT
     * Kochfunktion
     * Sierpinskifunktion
     Nützliches
     * Hintergrundbild
     * Massenanzeige
     * Massenbenutzung
     * Schreibtischtest






* Selection Sort

Bewertung

Stabil: Ja
Geschwindigkeit: Schnell
Bei vorsortieren Zahlen: Gut
Sortiermenge: Zahlen, Buchstaben und Gemische

Ergebnis (6 von 10)
16.11.05 22:51


Quelltext

procedure TForm1.Button1Click(Sender: TObject);
var Max: string;
i,iMax,z: Integer;
begin
for i:= (listbox1.items.count - 1) downto 1 do
begin
iMax := i;
Max := listbox1.items[i];
for z := 0 to i-1 do
if(listbox1.items[z] > Max) then
begin
iMax := z;
Max := listbox1.items[z];
end;
listbox1.Items[iMax] := listbox1.items[i];
listbox1.items[i] := Max;
end;
end;
16.11.05 22:48


Erklärung

Selection Sort ist ein recht schneller Sortieralgorithmus. Er sucht den jeweils gr??ten Wert raus und schreibt ihn dann an das Ende der Zeile. Obwohl er BubbleSort ?hnelt, ist er sehr viel schneller, da nicht jedes Element untereinander getauscht wird, sondern erst, wenn der Algorithmus einmal durchgelaufen ist.
16.11.05 22:45





Verantwortlich für die Inhalte ist der Autor. Dein kostenloses Blog bei myblog.de! Datenschutzerklärung
Werbung