Pascal Bubblesort?

Heike_35 (146)

3x Beste Antwort

4x "Danke"

« am: 23.09.08, 08:15:28 »

Hallo.
Ich benötige ein Dev Pascal Programm (also den Quelltext) für das Sortierverfahren Bubblesort.
Ich soll dazu die Wirkungsweise des Verfahrens an einem Feld mit ungeordneten ganzzahligen Werten zeigen.
Erst soll ein Zufallsfeld mit den Zahlen von 1 - 20 erstellt werden.
Weiterhin soll jeder Schritt auf dem Bildschirm erscheinen, bis die Zahlenreihe komplett in die richtige Reihenfolge gebracht wurde.
Es soll aufsteigend von 1 - 20 gezeigt werden.
Ich hoffe, ihr könnt mir helfen und mir einen Quelltext schreiben.
Denn die, die ich bis jetzt im Internet gefunden habe, entsprechen irgendwie nicht mienen Vorstellungen.
Danke schon einmal im Vorraus!
Liebe Grüße
Heike

Moderator informieren

Antworten zu Pascal Bubblesort?:

Lisaa (4.122)

50x Beste Antwort

73x "Danke"

Re: Pascal Bubblesort?

« Antwort #1 am: 23.09.08, 11:57:13 »

Hat dir diese Antwort geholfen?

Das klingt so nach Hausaufgabe...
Das mit dem Array ist ein bischen tricky, deshalb hab ich das mal für dich gemacht, du musst dich dann nur noch um die Sortierung kümmern:

Code: [Auswählen]

PROGRAM BubbleSort;

VAR numbers: ARRAY[1..20] OF INTEGER;
    i, j, temp: INTEGER;

PROCEDURE printArray();
BEGIN
    FOR i:=1 TO 20 DO
    BEGIN
        Write( numbers[i] );
        Write( '  ' );
    END;
    Writeln;
END;


BEGIN
(* Initialize Array *)
FOR i:=1 TO 20 DO
BEGIN
    numbers[i] := i;
END;

(* Randomize Array *)
Randomize();
FOR i:=1 TO 20 DO
BEGIN
    j := random( 20 ) + 1;
    temp := numbers[j];
    numbers[j] := numbers[i];
    numbers[i] := temp;
END;

printArray();

(* Insert BubbleSort Algorithm here *)

Readln();

END.