Insert sort | > Bajt <

Tato metoda předpokládá, že několik prvků na počátku pole je seřazeno.
Vezme vždy první prvek z části neseřazené a vloží ho na správné místo do části seřazené.
Místo pro vložení prvku vznikne tím, že se prvky v seřazené části posunou o 1 doprava. Proto se musí prvek na indexu, kterému hledáme místo, uložit do pomocné proměnné.

Type TIndex = 1..100; {Počet prvků pole = 100}
     TPole = Array[TIndex] of integer; {Vytvoření typu pole o 100 prvcích (číslech)}

procedure insert_sort(var pole: TPole; n : TIndex);
var i, j : TIndex;
	s : integer;

begin
	for i := 2 to n do begin
		s := pole[i];
		j := i - 1;
		while ((j > 0) AND (s < pole[j])) do begin
			pole[j + 1] := pole[j];
			j := j - 1;
		end;
		pole[j + 1] := s;
	end;
end;

Type TIndex = 1..100; {Počet prvků pole = 100}

TPole = Array[TIndex] of integer; {Vytvoření typu pole o 100 prvcích (číslech)}

procedure insert_sort(var pole: TPole; n : TIndex);

var i, j : TIndex;

s : integer;

begin

for i := 2 to n do begin

s := pole[i];

j := i - 1;

while ((j > 0) AND (s < pole[j])) do begin

pole[j + 1] := pole[j];

j := j - 1;

end;

pole[j + 1] := s;

end;

1 komentář u „Insert sort“

Po	Út	St	Čt	Pá	So	Ne
« Pro
					1	2
3	4	5	6	7	8	9
10	11	12	13	14	15	16
17	18	19	20	21	22	23
24	25	26	27	28	29	30
31

1 komentář u „Insert sort“

Napsat komentář k american style fridge freezer with ice Zrušit odpověď na komentář