Prikazi cijelu temu 27.02.2011-21:54
zxz Online
Administrator
Registrovan/a od: 03.02.2009-16:22
Lokacija: Tuzla


Subject: Sortiranje podataka
Kod za sortiranje podataka.
type
DownloadIzvorni kod (Delphi):
  1.   TNiz = array[1..1000] of integer;
  2.  
  3. procedure Bubble_Sort(Count : integer; var niz : TNiz);
  4. var
  5.   i, j : integer;
  6. begin
  7.   for i := Count - 1 downto 1 do
  8.     for j := 1 to i do
  9.       if niz[j] > niz[j + 1] then
  10.         begin
  11.           Temp := Niz[j];
  12.           Niz[j] := Niz[j + 1];
  13.           Niz[j + 1] := Temp;
  14.         end;
  15. end;

Pozdrav