значения 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
Индекс
Элементарные функции    Линейные уравнения    Нелинейные уравнения    Случайные числа


Hosted by uCoz