Bubble-Sort

[netscanner]

Hallo,

ich habe grade ein bissell nach dem Sortier-Algo Bubble-Sort gesucht hab da auch was gefunden:

Delphi-Quellcode:

procedure vertauschen(var a, b: Char);
var h: Char; 
begin 
h:= a; 
a:= b; 
b:= h; 
end; 

procedure TForm1.Button1Click(Sender: TObject); 
var word1, word2 : string; 
    anzahl,j,k,w:integer; 
begin 
word1:=edit1.text; 
word2:=edit1.text; 
anzahl:=length(word1); 

for j:=anzahl downto 1 do 
        begin 
        for k:=1 to j do 
                begin 
                if (word2[k-1]>word2[k]) then vertauschen(word2[k-1], word2[k]); 
                end; 
        end; 

edit2.text:=word2; 
end;

ist ja auch schön und gut...könnte mir jetzt nur mal bitte jemand die procedur vertauschen erklären...
Außerdem kappier ich das ab der 1. for - Schleife nicht wirklích :(

[Phoenix]

Zitat:

Zitat von netscanner

ist ja auch schön und gut...könnte mir jetzt nur mal bitte jemand die procedur vertauschen erklären...

Was willst Du da dran erklärt haben??? Die vertauscht einfach nur die Werte von a und b.

Delphi-Quellcode:

procedure vertauschen(var a, b: Char);
var
   h: Char;
begin
   h := a; // Den Wert von a in h 'sichern'
   a := b; // Den Wert von b nach a schreiben
   b := h; // Den alten gesicherten Wert von a nach b schreiben
end;

[Phoenix]

Nachtrag: Wie der Bubblesort genau tut steht übrigens recht gut im Tutorial Sortieralgorithmen I + II von Cheffe^^

[netscanner]

okey das ist klar aber wie arbeiten die verschiedenen for schleifen miteinander und dann die zeile

Delphi-Quellcode:

if (word2[k-1]>word2[k]) then vertauschen(word2[k-1], word2[k]);

[Schaedel]

Delphi-Quellcode:

for j:=anzahl downto 1 do 
        begin 
        for k:=1 to j do 
                begin 
                if (word2[k-1]>word2[k]) then vertauschen(word2[k-1], word2[k]); 
                end; 
        end;

Anzahl is die Länge des Strings.
Dann geht er rückwärts durch den string durch und vergleicht jede zahl mit den anderen im String.
wo er dann aber das sortierte zurück gibt .... seh ich gerade nicht oO :gruebel:

[Klaus01]

@netscanner

Zitat:

if (word2[k-1]>word2[k]) then vertauschen(word2[k-1], word2[k]);

wenn word2 an der Position [k-1] größer ist als an der Position [k] dann tausche den Wert an
Position [k-1] mit [k]

Grüße
Klaus

[Schaedel]

klaus... das hab ich ja nicht geschrieben ... *hust* ... :twisted:

[netscanner]

@Schaedel:

Delphi-Quellcode:

edit2.text:=word2;

dort gibt er den Wert zurück :)

[Minz]

Hallo,

wenn die Prozedur vertauschen aufgerufen wird, werden ihr 2 Zeichen übergeben, die in a und b gespeichert werden.

a wird dann in h zwischengespeichert.
dann wird a zu b
und b wird zu h, also dem alten a-Wert

Zur Erklärung des Restlichen:

Du hast 2 for-Schleifen. Angenommen du hast das Wort HILFE

Jetzt durchläufst du das Wort HILFE mit EINER For-Schleife.
Dann vergleichst du im 1. Schritt H und I, H ist kleiner als I also nicht vertauschen
Dann vergleichst du im 2. Schritt I und L, I ist kleiner als L also nicht vertauschen
Dann vergleichst du im 3. Schritt L und F, L ist größer als F also vertauschen

Hier zeigt sich für mich ein Fehler in vertauschen:
außer die Buchstaben in beliebigen Variablen zu tauschen, wird nichts gemacht.
Das Wort HIFLE sollte irgendwo gespeichert werden um damit weiterarbeiten zu können.
z.B. durch word2[k-1]:=a und word2[k]:=b
In Folge dessen zeigen sich aber noch mehr Schwächen in dem Programm.

Hast du die Schleife beendent, in diesem Fall die innere Schleife, erhälst du das Wort HIFEL
Jetzt musst du die Sortierung aber nochmal drüberlaufen lassen, denn jeder Buchstabe wird ja nur um einen Platz verschoben, wenn es nötig ist. Im schlimmsten Fall steht ganz hinten ein A und muss nach ganz vorne gebracht werden.
Daher brauchst du also eine zweite Schleife.
Der Algorithmus den du vorgelegt hast, berücksichtigt die letzte Stelle des Wortes allerdings nur beim 1. Durchgang, was für mich nicht verständlich ist.

Gruß Minz

[Schaedel]

Zitat:

Hier zeigt sich für mich ein Fehler in vertauschen:
außer die Buchstaben in beliebigen Variablen zu tauschen, wird nichts gemacht.
Das Wort HIFLE sollte irgendwo gespeichert werden um damit weiterarbeiten zu können.
z.B. durch word2[k-1]:=a und word2[k]:=b
In Folge dessen zeigen sich aber noch mehr Schwächen in dem Programm.

100% Agree... Darauf wollte ich hinaus ;)

[netscanner]

also nur als info an alle:

das programm läuft ohne probleme...

@schaedel & minz:
eure einwände erscheinen mir als logisch...aber warum läuft das programm dann ohne probleme...hilfe wird z.b. 100% richtig sortiert...
außerdem gibt es ja 2 for schleifen also weiß ich jetzt nicht genau worauf ihr hinaus wollt,,,
wie würdet ihr es denn schreiben?

[Klaus01]

Delphi-Quellcode:

for j:=anzahl downto 1 do 
  begin 
    for k:=1 to j do 
      begin 
        if (word2[k-1]>word2[k]) then vertauschen(word2[k-1], word2[k]); 
      end; 
   end;

auch auf die Gefahr hin das ich mich unbeliebt mache, aber

wenn k=1 ist
wird word2[0] mit word2[1] verglichen -> da kann nicht gescheites bei herauskommen da in word[0]
die Längeinformation des Strings steht.

Delphi-Quellcode:

  for j:= 1 to anzahl -1 do
    for k:=j+1 to anzahl do
     if word2[k] > word2[j] then vertausche(word2[k],word2[j])

Hoffe hab' mich nicht zu sehr verhauen.

Grüße
Klaus

[netscanner]

okey klaus...aber dann füg doch mal den code bei dir in delphi ein und teste ihn...bei mir mach er bei der vertauschung keinen fehler...

[Schaedel]

Zitat:

Bubble-Sort
"Sortieren durch direktes Austauschen"
Dieser Algorithmus ist bestimmt in jedem Informatik-Grundkurs und jeder Informatik-Vorlesung gelehrt worden. Er gehört eindeutig zu den gemütlichen Sortier-Algorithmen. Schon bei 100.000 Elementen kann sich erst mal einen Kaffee holen, bevor dieser Algorithmus mit seiner Arbeit fertig ist. Trotzdem ist er leicht zu begreifen:
Durchlaufe immer wieder das Feld und tausche wenn nötig zwei benachbarte Elemente miteinander aus.
Code: markieren

Delphi-Quellcode:

Procedure BubbleSort; 
var i,j : Integer; 
Begin 
  For i:= N downto 1 Do 
    For j:= 1 To i Do 
      If (Data[j-1] > Data[j]) Then SwapValues( j-1, j ); 
End;

Siehe tutorial ...

[angos]

Zitat:

Zitat von Schaedel

Zitat:

Hier zeigt sich für mich ein Fehler in vertauschen:
außer die Buchstaben in beliebigen Variablen zu tauschen, wird nichts gemacht.
Das Wort HIFLE sollte irgendwo gespeichert werden um damit weiterarbeiten zu können.
z.B. durch word2[k-1]:=a und word2[k]:=b
In Folge dessen zeigen sich aber noch mehr Schwächen in dem Programm.

100% Agree... Darauf wollte ich hinaus ;)

Nein, die Werte werden als Var-Parameter übergeben, also direkt wieder in "Word2" zurückgeschrieben.
Und eben diese Variable wird zum Schluss wieder dem Edit zugewiesen. Ist meines Erachtens absolut korrekt.

[Klaus01]

gut funktioniert!

.. aber auch wenn Du k von 2 starten läßt

und funktioniert nicht korrekt wenn Du
auf word2[k-1] < word2[k] vergleichst.

Das Problem tritt auch nur dann auf wenn Du mit Strings arbeitest.
Bei einem Array kannst Du von 0 an vergleichen, bei einem String nicht.

Grüße
Klaus

[alzaimar]

Leute, Leute: Da beherrscht ihr Quicksort im Schlaf, könnt Bayerbaumsuchverfahren, A*-Pathinfinding-Algorithmen und Knuth-Morris-Pratt-Grahpen rückwärts aufsagen, aber am guten alten Babelsort beisst man sich doch wirklich die Zähne aus. Ich habe auch stundenlang probiert, aufgegeben, meine Rente eingereicht und schließlich den Source auf www.sortieralgorithmen.de genommen und in mühevoller Kleinarbeit in Delphi übersetzt. Das Team hat wochenlang geschuftet und jedes Byte wurde von unserem 50-köpfigen Spezialistenteam handoptimiert und hochglanzpoliert.

Nun ist es aber soweit: Wir präsentieren - Babelsort 1.0!

Delphi-Quellcode:

procedure BubbleSort (Var s: String);
Var
  j,k, n: Integer;

begin
  n := Length (s);
  for j:= n downto 2 do
    for k := 1 to j-1 do
     if s[k] > s[k+1] then 
       vertausche(s[k], s[k+1])
end;

Ach ja, das mit dem Vertauschen heisst 'Ringtauschverfahren'. Doch, es gibt einen Namen für sowas. Es heisst deshalb so, weil der Austausch ringförmig geht: h <-a <- b <- h.

[Minz]

jo wenn das so funktioniert muss dat wohl richtig sein :wink:

@netscanner
wegen den zwei schleifen: du hast gesagt du verstehst das ganze ab der for-schleife nicht wirklich also hab ich dir geschrieben, wie das ganze funktionieren soll.