Zaproszenie

Witamy na stronach edukacyjnych

dla nauczycieli, studentów i uczniów szkół średnich w zakresie

informatyki i systemów mikroprocesorowych

Home Turbo Pascal Algorytmy standardowe Sortowanie przez wstawianie
malastandardduza
Sortowanie przez wstawianie

   Sortowanie przez wstawianie polega na pobieraniu kolejnych elementów ciągu i poszukaniu dla niego odpowiedniego miejsca na liście elementów uporządkowanych. Gdy miejsce zostanie znalezione, to elementy ww. listy się rozsuwa i w tak ustalone miejsce wkłada element.

Założenie: ciąg liczb do sortowania: 4,1,6,3

Realizacja:
    4 1 6 | 3 - element ostatni jest początkiem listy uporządkowanej

    wybiera się element leżący tuż przed elementem ostatnim (liczba 6) i porównuje się

    z elementem listy (3)

    element 6>3 zatem   
    4 1 | 3 6

    wybiera się następny element (1), i porównuje z elementami listy oraz odpowiednio

    "wkłada"   
    4 | 1 3 3    itd.

Przykładowa realizacja ww. algorytmu w języku Turbo Pascal:

program sortowanie_przez_wstawianie;
uses crt;
const n=10;
var
  tab:array[1..n] of integer;
  i,j,k : integer;
begin
  clrscr;
  writeln('Sortowanie przez wstawianie');
  for i:= 1 to n do readln(tab[i]);
  writeln('Liczby przed sortowaniem:');
  for i:= 1 to n do write(tab[i]);
  for j:=n-1 downto 1 do
  begin
    k := tab[j];
    i := j + 1;
    while (i<=n) and (k>tab[i]) do
    begin
      tab[i-1]:=tab[i];
      i:=i+1;
    end;
    tab[i-1]:=k;
  end;
  writeln('Liczby po sortowaniu:');
  for i:=1 to n do write(tab[i]);
  repeat until keypressed;
end.

 

Współpracujemy z:

Strona powstała dzięki współpracy z Templatka.pl - serwisem oferującym Joomla Szablony i Joomla Moduły i inne materiały do tego dobrego systemu CMS - Zarówno free jak i komercyjne. Zapraszamy również do odwiedzenia serwisów: Joomla21.com - katalogu najnowszych informacji o Joomla. Polecamy nasze Katalog firm Empex.pl oraz Katalog usług 2xU.pl oraz serwis z informacjami na temat systemu blogowego Nucleus CMS.
Wspieramy inicjatywę: Uniwersytety Dla Wszystkich - zainicjowaną przez Uniwersytet Warszawski, w zakresie technik komputerowych
Wspieramy informatycznie stronę sponsora: Hydraulic Hammers Buildplant.eu - firma zajmująca się dystrybucją różnych maszyn budowlanych

Statystyka

Members : 367
Content : 50
Content View Hits : 2040928

Online

We have 7 guests online
Designed by Templatka.pl dla ZS Zychlin