Will 6 Zahlen sortieren. Geht das auch einfacher?

Code: Alles auswählen

4000 PROC BUBBLESORT
4010   REPEAT
4015     TAUSCH=0
4020     FOR X=1 TO 5
4030       IF M1(X)>M1(X+1)
4040         STA=M1(X):M1(X)=M1(X+1):M1(X+1)=STA
4050         TAUSCH=1
4060       ENDIF
4070     NEXT X
4080   UNTIL TAUSCH=0
4090 ENDPROC


Hi Eda,

also ich glaube, Bubblesort ist schon recht einfach. Ich habe hier noch eine Implementierung für Pascal gefunden, die zwar ohne "TAUSCH" auskommt, ansonsten aber auch nicht viel übersichtlicher ist.

Code: Alles auswählen

procedure bubble;
var i,j,t:integer;
begin
  for i:=n downto 1 do
    for j:=2 to i do
      if a[j-1]>a[j] then
        begin t:=a[j-1]; a[j-1]:=a[j]; a[j]:=t; end;
   end;
end;


Gruß,

Michael

soweit ich das auf einen Blick verstehe, ist der erste Codeschnippsel besser, weil er abbricht, wenn die Reihenfolge stimmt (Tausch am Ende der Schleife 0 ist). Der zweite Schnippsel läuft auf jeden fall n+ n-1 +n-2 + ... +n-n mal durch.
Oder habe ich da was übersehen?

Ich hatte da mal ein Pascal Programm geschrieben, das etliche Sortierroutinen vergleicht. War mit TurboPascal damals für die Schule. Bubble war klar hinten.
Ich versuche mal das Programm aufzufinden (ist ja nun auch schon gut 15 Jahre her ). Aber ich habe es noch auf meinem Falcon, wo ich´s damals programmiert hatte - weil das PurePascal dort um Längen besser war, als das Turbo 5, was damals auf dem PC aktuell war - schon alleine, wegen GEM

pps hat geschrieben:Ich hatte da mal ein Pascal Programm geschrieben, das etliche Sortierroutinen vergleicht. War mit TurboPascal damals für die Schule. Bubble war klar hinten.

Bei 6 Eintraegen sollte die Geschwindigkeit aber kein Ausschlag gegeben. Ab 50 Eintraegen wuerde ich QuickSort benutzen, http://en.wikipedia.org/wiki/Quicksort

-- Carsten

Quicksort benötigt aber Rekursion. Nicht alle Sprachen können das.

Danke für die Antworten.
Bubblesort ist halt schön einfach.
Wollte nur wissen, ob man die paar Basiczeilen noch kürzer, schöner oder eleganter hätte machen können.
Wenn nicht - um so besser

FlorianD hat geschrieben:Quicksort benötigt aber Rekursion. Nicht alle Sprachen können das.

Hi!

Ja, aber man kann es auch in eine nicht-rekursive Form bringen, wenn man Stapeloperationen nachbildet.

Gruß,

Michael

@cas: Ja Du hast Recht. Das mit den 6 Einträgen habe ich nicht so richtig für voll genommen. Da ist es relativ egal, welchen Algorithmus man nimmt.