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

[Kolgute]

Нужно массив из чисел избавить от повторяющихся элементов

procedure Check1(b:array of integer);
var i,j:Integer;
begin
  Randomize;
  for i:=1 to 5 do
  begin
    for j:=1 to 5 do
    if i <> j then
      if b[i] = b[j] then b[i]:=Random(9)+3;
  end;
end;

_____
Код программы нужно выделять (форматировать) тегами [CODE] (читать FAQ)
Модератор


Но после прохода массива через эту процедуру в нём всё ещё остаются одинаковые значения, помогите разобраться

[alexzk]

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

Нужно массив из чисел избавить от повторяющихся элементов

procedure Check1(b:array of integer);
var i,j:Integer;
begin
  Randomize;
  for i:=1 to 5 do
  begin
    for j:=1 to 5 do
    if i <> j then
      if b[i] = b[j] then b[i]:=Random(9)+3;
  end;
end;

Но после прохода массива через эту процедуру в нём всё ещё остаются одинаковые значения, помогите разобраться

Че тут разбиратся - эта процедура их СОЗДАЕТ случайные, она не от чего не избавляется. Точнее....если там что-то одинаково, то она меняет его на случайное, что опять может дать такое же...

[Serge_Bliznykov]

во-первых, код с ошибкой. Массив b - у Вас это массив открытого типа (open array).
Они всегда нумеруются от нуля.
ну и насчёт 5 - это очень смелое допущение.
почитайте, например, статью GunSmoker'а - Параметры типа открытый массив и "array of const"

возможно, Вам будет удобнее объявить свой тип массива и его передавать в процедуру.

например,

const n = 5;
type myarray = array[1..n] of integer;
....
procedure Check1(b:myarray);
var i,j:Integer;
begin
  for i:=1 to n do
  begin
    for j:=1 to n do
...

во-вторых,
randomize не желательно вызывать многократно.
лучше это делать один раз в главном тебе программы (после главного Begin или в процедуре иницилизации).

в-третьих,
вы найденные повторы заменяете на случайные числа.
ну, разумеется, они могут совпасть с теми числами, которые есть в массиве.
Какова вообще изначальная цель? Чем и как заполняется массив изначально?
Может быть, проще сразу заполнить массив без повторов?

ну, или попробуйте такой код:

procedure Check1(b:myarray);
var i,j,k,tmp, isfound:Integer;
begin
  for i:=1 to n do
  begin
    for j:=1 to n do
    if i <> j then
        if b[i] = b[j] then begin
            repeat
              tmp := Random(9)+3;
              isfound := 0;
              for k:=1 to n do
                 if b[k]=tmp then begin isfound := 1; break end;
            until isfound = 0;
            b[j]:=tmp;
        end;
  end;
end;

[Вадим Мошев]

Немного не по теме, но по коду.

procedure Check1(b:array of integer);

я один думаю, что нельзя так объявлять формальные параметры-массивы? array of integer должен быть объявлен как отдельный тип, то есть

type TArray = array of integer;
...
procedure Check1(b: TArray);

[Kolgute]

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

во-первых, код с ошибкой. Массив b - у Вас это массив открытого типа (open array).
Они всегда нумеруются от нуля.
ну и насчёт 5 - это очень смелое допущение.
почитайте, например, статью GunSmoker'а - Параметры типа открытый массив и "array of const"

возможно, Вам будет удобнее объявить свой тип массива и его передавать в процедуру.

например,

const n = 5;
type myarray = array[1..n] of integer;
....
procedure Check1(b:myarray);
var i,j:Integer;
begin
  for i:=1 to n do
  begin
    for j:=1 to n do
...

во-вторых,
randomize не желательно вызывать многократно.
лучше это делать один раз в главном тебе программы (после главного Begin или в процедуре иницилизации).

в-третьих,
вы найденные повторы заменяете на случайные числа.
ну, разумеется, они могут совпасть с теми числами, которые есть в массиве.
Какова вообще изначальная цель? Чем и как заполняется массив изначально?
Может быть, проще сразу заполнить массив без повторов?

ну, или попробуйте такой код:

procedure Check1(b:myarray);
var i,j,k,tmp, isfound:Integer;
begin
  for i:=1 to n do
  begin
    for j:=1 to n do
    if i <> j then
        if b[i] = b[j] then begin
            repeat
              tmp := Random(9)+3;
              isfound := 0;
              for k:=1 to n do
                 if b[k]=tmp then begin isfound := 1; break end;
            until isfound = 0;
            b[j]:=tmp;
        end;
  end;
end;

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

[Serge_Bliznykov]

Сообщение от Вадим Мошев

я один думаю, что нельзя так объявлять формальные параметры-массивы?

ошибаетесь. Вадим, Вы не увидели ссылки в моём сообщении на статью об открытом типе массива ?
Тогда просто загуглите - Open Array Pascal
Это совсем не то же самое, что динамические массивы.

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

Во первых, извините , я не указал что работаю в делфи а там какой отправил массив в процедуру,с таким работать и будешь(динамический или статический и т.д)

вот я и говорю Вам - Вы с ним работаете НЕПРАВИЛЬНО!
пропускаете первый элемент массива и совершенно самонадеянно считаете, что массив ровно на 6 элементов. Если Вам реально нужен массив открытого типа, то будьте добры с ним работать так, как положено:

procedure Check1(b:array of integer);
var i,j:Integer;
begin
  Randomize;
  for i:=Low(b) to High(b) do
  begin
    for j:=Low(b) to High(b) do
....

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

Во вторых мне для одной программы нужно что бы в массиве были не совпадающие элементы а массив изначально заполняется случайно.

так при заполнении и проверяйте - есть ли уже такая величина в массиве и повторяте цикл получения нового случайного числа, пока есть. Это проще, чем проверять ВСЕ элементы, а потом заменять совпавшие.

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

В третьих почему-то код не работает, бывают пробеги когда есть одинаковые числа

чей код не работает? Мой?
Или Ваш?
Если Ваш - то я Вам объяснил почему он не работает. Потому что, когда Вы нашли два одинаковых числа, вы генерите новое случайное число. Оно легко может совпасть с числом, которое уже есть (и на практике - совпадает).
В результате Вы заменяете на число, которое является повтором.

Ещё есть вопросы?

[Kolgute]

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

ошибаетесь. Вадим, Вы не увидели ссылки в моём сообщении на статью об открытом типе массива ?
Тогда просто загуглите - Open Array Pascal
Это совсем не то же самое, что динамические массивы.



вот я и говорю Вам - Вы с ним работаете НЕПРАВИЛЬНО!
пропускаете первый элемент массива и совершенно самонадеянно считаете, что массив ровно на 6 элементов. Если Вам реально нужен массив открытого типа, то будьте добры с ним работать так, как положено:

procedure Check1(b:array of integer);
var i,j:Integer;
begin
  Randomize;
  for i:=Low(b) to High(b) do
  begin
    for j:=Low(b) to High(b) do
....

так при заполнении и проверяйте - есть ли уже такая величина в массиве и повторяте цикл получения нового случайного числа, пока есть. Это проще, чем проверять ВСЕ элементы, а потом заменять совпавшие.



чей код не работает? Мой?
Или Ваш?
Если Ваш - то я Вам объяснил почему он не работает. Потому что, когда Вы нашли два одинаковых числа, вы генерите новое случайное число. Оно легко может совпасть с числом, которое уже есть (и на практике - совпадает).
В результате Вы заменяете на число, которое является повтором.

Ещё есть вопросы?

Да, мне важно что бы массив с начало генерировался, а потом уже чистился от одинаковых, требование преподавателя.
А если взять массив случайно сгенерированный, потом 1 число сравнить со всеми и если совпадает то рандомить заного и так пока не будет повтора, так со 2 , 3 и т.д то сработает?

[Serge_Bliznykov]

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

А если взять массив случайно сгенерированный, потом 1 число сравнить со всеми и если совпадает то рандомить заного и так пока не будет повтора, так со 2 , 3 и т.д то сработает?

да. именно так

я и написал в своём примере.

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

ну, или попробуйте такой код:

но код не проверял.