Entwickler-Ecke
Sonstiges (Delphi) - bubblesort
der auenländer - Fr 11.05.07 16:06
Titel: bubblesort
tach zusammen,
ich hab nen bubblesort geschrieben gehabt, aber irgendwie klappt der nich so ganz wie ichs will, wär super nett, wenn mal kurz einer drüber schauen könnt, wo nen fehler steckt. also der compiler meckert nicht mehr aber der sortiert trotzddem nich richtig.
Delphi-Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
| procedure tForm1.bubblesort( var Feld:TFeld);
var i, j : integer;
fertig : boolean;
begin
j:=1;
repeat
Fertig:=true;
for i:=1 to Anzahl-j do
begin
if Feld[i] > Feld[i+1] then
begin
tausche (Feld[i], Feld[i+1]);
fertig:=false;
end;
inc (j);
end;
until fertig;
end; |
danke!!
jannik
Gausi - Fr 11.05.07 16:17
Das inc(j) gehört nicht in die innere for-Schleife, sondern in die äußere.
der auenländer - Fr 11.05.07 16:43
danke, das klappt super!!
jannik
Entwickler-Ecke.de based on phpBB
Copyright 2002 - 2011 by Tino Teuber, Copyright 2011 - 2026 by Christian Stelzmann Alle Rechte vorbehalten.
Alle Beiträge stammen von dritten Personen und dürfen geltendes Recht nicht verletzen.
Entwickler-Ecke und die zugehörigen Webseiten distanzieren sich ausdrücklich von Fremdinhalten jeglicher Art!