SEM INF 27.10.2010

Zase ten Bubblesort...

    Dnes sme na hodine pokračovali v Bubblesorte, ale trochu sme ho vylepšili.

Vylepšený Bubblesort
    Oproti predošlému Bubblesortu, nerobí zbytočné zisťovanie či je pole usporiadané viackrát, ale iba raz. Proste, ak už je pole usporiadané skôr, predošlý bubblesort by hľadal ďalej zle usporiadané prvky, aj keď by už nič nenašiel, tento keď zistí že už neurobil žiadnu výmenu, tak sa zastaví.

***

program bublina;
uses crt;
var i,k,p,n: integer;
      vymena: boolean;
      a: array [1..50] of integer;
begin
  randomize;
  clrscr;
  writeln(‘Zadaj pocet prvkov pola:‘);
  readln(n);
  for i:= 1 to n do begin
    a[i]:= random(100)+1; write(a[i],'  ');
  end;
  repeat
    vymena:=false;
    for i:=1 to n-1 do
    if a[i] > a[i+1] then
      begin
        p:=a[i]; a[i]:=a[i+1]; a[i+1]:=p;
        vymena:=true;
      end;
  until vymena=false;
  writeln;
  writeln('zoradene to je takto');
  for i:=1 to n do
    write(a[i],'  ');
  readln;
end.

***

Tento program je tu. 
Aplikácia je tu.

Koniec hodiny.