Добавил:
Upload Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз: Предмет: Файл:
Скачиваний:
22
Добавлен:
31.03.2015
Размер:
534 б
Скачать
{¬Ґв®¤ ¤Ґ«Ґ­Ёп Ї®Ї®« ¬}
{Ї®ЁбЄ Ї®¤е®¤п饣® ¬Ґбв }
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