Burbulo rikiavimo algoritmas

Sveiki, atrodo, kad nėra ko nesuprasti, bet yra.

http://lt.wikipedia.org/wiki/Burbulo_rikiavimo_algoritmas

kaip žinoti kiek kartų sukti ciklą? nes čia nei pradinių reikšmių , nei paaiškinimų.

na cikla reiketu sukti tiek kartu kiek yra masyvo elementu arba tol kol tam tikra salyga nera tenkinama

Sveiki, atrodo, kad nėra ko nesuprasti, bet yra.

 

http://lt.wikipedia....vimo_algoritmas

 

kaip žinoti kiek kartų sukti ciklą? nes čia nei pradinių reikšmių , nei paaiškinimų.

tarkim array yra N elementų. Tai varai ciklą nuo 1..N-1. Lygini kiekvieną kartą po du elementus, jei juos reikia sukeisti, sukeiti ir važiuoji toliau, kai pasieki N-1, pradedi ciklą iš naujo, ir vėl lygini po du, kuriuos reikia - sukeiti vietom. Taip gaunas, kad porom lygindamas, tu tiesiog iškeli rezultatus į viršų, kurie turi didesnę reikšmę, o į apačią po truputį leidžiasi tie, kurie turi mažesnę (pvz abecelės raidės A..Z).

Ciklas baigiasi tada, kai eidamas per visus 1..N-1 neberandi poros, kurios elementus reikėtų sukeisti vietomis.

Prieš 3 metus univere darėm :D

Jei reikia va kodas:

program burbulas;
 type masyvas = array [1..1000] of integer;
 var i, kiek : integer;
     a : masyvas;
procedure rikiuoti(var a : masyvas; n : integer);
 var i, j, t : integer;
begin
 for i := n downto 1 do
   for j := 2 to i do
     if a[j - 1] > a[j] then
       begin
         t := a[j - 1];
         a[j - 1] := a[j];
         a[j] := t;
       end
end;
begin
 writeln('Parasyk kiek bus masyvo elementu:');
 read(kiek);
 writeln('Parasyk masyvas element:');
 for i := 1 to kiek do
   read(a[i]);
 rikiuoti(a, kiek);
 writeln('Isrikiuotas masyvas:');
 for i := 1 to kiek do
   write(a[i],' ');
end.

Dėkui, viską supratau.