Повторяющиеся элементы массива

[Stanislav]

Здравствуйте!

у меня есть вопрос по поводу массива не могу разобраться..

имеется динамический массив, в котором хранятся фамилии студентов,
вся проблема в том, что эти фамилии могут повторяться.
Как очистить массив от повторяющихся элементов?

Заранее благодарен.

[D-mon]

Берёшь первую фамилию (i) и перебираешь список от i+1 до конца, встретил одинаковую, удалил... И так далее... Это самый простой способ.
Сложнее: отсортировать (одним из алгоритмов сортировки), потом таким же способом проверять, равер или нет i+1, равен удалил неравен берм следуещий елемент массива, и так до конца.

[AlexandrSid]

А почему нельзя проверять на совпадения при добавлении элемента?

[Stilet]

имеется динамический массив, в котором хранятся фамилии студентов,

Не надо ничего сортировать, при добавлении в массив проверяй есть ли такая фамилия, если есть то не вноси. Только я не могу понять как этот подход будет действовать в случаях однофамильцев...

[Stanislav]

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

Не надо ничего сортировать, при добавлении в массив проверяй есть ли такая фамилия, если есть то не вноси. Только я не могу понять как этот подход будет действовать в случаях однофамильцев...

я понимаю о чем вы говорите привиду пример как делал потом вывел и все равно получил одинаковые элементы:

Здесь читаю файл пока не достигнут конец
begin
kolmas:=kolmas+1;
Выбираю из строки фамилию // Дело в том что строка имеет вид
Иванов/Иван/Иванович
После парсинга заношу в переменную fam фамилию Иванов

После чего проверяю элементы массива
for i:=0 to higth(mas) do begin
if mas[i] <> fam then begin
mas[kolmas] : = fam;
end;
end;

Только после этого в массиве все равно есть одинаковые фамилии
Подскажите как это исправить

Спасибо.

[AlexandrSid]

У тебя проверка сводится только к сравнению первого элемента массива с добавляемым элементом.

var b:boolean;

b:= True;
for i:=0 to higth(mas) do begin 
  if mas[i] = fam then begin 
    b:=False;   
    Break;
  end;
end; 
if b then mas[kolmas] : = fam;

[Stilet]

 i:=0;b:false;
while (i<=higth(mas))and(not b) do begin
 if mas[i] = fam then b:=true;
 inc(i);
end;
if b then // такой уже есть

[Stanislav]

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

У тебя проверка сводится только к сравнению первого элемента массива с добавляемым элементом.

var b:boolean;

b:= True;
for i:=0 to higth(mas) do begin 
  if mas[i] = fam then begin 
    b:=False;   
    Break;
  end;
end; 
if b then mas[kolmas] : = fam;

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

ведь я же запустил цикл от 0 до higth(mas) он же должен перебрать все элементы.
Может вопрос дурацкий но что-то я не понимаю

Спасибо еще раз.

[AlexandrSid]

Смотри ты присваиваешь переменной fram фамилию (Например 'Иванов')

Допустим твой массив mas = ('Петров','Иванов','Сидоров')

запускаешь цикл

for i:=0 to higth(mas) do begin
if mas[i] <> fam then begin 'сравниваешь mas[i] (т.е. mas[0]) которое равно 'Петров' и fam который равен 'Иванов', соответственно они не равны и твоя процедура добавляет fam в массив' mas[kolmas] : = fam 'Но это еще не самое страшно, после этого ты продолжаешь цикл и получается что процедура добавить фалмилию (higth(mas)-количество совпадений) раз.
Т.е. фамилию можно добавить только после того как ты проверил все элементы массива на совпадения, если же обнаружено совпадение то цикл необходимо прервать т.к. нет смысла сравнивать остальные элементы массива.

if mas[i] = fam then begin
b:=False;
Break;
end;

Переменная b в данном случаи служит для определения добавления элемента в массив, если есть совпадения она равна False и элемент не добавляется.

Лучше используй код Stilet он более правильно написан, но смысл тот же думаю сам разберешся.

[Dimoney]

for i:=0 to higth(mas) do begin 
  if mas[i] <> fam then begin 
    mas[kolmas] : = fam;
  end;
end;

Первая фамилия "Иванов". Проверяешь "Петров". i=0, "Иванов" <> "Петров". "Иванов" заносится в базу.

Надо сначала проверить вхождение, если нашел, то флаг "найдено":=true. Выход из цикла. Если не нашел, то флаг "найдено":=false. Проверяешь флаг, true = > не заносишь, false = > заносишь.

PS. Опоздал, блин