<=
Sortiranje
Izaberi čime ćeš popuniti praznine
procedure bubble;
var k,l : integer;
t : word;
begin
for k:=N
>
2
a[k]
a[l]
a[l-1]
a[min]
downto
k
k+1
l
l-1
min
n-1
t
to
v
1 do
for l:=
>
2
a[k]
a[l]
a[l-1]
a[min]
downto
k
k+1
l
l-1
min
n-1
t
to
v
to k do
if a[l-1]
>
2
a[k]
a[l]
a[l-1]
a[min]
downto
k
k+1
l
l-1
min
n-1
t
to
v
a[l] then begin
t:=a[l-1];
>
2
a[k]
a[l]
a[l-1]
a[min]
downto
k
k+1
l
l-1
min
n-1
t
to
v
:=a[l];
a[l]:=
>
2
a[k]
a[l]
a[l-1]
a[min]
downto
k
k+1
l
l-1
min
n-1
t
to
v
;
end;
end;
procedure selection;
var k,l,min,t : integer;
begin
for k:=1 to
>
2
a[k]
a[l]
a[l-1]
a[min]
downto
k
k+1
l
l-1
min
n-1
t
to
v
do
begin
>
2
a[k]
a[l]
a[l-1]
a[min]
downto
k
k+1
l
l-1
min
n-1
t
to
v
:=k;
for l:=
>
2
a[k]
a[l]
a[l-1]
a[min]
downto
k
k+1
l
l-1
min
n-1
t
to
v
to n do
if
>
2
a[k]
a[l]
a[l-1]
a[min]
downto
k
k+1
l
l-1
min
n-1
t
to
v
<a[min] then min:=
>
2
a[k]
a[l]
a[l-1]
a[min]
downto
k
k+1
l
l-1
min
n-1
t
to
v
;
t:=
>
2
a[k]
a[l]
a[l-1]
a[min]
downto
k
k+1
l
l-1
min
n-1
t
to
v
;
a[min]:=
>
2
a[k]
a[l]
a[l-1]
a[min]
downto
k
k+1
l
l-1
min
n-1
t
to
v
;
a[k]:=t;
end;
end;
procedure insertion;
var k,l,v : integer;
begin
for
>
2
a[k]
a[l]
a[l-1]
a[min]
downto
k
k+1
l
l-1
min
n-1
t
to
v
:=2
>
2
a[k]
a[l]
a[l-1]
a[min]
downto
k
k+1
l
l-1
min
n-1
t
to
v
n do
begin
v:=a[k];
l:=k;
while
>
2
a[k]
a[l]
a[l-1]
a[min]
downto
k
k+1
l
l-1
min
n-1
t
to
v
>v do
begin
a[l]:=a[l-1];
l:=
>
2
a[k]
a[l]
a[l-1]
a[min]
downto
k
k+1
l
l-1
min
n-1
t
to
v
;
end;
a[l]:=
>
2
a[k]
a[l]
a[l-1]
a[min]
downto
k
k+1
l
l-1
min
n-1
t
to
v
;
end;
end;
Proveri
OK
<=