Selection sort: differenze tra le versioni

Versione delle 14:11, 3 ott 2005

Versione delle 19:15, 1 nov 2005

Riga 24:

const dim=20;

var a: array[1..dim] of integer;

n,i,j,kpos,min,auxaus:integer;

begin

// Creazione vettore di n elementi (con 1<=n<=dim)

pos:=0;
for i:=1 to n-1 do begin

min:= a[i];

for j:=(i+1) to n do begin

k:=i;

if a[j]< min then begin

for j:=(i+1) to n do

if min:= a[j]<min then begin;

min pos:=a[ j];

k:=j end;

end;

aux aus:= a[i];

a[i]:=a[k] min;

a[kpos]:=aux aus;

end;

// Stampa del vettore