bubble sort.pas

来自「100 bubble sort.pascal」· PAS 代码 · 共 56 行

program sortowanie_babelkowe;
uses crt;

var
  i,n,j,pom:integer;
  tab:array[1..15] of integer;

{..................................................}
procedure sort;	{Sortujemy babelkowo}
begin
    for j := 1 to n-1 do {Liczba krokow-kolejny krok}
    for i := 1 to n-1 do {wykonywanie jedengo kroku}
      if tab[i] > tab[i+1] then { Porzadek rosnacy }
       begin
        pom := tab[i]; 
        tab[i] := tab[i+1]; 
        tab[i+1] := pom;
       end;
end;

procedure podaj;
begin
writeln('Podaj ilosc liczb do posortowania [max.15]');
readln(n);
writeln('Podawaj kolejno liczby');
 for i:=1 to n do
  begin
   write(i,'.   ');
   readln(tab[i]);
  end;
 writeln;
 writeln('Liczby PRZED sortowaniem: '); writeln;
 for i := 1 to N do write(tab[i] : 3);
end;
{...................................................}

begin
clrscr;
    
  podaj;
  
  sort;

  writeln;
  writeln;
  writeln;
  writeln('Liczby PO sortowaniu:'); writeln;
  for i := 1 to N do write(tab[i] : 3);
  writeln;
  writeln;
  writeln;
  writeln;
  writeln;
  writeln('KONIEC');
  readln;
end.