4406

Sortowanie

proste

Procedurę prostewybieranie;

Var i,j,k : indeks; x:obiekt;

Begin

For I:=l to n-1 do Begin

K:=I; x:=a[i];

For j:=j+l to n do Begin

K;=j +l.klucz<x.klucz then Begin

K:=j; x;=a[i];

End;

A[k]:= a[i]; a[i]:=x End;

End;

Sortowanie bąbelkowe

procedurę sortowaniebąbelkowre;

var i,j', indeks; x: obiekt; begin for / ■ = 2 to

n do

begin for j = n downto / do if a[j — 1 ].klucz>a[j].klucz then begin x ■= a[j-\\, a[j-\] = a[j]; aljl= xj end. end

end^sortowaniebąbelkowe}

Sortowanie mieszane procedurę sortowaniemieszane;

var j, k. I, p: indeks. x obi eh, begin I = 2; p = n; k = n; repeat

for j = pdounto/ do

if aij— 1|. klucz>a (jj klucz then

begin x =at)-\]:<4j-\] = a[jj; a[jl = x;

k^j end; / * k* l, for j‘m = I top do

if alj—\].klucz>aUJ klucz then

begin x = atj \]: a fj■ 1| = a 1)1; a[jj =x;

k=j end; p=k-i. umil />pend {sortowaniemieszanej

Sortowanie szybkie

procedurę sorlowonieszybkie; procedurę sortujfl, p: indeks). var i.) indeks; x, w obiekt begin /    = k

x =atO * p) div 2J; repeat

while a |i|, klucz <x. hucz do i = i*l. while x. W ucz < a / j ]. hucz do j = j—/; if i') then

begin w m = a f/J; a l/]: = a [jj; a UJ ■■ = w, i:= i*Ly = = >»1 end iintil i >j;

if l<j then sortu/ (/, j); if i<p then sortiq {i, p) end; begin sortuj (1. n) end fsotiowanieszybkie)