![]() |
Schreibtischtest quicksort
Hallo,
wir sollen einen schreibtischtest von dieser implementierung durchführen:
Delphi-Quellcode:
die zahlen mit denen wir das durchführen sollen sind: A [ 17,5,2,11,1 ]
unit UQuickSort;
interface procedure QuickSort(var A: array of Integer); implementation procedure QuickSort(var A: array of Integer); procedure QSort(LoIndex, HiIndex: Integer); var Lo, Hi: Integer; Pivot: Integer; Swap: Integer; begin // Wähle stets das mittlere Element als Pivotelement. Pivot := A[(LoIndex + HiIndex) div 2]; // Stelle die Ordnung bzgl. des Pivotelements her. Lo := LoIndex; Hi := HiIndex; repeat while A[Lo] < Pivot do Inc(Lo); while A[Hi] > Pivot do Dec(Hi); if Lo <= Hi then begin Swap := A[Lo]; A[Lo] := A[Hi]; A[Hi] := Swap; Inc(Lo); Dec(Hi); end; until Lo > Hi; // Gegebenenfalls linke Teilliste sortieren. if LoIndex < Hi then QSort(LoIndex, Hi); // Gegebenenfalls rechte Teilliste sortieren. if Lo < HiIndex then QSort(Lo, HiIndex); end; begin QSort(Low(A), High(A)); end; end. wie soll das funktionieren? gruß [edit=Sharky]Delphi-Tags eingefügt. Mfg, Sharky[/edit] |
Re: Schreibtischtest quicksort
.. was ist ein Schreibtischtest?
Grüße Klaus |
Re: Schreibtischtest quicksort
weiß ich ja selbst ned :wiejetzt: ......des is ja es problem
gruß |
Re: Schreibtischtest quicksort
|
Re: Schreibtischtest quicksort
Ein Schreibtischtest ist eine Durchführung des Algorythmusses auf Zettel / Papier Basis...
Beispiel: gegebene Zahlen 5 / 6 / 18 / 19 Absteigende Sortierung-->
Code:
a = 5 , b = 6 , result = -1
function qSort(a: integer; b : integer) : integer;
begin result := a - b; end; a = 5 , b = 18 , result = -13 a = 5 , b = 19 , result = -14 . . . aus so einem Wirrwar kann man dann folgern in welcher Reihenfolge die Elemente nachher in der Liste stehen. mfg Agares |
Re: Schreibtischtest quicksort
Mach Dir lauter Zettel wo die einzelnen Zahlen drauf stehen und geh dann den Algorithmus durch.
Sherlock |
Alle Zeitangaben in WEZ +1. Es ist jetzt 18:30 Uhr. |
Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024-2025 by Thomas Breitkreuz