СБ
Света Бабенко
Сортировка массива методом вставки
под Делфи 7 (Delphy 7)
есть заданый масив, нада создать кнопку, код которой отсортирует этот масив методом вставки
нужен сам код сортировки методом вставки
под Делфи 7 (Delphy 7)
есть заданый масив, нада создать кнопку, код которой отсортирует этот масив методом вставки
нужен сам код сортировки методом вставки
procedure ISort(var m: array of integer);
var
i, j, n, t: integer;
begin
n := length(m);
for j := 2 to n do
begin
i := j;
while m[i] < m[i - 1] do
begin
t := m[i];
m[i] := m[i - 1];
m[i - 1] := t;
i := i - 1
end
end
end;