Forum programmazione

[Fabriz]

Ordinamento di Array tramite Bubble Sort.

Code: Select all

Program vettore_bubble;
//© JsBach
uses crt;
type
    vettore=array[1..1000] of integer;
var a:vettore;
    n:integer;
    scelta:char;
procedure dimensione(var x:integer);
begin
     write('Dammi la dimensione del vettore: ');
     readln(x);
end;
procedure carica(var v:vettore;x:integer);
var i:integer;
begin
     for i:=1 to x do v[i]:=random(1000)+1;
end;
procedure leggi(var v:vettore;x:integer);
var i:integer;
begin
     writeln;
     for i:=1 to x do
         begin
              write('Introduci il ',i,'^ valore: ');
              readln(v[i]);
         end;
end;
procedure scrivi(v:vettore;x:integer);
var i:integer;
begin
     writeln;
     for i:=1 to x do write(v[i]:5);
end;
procedure bubble(var v:vettore;x:integer);
var i,box:integer;
    scambio:boolean;
begin
     scambio:=true;
     while scambio do
        begin
          scambio:=false;
                          for i:=1 to x-1 do
                                            if v[i]>v[i+1] then
                                                               begin
                                                                    box:=v[i];
                                                                    v[i]:=v[i+1];
                                                                    v[i+1]:=v[i];
                                                                    scambio:=true;
                                                               end;
        end;
end;
//Main
begin
     randomize;
     dimensione(n);
     write('Preferisci caricare manualmente il vettore? (S/N)');
     scelta:=readkey;
     if upcase(scelta)='S' then leggi(a,n)
                           else carica(a,n);

     writeln;
     writeln('***VETTORE DISORDINATO***');
     scrivi(a,n);
     bubble(a,n);
     writeln;
     writeln('***VETTORE ORDINATO***');
     scrivi(a,n);
     readln
end.