Forum: Object-Pascal / Delphi-Language
Delphi
by Shimau,
14. Jun 2009
Wer jetzt noch eine Lösung für das Problem findet, bitte ich mir eine Nachricht zu senden.
Ich verwend jetzt erstmal nur den Insertionsort.
Forum: Object-Pascal / Delphi-Language
Delphi
by Shimau,
10. Jun 2009
Komischerweise funktioniert bei mir der Insertionsort, aber nicht der Quicksort :gruebel: :
//Insertionsort
Procedure TForm1.Insertion(Anf,Ende:integer);
var i,j: Integer;
v:integer;
Begin
For i:= Anf+1 To Ende Do
Begin
Forum: Object-Pascal / Delphi-Language
Delphi
by Shimau,
10. Jun 2009
Wie hast du den Insertion-Teil anders implemntiert? Glaubst du, dass es daran liegt?
Forum: Object-Pascal / Delphi-Language
Delphi
by Shimau,
10. Jun 2009
Der Zugriff ist auch extrem langsam, nur ich wollts zum verständniss und Probe ma mit Integerwerten machen. Also ma noch was zum Algo: Es ist ein rekursiver:
Procedure TForm1.QuickSort(Anf,Ende:integer);
var i, j, p, q, k: Integer;
tausch: integer;{für Dreieckstausch}
v: integer;
Begin
i:= Anf-1;
p:= Anf-1; //Anfangsdekl.
Forum: Object-Pascal / Delphi-Language
Delphi
by Shimau,
10. Jun 2009
mmh, müsste eigentlich so stimmen, deswegen wunder ich mich ja auch so, es treten ja Werte auf die überhaupt nicht eingegeben wurden. Und was ist mit "Stack-Überlauf" (manchmal tritt diese Fehlermeldung auf) gemeint?
Forum: Object-Pascal / Delphi-Language
Delphi
by Shimau,
10. Jun 2009
Ich hab hier einen Quicksort, der eigentlich abwärts sortieren soll (also größten zahlen oben/kleinster Index und kleinsten unten/größter Index). Nun treten in der Ausgabe entweder wiederholt die selben zahlen auf oder wiederholt 0. Ich hab keine Ahnung warum.
Procedure TForm1.QuickSort(Anf,Ende:integer);
var i, j, p, q, k: Integer;
tausch: integer;{für Dreieckstausch}
v:...