Удалить элемент массива

[viks1]

Можно как то удалить элемент динамического массива, оставив элементы в порядке каком были плюс уменьшив его размер
Вот например:
был массив
1,2,3,4,5,6,7,8,9

мне надо удалить 3
стал массив
1,2,4,5,6,7,8,9
_____________
Свойственно, есть задача к которой я придумал алгоритм, и пытаюсь реализовать, только вот не знаю как быть с проблемой которая выше.
Есть считалка, я ввожу количество слов, и игроков.
например:
8 слов и 5 игроков
___________________
слова :1 2 3 4 5 6 7 8
игроки: 1 2 3 4 5 2 3 4
____________________
4-й игрок выбывает
___________________
слова :1 2 3 4 5 6 7 8
игроки: 1 2 3 1 2 3 1 2
____________________
2-й игрок выбывает
_______________________
слова :1 2 3 4 5 6 7 8
игроки: 1 3 1 3 1 3 1 3
_____________________
3-й выбывает, остается 1-й игрок

Я думаю, что если таким образом удалять из массива тот или иной элемент(игроков) то останется один, который можно будет вывести в результат выигравшего игрока!

Что скажете?

[s-andriano]

Можно удалить N-й элемент, сдвинув все элементы, начиная с (N+1)-го на одну позицию в сторону начала массива.
Можно уменьшить размер массива, выделив другой массив нужного размера, скопировав туда содержимое исходного и удалить исходный.
Можно совместить эти две операции, чтобы не копировать массив дважды.
Но в любом случае - это достаточно ресурсоемкая операция.

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

[viks1]

Сообщение от s-andriano

Можно удалить N-й элемент, сдвинув все элементы, начиная с (N+1)-го на одну позицию в сторону начала массива.
Можно уменьшить размер массива, выделив другой массив нужного размера, скопировав туда содержимое исходного и удалить исходный.
Можно совместить эти две операции, чтобы не копировать массив дважды.
Но в любом случае - это достаточно ресурсоемкая операция.

Кроме того, в Вашем примере, насколько я понимаю, Вы хотите удалять не один элемент, а несколько элементов, имеющих совпадающие идентификаторы.
Это тоже можно сделать за один проход цикла, если известно количество удаляемых элементов и за два - если заранее неизвестно.

У меня есть ограничение, 30000. Я думаю это не сильно много ресурсов займет.

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

этот момент немного не понял.

[s-andriano]

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

У меня есть ограничение, 30000. Я думаю это не сильно много ресурсов займет.

Если Вы пользуетесь 32-разрядным компилятором и один элемент не слишком велик (например, не содержит массив строк), то - вполне.

этот момент немного не понял.

Сокращение длины массива на 1 элемент - довольно затратная операция.
Но если Вам нужно использовать часть массива, вполне уместно хранить номер последнего элемента (который при необходимости менять - при добавлении или уничтожении части элементов).

[viks1]

Сообщение от s-andriano

Если Вы пользуетесь 32-разрядным компилятором и один элемент не слишком велик (например, не содержит массив строк), то - вполне.
Сокращение длины массива на 1 элемент - довольно затратная операция.
Но если Вам нужно использовать часть массива, вполне уместно хранить номер последнего элемента (который при необходимости менять - при добавлении или уничтожении части элементов).

Смотрите какая есть еще идея, не обязательно удалять. Можно просто заменить нужный элемент.

Я пробовал, только не совсем корректно получалось. Да, оно заменяло нужный элемент, но я не знаю как перевести все это в функции и когда надо вызывать столько раз, сколько нужно. Я мог вызвать всего один раз!(и то не функцию, а просто процедуру на ButtonClick)

type
   mass = array of integer;

procedure TForm1.Button1Click(Sender: TObject);
var
igrmass:mass;
Code,i,j,n,m,b,k,p, slo, che,win, res:integer;
begin
   for i:=0 to slo-1 do
    begin
      for j := 1 to che do
       begin
        k:=k+1;
        p:=p+1;
        igrmass[p]:=k;
       end;
      if k=che then k:=0;
    end;
    res:=igrmass[i];
    for s := 0 to slo-1 do
      begin
       if igrmass[s]=res then
         begin
           for b:=0 to slo-1 do
              begin
                igrmass[s]:=igrmass[s+1];
                res:=igrmass[s];
              end;
            end
            else
           igrmass[s]:=igrmass[s];
      end;
      end;

 Label1.Caption:='выпадает игрок  '+IntToStr(res);
  win:=igrmass[s];

  Label2.Caption:='выиграет '+IntToStr(win);

end;

[s-andriano]

Этот код не может корректно работать, т.к. в нем используются неинициализированные переменные.