VPF::Алгоритм выбора уникальных элементов.

Denwer

Дата 23.9.2008, 01:30 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 91
Регистрация: 19.6.2007
Где: Харьков

Репутация: нет
Всего: нет

Подскажите как реализовать алгоритм - Выбора Уникальных Элементов - к примеру из одномерного массива чисел,
и занести их в другой массив либо сразу на экран. Спасибо.

THandle

Дата 23.9.2008, 07:56 (ссылка)

(голосов:1)

Загрузка ...

Хранитель Клуба
Group Icon

Награды: 1

Профиль
Группа: Админ
Сообщений: 3639
Регистрация: 31.7.2007
Где: Moscow, Dubai

Репутация: 50
Всего: 372

Что-то типа:

Код



program Project1;

{$APPTYPE CONSOLE}

const
  MAX = 10;
var
  A: Array [1..MAX] of Integer;
  i: Integer;

function IsUnique(Number: Integer): Boolean;
var
  j: Integer;
begin
  for j := 1 to MAX do
    if j <> Number then
      if A[j] = A[Number] then
      begin
        Result := False;
        Exit;
      end;
  Result := True;
end;

begin
  for i := 1 to MAX do
    begin
      WriteLn('Enter element: ');
      ReadLn(A[i]);
    end;
  for i := 1 to MAX do
    if IsUnique(i) then
      WriteLn('A[', i, '] is unique. = ', a[i]);
  ReadLn;
end.

CodeMonkey

Дата 23.9.2008, 10:56 (ссылка)

(голосов:3)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 1839
Регистрация: 24.6.2008
Где: Россия, Тверь

Репутация: 29
Всего: 89

Отсортировать массив. Дубликаты будут идти друг за другом. Соответственно, для вывода будет простой цикл, который выводит элемент только, если он не равен предыдущему.
Также можно посмотреть в сторону свойств Sorted/Sort, Duplicates у всяких списков.

--------------------

Опытный программист на C++ легко решает любые не существующие в Паскале проблемы.

Petro123

Дата 25.9.2008, 15:41 (ссылка)

(голосов:1)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 288
Регистрация: 6.4.2007

Репутация: нет
Всего: нет

Если эллементы массива типа Byte - использовать множество

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Для новичков \| Следующая тема »