VPF::слова - Форум программистов

Snik

Дата 7.2.2007, 13:40 (ссылка)

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

Загрузка ...

Бывалый

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

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

Допустим у меня есть
Var wds:array[0..30] of string[5];

потом я заполняю этот массив словами
Слова могут повторяться.
как мне вывести слова по одному разу каждое слово?
т.е если в моем массиве 5 одинаковых слов(в разных местах а не подряд)
то вывести только 1 раз это слово (первое по очереди)

Magister Y0da

Дата 7.2.2007, 16:19 (ссылка)

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

Загрузка ...

Зелёненький

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

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

отсортировать
и лишние удалить

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

volvo877

Дата 7.2.2007, 16:43 (ссылка)

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

Загрузка ...

Эксперт

Профиль
Группа: Комодератор
Сообщений: 2073
Регистрация: 15.11.2004

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

Magister Y0da, при сортировке слова могут поменять расположение одно относительно другого... Это не всегда допустимо...

Snik, вот принцип:

Код

const
  n = 10;
  wds: array[0 .. n] of string = (
    '1', '5', '1', '4', '4', '5', '1', '8', '9', '7', '5'
  );

var
  i, j: integer;
  found: boolean;

begin
  for i := 0 to n do begin
    found := false;
    for j := 0 to pred(i) do
      if wds[i] = wds[j] then found := true;

    if not found then write(wds[i], ' ');
  end;
end.

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