bubblesort funzt ni need help

[Der.Kaktus]

Zitat:

Zitat von The_Doomed

Delphi-Quellcode:

var i,j,n:integer;
f:array[0..10]of string;
h:string;
begin
n:=listbox1.Items.Count;

for i:=0 to n-1 do f[i+1]:=listbox1.Items[i];

for i:=1 to n do
  for j := 1 to n-1 do
    if f[j]>f[i] then
      begin
      h:=f[i];
      f[i]:=f[j];[pre]
      f[j]:=h;
      end;

       for i:=0 to n do
  begin
  listbox2.Items.Add(f[i+1]);
  end;

jo das wars danke
mann mann mann is schon ganz schön schwer ^^

Ich lese es jetzt erst... :gruebel: Listbox?..da gibt es

Delphi-Quellcode:

Listbox1.sorted:=TRUE;

[bluesbear]

Zitat:

Zitat von Der.Kaktus

Ich lese es jetzt erst... :gruebel: Listbox?..da gibt es

Delphi-Quellcode:

Listbox1.sorted:=TRUE;

Der war gut! :lol:

Aber das mit 2 for-Schleifen zu machen - wer kommt auf sone Idee? Wenn man da eine bereits sortierte Liste reinsteckt, hat man genausoviele Durchläufe wie bei einer beliebig unsortierten. Das ist irgendwie Blödsinn, finde ich...

[Der.Kaktus]

Zitat:

Zitat von bluesbear

Zitat:

Zitat von Der.Kaktus

Ich lese es jetzt erst... :gruebel: Listbox?..da gibt es

Delphi-Quellcode:

Listbox1.sorted:=TRUE;

Der war gut! :lol:

Aber das mit 2 for-Schleifen zu machen - wer kommt auf sone Idee? Wenn man da eine bereits sortierte Liste reinsteckt, hat man genausoviele Durchläufe wie bei einer beliebig unsortierten. Das ist irgendwie Blödsinn, finde ich...

Die Wege des Herrn.. :thumb:

[DeddyH]

Hier noch eine Bubblesort-Variante:

Delphi-Quellcode:

procedure Bubblesort(const sList: TStrings);
var i,j,k: integer;
    getauscht: Boolean;

    procedure tausche(const a,b: integer);
    var tausch: string;
    begin
      tausch := sList[a];
      sList[a] := sList[b];
      sList[b] := tausch;
      getauscht := true;
    end;

begin
  if sList.Count > 1 then  
    begin
      sList.BeginUpdate;
      k := sList.Count - 2;
      i := 0;
      repeat
        getauscht := false;
        for j := 0 to k - i do
          if AnsiCompareStr(sList[j], sList[j + 1]) > 0 then
            tausche(j, Succ(j));
        inc(i);
      until (i > k) or not getauscht;
      sList.EndUpdate;
    end;
end;

@Kaki: geht wohl eher um den Lerneffekt :zwinker:

[The_Doomed]

richtig erfasst ich weiß dass es eine funktion für das sortieren gibt aber es
geht darum den algo zu verstehen und verschiedene sortierverfahren unterscheiden zu können
und das bubblesort umständlich und ineffizient ist ist ja auch zur genüge bekannt
aber wer kein bubblesort kann wird weder insertionsort noch quicksort verstehen können
MfG The_Doomed

[Luckie]

Zitat:

Zitat von The_Doomed

richtig erfasst ich weiß dass es eine funktion für das sortieren gibt aber es
geht darum den algo zu verstehen und verschiedene sortierverfahren unterscheiden zu können
und das bubblesort umständlich und ineffizient ist ist ja auch zur genüge bekannt
aber wer kein bubblesort kann wird weder insertionsort noch quicksort verstehen können
MfG The_Doomed

Hä? Könntest du das noch mal bitte mit Satzzeichen und Groß- und Kleinschreibung schreiben?

[The_Doomed]

Zitat:

Richtig erfasst! Ich weiß, dass es eine Funktion für das Sortieren gibt, aber es
geht darum den Algo zu verstehen und verschiedene Sortierverfahren unterscheiden zu können.
Dass bubblesort umständlich und ineffizient ist, ist ja auch zur genüge bekannt.
Aber wer kein Bubblesort beherrscht, wird weder Insertionsort noch Quicksort verstehen können.
MfG The_Doomed

Besser?