важность алгоритма
важность алгоритма поиска максимума, о чем мы говорили еще в Главе D, запишем его первый вариант в общем виде, причем будем считать, что доступ к компоненте обеспечивает непосредственно получение ее ключевого значения item.
Алгоритм E2-1 (1)
type
index1 = 0..N-1; {N > 1}
massive1 = array [index1] of item;
function Max (Mas: massive1; left, right: index1): item;
var i: index1; temp: item;
begin
temp:= Mas[left];
for i:= left+1 to right do
if Mas[i] > temp then temp := Mas[i];
Max := temp
end;
procedure ShiftRightArray (var Mas: massive1; ind: index1);
{сдвиг значений вправо, начиная от позиции ind}
var i: index1;
begin
for i:= N-1 downto ind do
Mas[i] := Mas[i-1]
end; {ShiftRightArray}
procedure InsArray (var Mas: massive1; K: index1; Elem: item);
var i: index1;
begin
ShiftRightArray (Mas, k);
Mas[K] := Elem
end; {InsArray}
type
index1 = 0..N-1; {N > 1}
massive1 = array [index1] of item;
function Partition
(var Mas: massive1;
Индекс
Элементарные функции
Линейные уравнения
Нелинейные уравнения
Случайные числа
