Predmet:Sortiranje podataka
Kod za sortiranje podataka.
type
PreuzmiIzvorni kôd (Delphi): TNiz = array[1..1000] of integer;
procedure Bubble_Sort(Count : integer; var niz : TNiz);
var
i, j : integer;
begin
for i := Count - 1 downto 1 do
for j := 1 to i do
if niz[j] > niz[j + 1] then
begin
Temp := Niz[j];
Niz[j] := Niz[j + 1];
Niz[j + 1] := Temp;
end;
end;
Podrska samo putem foruma, jer samo tako i ostali imaju koristi od toga.