Strona główna Darmowe programy, shareware Programowanie MS Excel Porady komputerowe Bazy danych Kontakt

Polecamy: darmowe gry logiczne Sudoku do druku - raz zagrasz nigdy nie przestaniesz!
Zobacz ciekawe Zagadki logiczne Tabliczka mnożenia Mnożenie macierzy Macierz odwrotna

Warto uczyć się języka angielskiego: Życzenia urodzinowe po angielsku Ubrania po angielsku Zawody po angielsku

Sortowanie bąbelkowe Pascal, C++ , Delphi

Zobacz także:
Sortowanie przez wstawianie z przykładowymi programami w C++,Pascalu
Algorytm Euklidesa z przykładowymi programami w C++ i Pascalu
Sito Eratostenesa z przykładowymi programami w Delphi,C++,Javie,Pascalu

Zasada działania

W trakcie sortowania bąbelkowego porównywane są kolejne elementy np. tablicy i jeśli elementy są w złej kolejności to są one zamieniane miejscami. Jeśli sortowana struktura danych posiada n elementów to aby sprawdzić wszystkie elementy musi być wykonane n-1 porównań. W najmniej korzystnym przypadku element, który powinien znaleźć się na początku listy (tablicy) znajduje się na końcu. Ponieważ przy jednym sprawdzeniu element może się przesunąć tylko o jedno miejsce to musimy wykońać n-1 sprawdzeń listy, czyli zostanie wykonanych (n-1)*(n-1) porównań. W trakcie zamiany wartości w tablicy wykorzystywana jest zmienna pomocnicza tmp.

Sortowanie bąbelkowe - Pascal

program sort;

var tablica:array[0..4] of integer;

i,j,v,c,tmp : integer;

begin

clrscr;

{wypelnianie tablicy}

tablica[0] := 124;
tablica[1] := 39;
tablica[2] := 50;
tablica[3] := 100;
tablica[4] := 3;

{sortowanie babelkowe}

for i:=0 to 3 do
for j:=0 to 3 do
if (tablica[j]>tablica[j+1]) then
begin
tmp := tablica[j];
tablica[j] := tablica[j+1];
tablica[j+1] := tmp;
end;

{ wypisywanie wynikow }

for i:=0 to 4 do
writeln(tablica[i]);
readln;

end.

Sortowanie bąbelkowe w Pascalu - program w działaniu

Sortowanie bąbelkowe - Java

public class sortowanie
{

public static void main(String[] arg)
{

int i,j,tmp;
int[] tablica = new int[5];

/* wypełnianie tablicy*/

tablica[0]=127;
tablica[1]=12;
tablica[2]=50;
tablica[3]=1;
tablica[4]=110;

/* sortowanie bąbelkowe */

for (i=0;i<=3;i++)
for (j=0;j<=3;j++)
if (tablica[j]>tablica[j+1])
{
tmp = tablica[j];
tablica[j] = tablica[j+1];
tablica[j+1] = tmp;
}

/* wyświetlanie wyników */

for (i=0;i<=4;i++)
System.out.println(tablica[i]);

}

}

Program sortujący w języku java w działaniu.

Sortowanie bąbelkowe - C++

int i,j,x,tmp;
int tablica[5];

/* wczytywanie liczb z klawiatury */

cout << "Podaj 5 liczb : \n";

for (i=0; i<=4; i++)
cin >>tablica[i];

/* sortowanie bąbelkowe */

for (i=0;i<=3; i++)
for (j=0;j<=3; j++)
if (tablica[j]>tablica[j+1])
{
tmp = tablica[j];
tablica[j] = tablica[j+1];
tablica[j+1] = tmp;
}
cout << "\n\n";

/* wyświetlanie posortowanych liczb */

for (i=0; i<=4; i++)
cout << tablica[i] << " , ";

cout << "\n\n";

Program sortujący w C++ w działaniu.

Sortowanie bąbelkowe - Delphi

procedure TForm1.Button1Click(Sender: TObject);

var tablica:array[0..14] of integer;

i,j,v,c,tmp : integer;

begin

{wypełnianie tablicy}

for i:=0 to 14 do
begin
   val(StringGrid1.Cells[0,i],v,c);
   tablica[i] := v;
end;

{sortowanie bąbelkowe}

for i:=0 to 13 do
   for j:=0 to 13 do
      if (tablica[j]>tablica[j+1]) then
      begin
         tmp := tablica[j];
         tablica[j] := tablica[j+1];
       tablica[j+1] := tmp;
     end;

{wypełnianie grida wynikami}

for i:=0 to 14 do
StringGrid2.Cells[0,i] := IntToStr(tablica[i]);

end;

Program sortujący w Delphi w działaniu.

Polecamy : Cyfry rzymskie Przyspieszenie ziemskie Wahadło matematyczne Mostek Gretza Pojemność kondensatora Liczby naturalne przykłady Liczby wymierne przykłady Stopniowanie przymiotników angielski Działania na logarytmach Usuwanie niewymierności z mianownika Średnia arytmetyczna Średnia ważona Równania wymierne Alfabet grecki Kwasy beztlenowe trójkąt równoboczny wzory fizyczne twierdzenia matematyczne twierdzenia Pitagorasa wzory matematyczne zadania z matematyki zadania z chemii wzory strukturalne wzory skróconego mnożenia wartości funkcji trygonometrycznych ułamki zwykłe funkcja kwadratowa funkcja liniowa funkcja homograficzna wyrażenia algebraiczne Prawo Avogadra Otrzymywanie kwasów