Prikazi cijelu temu 27.02.2011 21:54
zxz Van mreze
Administrator
Registrovan od:03.02.2009
Lokacija:Tuzla


Predmet:Sortiranje podataka
Kod za sortiranje podataka.
type
PreuzmiIzvorni kôd (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;

Podrška samo putem foruma, jer samo tako i ostali imaju koristi od toga.