Индексная сортировка, индексный массив

Суббота, 29 Мая 2021 г. 01:55 + в цитатник

FasterHarder: в итоге победил сортировкой обмена (пузырьком, даже оптимальным вроде пузырьком), т к выбором нереал, а на вставках тоже устойчивость сбивалась
сейчас все работает как часы:

for i := 2 to N do

begin

for j := N downto i do

begin

if(data[index[j]] < data[index[j - 1]]) then

begin

swap := index[j];

index[j] := index[j - 1];

index[j - 1] := swap;

end;

Еще применение этой индексной сортировки: когда надо, чтобы данные оставались в первоначальном состоянии, но при этом вывести их надо в отсортированном виде для каких-либо нужд временно/одномоментно...

Скрытый текст

До чего же неприятная сортировка вставками! Вроде считается, что способы: пузырек, выбором и вставками равны по силе и по простоте, но, ИМХО, насколько же неудобно кодить вставками)...Стараюсь избегать ее до последнего!

https://forum.sources.ru/index.php?showtopic=421471&view=findpost&p=3847798