Добавил:
Upload
Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз:
Предмет:
Файл:АВТИ информатика по паскалю / Metod1_2010 / INSORT / BISEC
.PAS {¬Ґв®¤ ¤Ґ«ҐЁп Ї®Ї®« ¬}
{Ї®ЁбЄ Ї®¤е®¤п饣® ¬Ґбв }
l:=1; r:=i-1;
while l <= r do
begin
m:=(l+r) div 2;
if f(x) < f(a[m]) then
r := m-1
else
l := m+1
end;
ЪДДДДДДДДДДДДДДДДДДДДДї
і{б¤ўЁЈ н«Ґ¬Ґв®ў і
і ®в i-1 ¤® l ўЇа ў® }і
АДДДДДДДДДДДДДДДДДДДДДЩ
{ўЄ«о票Ґ е}
a[l] := x
ЪДДДДДДДДДДДДДДДДДДДДДДДДДї
і { б¤ўЁЈ н«Ґ¬Ґв®ў і
і ®в i-1 ¤® l ўЇа ў® } і
і for j := i-1 downto l doі
і a[j+1] := a[j] і
АДДДДДДДДДДДДДДДДДДДДДДДДДЩ
{Ї®ЁбЄ Ї®¤е®¤п饣® ¬Ґбв }
l:=1; r:=i-1;
while l <= r do
begin
m:=(l+r) div 2;
if f(x) < f(a[m]) then
r := m-1
else
l := m+1
end;
ЪДДДДДДДДДДДДДДДДДДДДДї
і{б¤ўЁЈ н«Ґ¬Ґв®ў і
і ®в i-1 ¤® l ўЇа ў® }і
АДДДДДДДДДДДДДДДДДДДДДЩ
{ўЄ«о票Ґ е}
a[l] := x
ЪДДДДДДДДДДДДДДДДДДДДДДДДДї
і { б¤ўЁЈ н«Ґ¬Ґв®ў і
і ®в i-1 ¤® l ўЇа ў® } і
і for j := i-1 downto l doі
і a[j+1] := a[j] і
АДДДДДДДДДДДДДДДДДДДДДДДДДЩ
Соседние файлы в папке INSORT