Недавно добавленные исходники

•  3D Designer  98

•  Sik Screen Capture  78

•  Patch Maker  70

•  Айболит (remote control)  89

•  ListBox Drag & Drop  69

•  Доска для игры Реверси  1 165

•  Графические эффекты  79

•  Рисование по маске  59

•  Перетаскивание изображений  63

•  Canvas Drawing  64

•  Рисование Луны  141

•  Поворот изображения  49

•  Рисование стержней  42

•  Paint on Shape  40

•  Генератор кроссвордов  51

•  Головоломка Paletto  58

•  Теорема Монжа об окружностях  104

•  Пазл Numbrix  48

•  Заборы и коммивояжеры  72

•  Игра HIP  55

•  Игра Go (Го)  45

•  Симулятор лифта  47

•  Программа укладки плитки  49

•  Генератор лабиринта  90

•  Проверка числового ввода  41

•  HEX View  94

•  Физический маятник  97

•  Задача коммивояжера  123

•  Автомобильная пробка  47

•  Квадратные сетки из слов  41

 
скрыть


Delphi FAQ - Часто задаваемые вопросы

| Базы данных | Графика и Игры | Интернет и Сети | Компоненты и Классы | Мультимедиа |
| ОС и Железо | Программа и Интерфейс | Рабочий стол | Синтаксис | Технологии | Файловая система |



Заполнение массива неповторяющимися случайными целыми числами



Автор: DiVo

{ **** UBPFD *********** by delphibase.endimus.com ****
>> Заполнение массива неповторяющимися случайными целыми числами

Данная процедура заполняет заданный массив случайными неповторяющимися целыми числами.
Заполнения идет числами начиная с 1, если вам необходимо заполнить массив числами с 0,
то измените строку:
inputMass[i]:=Unic(bm,range)+1;
на
inputMass[i]:=Unic(bm,range);

Зависимости: стандартные модули
Автор:       Ru, DiVo_Ru@rambler.ru, Одесса (Украина)
Copyright:   DiVo 2003 creator Ru
Дата:        22 октября 2003 г.
***************************************************** }

procedure MassRand(range: integer; var inputMass: array of integer);
var
  i: integer;
  bm: array of boolean; //массив флагов для отслеживания было уже число
  или нет
begin
  SetLength(bm, length(inputMass));
  for i := 0 to length(inputMass) - 1 do
  begin
    inputMass[i] := Unic(bm, range) + 1; //для последовательности 1,2, ... , N
    //inputMass[i]:=Unic(bm,range);//для последовательности 0,1, ... , N
  end;
end;

function Unic(var flag: array of boolean; range: integer): integer;
begin
  {данная функция возвращает одно случайное число}
  result := random(range);
  while flag[result] do
    result := random(range); //ищем какого числа еще нет
  flag[result] := true; //это чтобы не было повторений
end;

Пример использования:

// Использовать можно по разному, например:
procedure TForm1.BitBtn1Click(Sender: TObject);
var
  i: integer;
  mass: array of integer; //массив над которым будем извращаться
begin
  Memo1.Lines.Clear; //сюда выведем результат
  SetLength(mass, strtoint(Edit1.Text)); //тут получим размерность массива
  MassRand(strtoint(Edit1.Text), mass); //соответственно поимели процедуру
  for i := 0 to length(mass) - 1 do
  begin
    Memo1.Lines.Add(inttostr(mass[i])); //отобразили пользователю результат
  end;
end;







Copyright © 2004-2021 "Delphi Sources" by BrokenByte Software. Delphi World FAQ

Группа ВКонтакте   Facebook   Ссылка на Twitter