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

Horus92

Дата 20.7.2010, 16:58 (ссылка)

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

Загрузка ...

Новичок

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

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

Здравствуйте, у меня есть динамический массив строк с количеством элементов от 1..n, n принимает значение не больше 10 .
Мне нужно вывести элементы массива в рандомном порядке без повторения элементов.

casinosoftguru

Дата 20.7.2010, 17:22 (ссылка)

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

Загрузка ...

Шустрый

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

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

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

x128

Дата 21.7.2010, 09:10 (ссылка)

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

Загрузка ...

Шустрый

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

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

создай дополнительный массив индексов, заполни его значениями 1..n и перемешай рандомом, после чего извлекай строки по созданным индексам.

Snowy

Дата 21.7.2010, 10:26 (ссылка)

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

Загрузка ...

Эксперт

Профиль
Группа: Модератор
Сообщений: 11363
Регистрация: 13.10.2004
Где: Питер

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

Код

procedure Blend(var a: array of string);
var
  i, n, x: integer;
  s: string;
begin
  Randomize;
  n := Length(a);
  for i := 0 to n - 1 do
  begin
    x := Random(n);
    s := a[x];
    a[x] := a[i];
    a[i] := s;
  end;
end;

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