Riguardo all'ordinamento Bubble Sort:
<b>PROCEDURE OrdBubbleSort;
VAR
v : Array [1..10] of Integer;
i , k , temp : Integer; { i = indice, k = var utilizz. per l'ordinamento, temp = var utilizz. per lo scambio }
Begin
FOR i := 1 TO 10 DO // Inserimento elementi nel vettore
Begin
Write('Inserisci ',i,'° numero: ');
ReadLn(v[i])
End;
// Ordinamento elementi del vettore
FOR i := 9 DOWNTO 1 DO
FOR k := 1 TO i DO
IF v[k] > v[k+1] THEN
Begin // Scambio elementi
temp := v[k];
v[k] := v[k+1];
v[k+1] := temp
End;
Writeln('*************************************'); // Output
WriteLn('Numeri in ordine crescente:');
FOR i := 1 TO 10 DO
Writeln(v[i])
End;</b>
Ciao ciao
"La nostra ignoranza è il loro potere"