подмассива. Однако
подмассива. Однако существует более экономичная реализация, основанная на применении одного из приемов эффективного программирования. Назовем его "фиктивным" удалением элемента.
Идея состоит в том, чтобы переставить удаляемый элемент в конец вектора, а в дальнейшем "сделать вид", что компонент осталось на одну меньше. Можно представить это следующим образом:
Алгоритм E3-3
function IndexMax (Mas: massive1; left, right: index1): index1;
var i, temp: index1;;
begin
temp:= left;
for i:= left+1 to right do
if Mas[i] > Mas[temp] then temp := i;
IndexMax := temp
end;
procedure PseudoDelArray (var Mas: massive1; K: index1);
begin
Swap (Mas[K], Mas[N-1]);
end;
procedure QuickSort (var Mas: massive1; left, right: index1);
var ind : index1;
begin
ind := Partition (Mas, left, right);
if ind > left then QuickSort (Mas, left, ind);
if ind+1 < right then QuickSort (Mas, ind+1, right);
end; {Partition}
Остается, при дальнейшем использовании
Индекс
Элементарные функции
Линейные уравнения
Нелинейные уравнения
Случайные числа
