Forum: Object-Pascal / Delphi-Language
Delphi
by Helios,
5. Apr 2003
Hier noch mal die aktuelle Version des Quellcodes. Es gibt immernoch das gleiche Problem: Damit die Liste komplett sortiert ist, muss ich das Sortierverfahren mehrmals anwenden. Vielleicht hat ja jemand noch ein paar Tipps.procedure TForm1.Sortierverfahren4Click(Sender: TObject);
var
n:integer;
timer_s_ts,timer_e_ts:ttimestamp;
procedure Quicksort(links,rechts:integer);
var
...
Forum: Object-Pascal / Delphi-Language
Delphi
by Helios,
4. Apr 2003
Aber wie oft ich sortieren muss, ist unabhängig von der Anzahl der zu sortierenden Zahlen. Wenn ich z.B. nur 12 Zahlen habe, kann es sein, dass ich 4x sortieren muss. Wenn ich z.B. 100 zahlen habe, kann es sein, dass ich nur 3x sortieren muss. Den Vorgang einfach automatisch mehrmals wiederholen lassen, ist ja nicht wirklich die richtige Lösung. Da muss es doch noch eine bessere Möglichkeit...
Forum: Object-Pascal / Delphi-Language
Delphi
by Helios,
4. Apr 2003
Ok, aber was kann ich nun mache, damit die Liste komplett sortiert wird. Damit die Liste komplett richtig sortiert wird muss ich das Verfahren mehrmals hintereinander anwenden...
Forum: Object-Pascal / Delphi-Language
Delphi
by Helios,
4. Apr 2003
Dein Tipp mit:Inc(el);
until el>er;hilft mir auch nicht weiter.
ich bin aber auf eine andere Idee gekommen. Es müsste doch eigentlich wie folgt sein:
el:=el+1;
er:=er-1;
until el>er;
Es funktioniert auch, fast zumindest. Wenn ich z.B. eine Liste mit 12 Zahlen nehme sind fast alle richtig sortiert. Meistens sind so ca. 10 von 12 Zahlen richtig sortiert. Aber warum werden nicht alle sortiert?...
Forum: Object-Pascal / Delphi-Language
Delphi
by Helios,
4. Apr 2003
@Luckie: Da hab ich eben mal geguckt. Nur sieht der Quellcode von dem Verfahren, an dem ich arbeite dort ganz anders aus. Ich kann zumindest nichts damit anfangen, weil ich noch nicht lange mit Delphi programmiere. Und diesen Quellcode, den ich hier habe, ist von meinem Informatiklehrer. Eigentlich sollte es funktionieren, aber mein Lehrer hat sich auch gewundert als es nicht ging. Und nun sollen...
Forum: Object-Pascal / Delphi-Language
Delphi
by Helios,
4. Apr 2003
Danke für den Tipp. Aber ich weiß jetzt noch nicht, was ich ändern muss, damit "el" so erhöht wird, dass es funktioniert. Wäre gut wenn du vielleicht einen Lösungsvorschlag hast. :coder:
Forum: Object-Pascal / Delphi-Language
Delphi
by Helios,
4. Apr 2003
Ich programmiere gerade mit Delphi ein paar unterschiedliche Sortierverfahren. Ich bin zur Zeit noch beim ausprobieren, aber bei einem Verfahren komme ich einfach nicht weiter. Eigentlich ist es fertig, aber wenn ich es benutze, stürzt das programm immer ab. Hier der Quellcode:
procedure TForm1.Sortierverfahren4Click(Sender: TObject);
var
n: integer;
procedure...
