значения Elem. Приведем
значения Elem.
Приведем возможный вариант реализации алгоритма E3-2 на языке паскаль.
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; left, right: index1): index1;
var i, j: index1; barrier: item;
begin
barrier := Mas[(left + right) div 2];
i := left;
j := right;
repeat
Индекс
Элементарные функции
Линейные уравнения
Нелинейные уравнения
Случайные числа
