BUBBLE SORT- Cosa non và nel mio programma?

[XBarboX]

Oggi ho provato a ORDINARE UN ARRAY e chiedendo su answer mi han detto che l'algoritmo più semplice per l'ordinamento di un array è il bubble sort.
Allora ho cercato su wikipedia, mi sono fatto una idea e ho scritto questo programma:
Dimenticavo! è in PASCAL

Program Bubble_sort;
Uses crt, dos;
TYPE
Vettore = ARRAY [1..5] OF Integer;
VAR
Dato: Vettore; {Vettore}
i,k: integer; {Variabili ausiliari}
N: integer; {Numero dati}
Appoggio: integer; {Variabile usata per lo scambio}
Begin

n:= 5; {Numero dati = 5}
{Lettura Dati}
For i:=1 to 5 do
Begin
Write('Introduci ',i,' Numero');
Readln(dato[i]);
end;
{Fine lettura dati}

i:=1; {Inizializzazione i}

Repeat{Ripeti tutto, ma se i vale numero dei dati-1 smetti}
Begin
i:=i+1;{Incremento i}
for k:=1 to (n-1) do
Begin
{Sostituzione numeri}
if dato[k]> dato[k+1] Then {se il dato dell array è maggiore del successivo}
Begin
Appoggio:= dato[i]; { }
dato[i]:= dato[i+1]; { <--Scambio }
dato [i+1]:= Appoggio { }
end;
End;

end;
Until i = (n-1);{Ripeti tutto, ma se i vale num-1 smetti}

{Stampa L'array}
For i:=1 to 5 do
Begin
Writeln(dato[i]);
end;
Readln;
End.

Non mi da nessun errore il compilatore, però non funziona! perchè ??????

[Xaratroom]

Nell'ordinamento o fai partire i da 0 oppure iteri finchè i è diversa da n.
Inoltre hai usato l'indice i (e non k) per lo scambio...
Usa i tag [*code][*/code] (senza asterischi) la prossima volta, per postare il codice e, soprattutto, indica il linguaggio nel titolo della discussione.

Guarda qui: http://www.algorithm-code.com/wiki/Bubble_sort

procedure BubbleSort(var A:array of Integer);
Var
    i, z: Integer;
    swapped: boolean;
begin
    repeat
        swapped := false;
        for i:=low(A) to high(A)-1 do
        begin
            if(A[i] > A[i+1])then
            begin
                z := A[i];
                A[i] := A[i+1];
                A[i+1] := z;

                swapped := true;
            end;
        end;
    until swapped = false;
end;

[Xaratroom]

Ma hai risolto ?

Program Bubble_sort;
	Uses crt, dos;
	TYPE
		Vettore = ARRAY [1..5] OF Integer;
	VAR
		Dato: Vettore; {Vettore}
		i,k: integer; {Variabili ausiliari}
		N: integer; {Numero dati}
		Appoggio: integer; {Variabile usata per lo scambio}
	Begin
		n:= 5; {Numero dati = 5}
		
		{Lettura Dati}
		For i:=1 to 5 do
			Begin
				Write('Introduci ',i,' Numero');
				Readln(dato[i]);
			end;
		{Fine lettura dati}

		i:=0; {Inizializzazione i}
		Repeat{Ripeti tutto, ma se i vale numero dei dati-1 smetti}
			Begin
				i:=i+1;{Incremento i}
				for k:=1 to (n-1) do
					Begin
						{Sostituzione numeri}
						if dato[k]> dato[k+1] Then {se il dato dell array è maggiore del successivo}
							Begin
								Appoggio:= dato[k]; { }
								dato[k]:= dato[k+1]; { <--Scambio }
								dato [k+1]:= Appoggio { }
							end;
					End;
			end;
		Until i = (n-1);{Ripeti tutto, ma se i vale num-1 smetti}

		{Stampa L'array}
		For i:=1 to 5 do
			Begin
				Writeln(dato[i]);
			end;
		Readln;
		End.

[XBarboX]

Si ho risolto da solo scusa ma avevo dimenticato questo post.
L'ho risolta con una variabile di tipo booleana guarda:

 repeat
 scambio:= false;
 for i:=1 to (a-1) do
  Begin
   if num[i]<num[i+1] then
    Begin
     scambio:= true;
     appoggio:= num[i];
     num[i]:= num[i+1];
     num[i+1]:= appoggio;
    end;
  end;
 until scambio = false;

[Xaratroom]

Perfetto...
Il tuo programma andava bene comunque.
Sono modi diversi di fare la stessa cosa ...

il mio preferito è questo:

for i := 4 downto 1 do
	begin
		for k := 1 to i do
			begin
				if dato[k]> dato[k+1] Then {se il dato dell array è maggiore del successivo}
					Begin
						Appoggio:= dato[k]; { }
						dato[k]:= dato[k+1]; { <--Scambio }
						dato [k+1]:= Appoggio { }
					end;
			end;
	end;