#1 31. Mai 2007 Frage: BubbleSort Jo, mooin! mal ne Frage..wir haben das grad im Unterricht das wir per BubbleSort 10 Zahlen sortieren müssen. Inhalt des Formulars ist folgendes: 2 listboxen & 3 buttons (unsortierte zahlen anzeigen, zahlen sortieren & abbrechen) die zahlen sollen per zufall erzeugt werden (99+1) und dann halt per bubblesort sortiert werden und das sortierte soll in der 2. listbox angezeigt werden. Kann mir jemand mit dem Struktogramm helfen bzw. mit dem quallcode? wär echt cool und bw wär auch drin...danke + Multi-Zitat Zitieren
#2 31. Mai 2007 AW: Frage: BubbleSort Bei Wikipedia findet man den passenden Pseudecode: Code: prozedur bubbleSort( A : Liste sortierbarer Elemente ) definiert als: n := Länge( A ) - 1 wiederhole vertauscht := falsch für jedes i in 0 bis n wiederhole: falls A[ i ] > A[ i + 1 ] dann vertausche( A[ i ], A[ i + 1 ] ) vertauscht := wahr falls ende für ende n := n - 1 während vertauscht prozedur ende du musst es eigentlich nur an Delphi anpassen. + Multi-Zitat Zitieren
#3 31. Mai 2007 AW: Frage: BubbleSort Hab noch den Quellcode von uns aus Informatik: Code: procedure TfrmSort.btnBubbleSortClick(Sender: TObject); var e,x, max: Integer; begin for e := xmax -1 downto 0 do begin max := 0; while max < e do begin if feld[max+1] < feld[max] then begin x := feld[max]; feld[max] := feld[max+1]; feld[max+1] := x; end; inc(max); end; end; end; Eigentlich wird am Ende noch eine Prozedur aufgerufen, die das ganze grafisch darstellt (mit schwarzen Balken), aber das hab ich rausgenommen. + Multi-Zitat Zitieren