АВТИ информатика по паскалю / Metod1_2010 / INSORT / INSERT

{б®авЁа®ўЄ  Їа®бвл¬ ўЄ«о祭ЁҐ¬}
procedure Straight_Insertion;
var i,j:index; x:integer;
begin
for i:=2 to n do
begin x:=a[i];
{Ї®ЁбЄ Ї®¤е®¤п饣® ¬Ґбв   [j]}
{ўЄ«о祭ЁҐ е}
a[j+1]:=x
end
end;{Straight_Insertion}

{Ї®ЁбЄ Ї®¤е®¤п饣® ¬Ґбв  j=1...i}
{Їа®бв®© Ї®ЁбЄ}
j:=i-1;
while (f(x)<f(a[j])) and (j>=1) do
{б¤ўЁЈ н«Ґ¬Ґ­в  ўЇа ў®}


{ Ї®ЁбЄ Ї®¤е®¤п饣® ¬Ґбв  j=1...i}
{ Ї®ЁбЄ б Ў амҐа®¬ ў a[0]}
{a : array [0..n] of integer}
j:=i-1;
a[0]:=x;
while f(x) < f(a[j]) do
{б¤ўЁЈ н«Ґ¬Ґ­в  ўЇа ў®}

{б¤ўЁЈ н«Ґ¬Ґ­в  ўЇа ў®}
a[j+1]:=a[j]; j:=j-1