Zespół Szkół Ogólnokształcących w Bobowej

Zespół Szkół Ogólnokształcących w Bobowej

Zespół Szkół Ogólnokształcących w Bobowej

Zespół Szkół Ogólnokształcących w Bobowej

Zespół Szkół Ogólnokształcących w Bobowej

Zespół Szkół Ogólnokształcących w Bobowej

Zespół Szkół Ogólnokształcących w Bobowej

Zespół Szkół Ogólnokształcących w Bobowej

Zespół Szkół Ogólnokształcących w Bobowej

Zespół Szkół Ogólnokształcących w Bobowej

Zespół Szkół Ogólnokształcących w Bobowej

Zespół Szkół Ogólnokształcących w Bobowej

Zespół Szkół Ogólnokształcących w Bobowej

Zespół Szkół Ogólnokształcących w Bobowej

Zespół Szkół Ogólnokształcących w Bobowej

Zespół Szkół Ogólnokształcących w Bobowej

Zespół Szkół Ogólnokształcących w Bobowej

Zespół Szkół Ogólnokształcących w Bobowej

Zespół Szkół Ogólnokształcących w Bobowej

Zespół Szkół Ogólnokształcących w Bobowej

Zespół Szkół Ogólnokształcących w Bobowej

Zespół Szkół Ogólnokształcących w Bobowej

Zespół Szkół Ogólnokształcących w Bobowej

Porządkowanie jest jednym z najważniejszych i najczęściej wykonywanych przez komputery zadań. Jeśli elementy w zbiorze są uporządkowane zgodnie z jakąś regułą (np. książki lub ich karty katalogowe według liter alfabetu, słowa w encyklopedii, daty, kredki według kolorów, czy osoby według wzrostu), to wykonanie wielu operacji na tym zbiorze staje się łatwiejsze i szybsze. Dotyczy to zwłaszcza: sprawdzenia, czy dany element znajduje się w zbiorze i znalezienia go, dołączenia nowego elementu w odpowiednie miejsce, aby zbiór pozostał nadal uporządkowany.

Sortowanie (http://pl.wikipedia.org/wiki/Sortowanie)

POBIERZ CAŁĄ LEKCJĘ

NAIWNEvar  T:array[1..100] of byte;  i,j,min,poz,tym,ile:byte;begin  ile:=20;  {losowanie}  for i:=1 to ile do T[i]:=random(100);  for i:=1 to ile do write(T[i]:3);  writeln;  {sortowanie naiwne}  for j:=1 to ile-1 do  begin    {szukanie najmniejszego}    min:=T[j];    for i:=j to ile do      if T[i] T[i+1] then    begin      {zamiana elementow}      tym:=T[i+1];      T[i+1]:=T[i];      T[i]:=tym;    end;  for i:=1 to ile do write(T[i]:3);  readln;end.
Zobacz tutaj