Zahlensortierfunktion und noch eine Frage!

[QuickAndDirty]

Ja oder TurboPascal und Turtle

[dino]

Zitat:

Zitat von Basti552

Delphi-Quellcode:

procedure Quick_Sort(var A: array of Integer);

procedure QuickSort(var A: array of Integer; iLo, iHi: Integer);
var
   Lo, Hi, Mid, T: Integer;
 begin
   Lo := iLo;
   Hi := iHi;
   Mid := A[(Lo + Hi) div 2];
   repeat
     while A[Lo] < Mid do Inc(Lo);
     while A[Hi] > Mid do Dec(Hi);
     if Lo <= Hi then
     begin
       T := A[Lo];
       A[Lo] := A[Hi];
       A[Hi] := T;
       Inc(Lo);
       Dec(Hi);
     end;
   until Lo > Hi;
   if Hi > iLo then QuickSort(A, iLo, Hi);
   if Lo < iHi then QuickSort(A, Lo, iHi);
 end;

begin
 QuickSort(A, Low(A), High(A));
end;

diese procedure in procedure hab ich übrigens auch noch nie gesehen :(

[mkinzler]

Zitat:

diese procedure in procedure hab ich übrigens auch noch nie gesehen Sad

Nicht? ist aber ne normale Subprocedur, d.h. die Prozedur QuickSort ist nur innerhalb Quick_Sort sichtbar.

[dino]

gut merck ich mir :)

[3_of_8]

Bezeichnet man auch als "Nested function".

[Der_Unwissende]

@dino: Sorry, aber ich finde es hier echt falsch eine Lösung zu posten. Ist zwar sicherlich nett gemeint, aber ich denke dass jetzt jmd. anderes für ihn Code kopiert bring doch den Threadsteller nicht weiter. Letztlich wurde doch in den Beiträgen davor deutlich, dass Basti552 noch einiges an Grundlagen fehlt. Diese sollte er sich also erstmal in Ruhe aneignen, bevor es mit Drucken oder dem Quicksort losgeht.
Vorallem sollte man Verfahren auch verstehen. Wenn er nur irgendein Sortierverfahren sucht, dann muss es nicht immer der Quicksort sein. Vorallem sollten aber Leute, die den Code posten auch ruhig mal erklären wie der Algorithmus überhaupt funktioniert (und da du den auch nur kopiert hast frage ich mich, ob du das kannst?). Ist nicht böse gemeint, aber jeder hat doch hier mehr davon, wenn er etwas auch erklärt bekommt. Nur der Code hilft doch keinem (insbesondere keinem Anfänger) weiter.

Gruß Der Unwissende


Irrtum meinerseits!!! Sorry!

[dino]

@unwissender: ich hab ihm diese Lösung nicht gepostet, der fragenstellender hat es selbst gemacht, und das kann ich ihn nicht nehmen, ich hab ihn bloss zitiert.
Ich bin fast uneingeschränkt deiner Meinung, weil ich einiges auch dadurch gelernt habe, indem ich mir sachen von anderen angeguckt habe.

PS: basti schau mal in deiner Mailbox

[Der_Unwissende]

@dino: Sorry, hab völlig übersehen, dass das zitiert war und du nur eine Frage gestellt hast, tut mir leid!