удаление одинаковых элементов из массива

[sauron99]

я их находил и обнулял

For k:=1 to realM+realN-1 do
For z:=k+1 to realM+realN do
If k<>z Then
If (c[k]=c[z]) and (c[k]>0) Then
begin
c[z]:=0;(** dublikat obnulyaetsya **)
end;

а как их удалить можно?

[Warnes]

Ты имеешь ввиду с последующим смещением элементов в лево? А какой тип массива?

[Ntlegend]

для такого дела нада юзать динамические массивы.. и тогда алгоритм такой..
1) находим элемент который повторяется (его номер n);
2) смещаем все элементы массива начиная с n+1 до конца на 1 позицыю в лево (c[n]:=c[n+1]);
3) уменьшаем размер массива ( SetLength(c, Length(c)-1) );

[Warnes]

Согласен с Ntlegend. Увы в делфях не предусмотрена такая функция (удаление элемента с последующим смещением элементов).

P.S. Ну насколько я знаю не предусмотрена.

[Stilet]

Зато есть чудесная процедура move которая смещает блок данных, соответственно место куда смещение идет заменяетмя новыми данными. )

[CahekG]

Сообщение от Warnes

Согласен с Ntlegend. Увы в делфях не предусмотрена такая функция (удаление элемента с последующим смещением элементов).

P.S. Ну насколько я знаю не предусмотрена.

Если написать такую функцию самому, скорость её выполнения при использовании move = возможной скорости копирования памяти вашей ситемой и не один язык программирования не сделает этого быстрей, а только в лучшем случае так-же.

Такие функции могут иметь еще реализацию для типов с элементов>4 байт, когда есть отдельный массив ссылок(4 байтных например) на каждый элемент вашего. Тогда все операции перемещений уже с этим массивом ссылок. А основной массив неизменен.
Это может быть выгодно когда его размер на порядок больше размера массива ссылок.

А по алгоритму - копировать надо не все элементы полсле каждого удаления(например всего при 1000000 элементов(Integer) для удаления среди первых 10000 придётся перемещать около 40 ГГб).
А сделать примерно так:
1.Находим повторяющийся, запоминаем его номер
2.Находим следующий повторяющийся или достигаем конца =текущий, и копируем от запомненного номера до текущего.
3.Если конец не достигнут, то перехоим к п.2

Тогда перемещать придётся объем данных равный размеру вашего массива.
Выполняемый цикл из кеша будет однозначно работать быстрей, чем скорость обмена с памятью.

[Warnes]

Согласен, еще можно вставить ассемлеровские вставки, чем увеличить скорость выполнения функции.