В хаотическом порядке получить числа 1-100

[Utkin]

1. Создать динамический массив от 1 до 100
2. В случайном порядке брать с него элементы и "выдергивать" их с массива

[Sibedir]

Всю жизнь делал так

var
  Arr: array [1..100] of Byte;
  i, j: Integer;
  b: Byte;
begin
  for i := 1 to 100 do
    Arr[i] := i;
  Randomize;
  for i := 1 to 100 do begin
    j := Random (99)+1;
    b := Arr[i];
    Arr[i] := Arr[j];
    Arr[j] := b;
  end;
  Memo1.Lines.Clear;
  for i := 1 to 100 do
    Memo1.Lines.Add (IntToStr (Arr[i]));
end;

[Serge_Bliznykov]

Utkin, ну не знаю, можно, конечно и так, но возня с динамическими массивами ("выдернуть" элемента - это значит все последующие в цикле переписать на его место, а потом уменьшить размерность массива) - всё это и достаточно замудрённо, да и на быстродействии явно сказывается не лучшим образом (хотя, конечно, в данном случае за 0.01 миллисекунду выполнится программа или, в 100 раз дольше, за 1 миллисекунду - не существенно )

но мне для решения таких задач ГОРАЗДО больше нравится вариант с перемешиванием. ( можно тут посмотреть, да и в данной теме уже он был предложен) - он очень быст, прост и не требует наличия и манипулирования динамическими массивами!
Единственное, если подходить к вопросу серьёзно, необходимо учитывать, что распределение получается неравномерным. смотри пост №11 (с) kogemrka или, статью, на которую он ссылается:
http://mazanu.com/2008/11/blog-post_20.html

Как не надо тасовать карты

Частичный перевод статьи
How We Learned to Cheat at Online Poker: A Study in Software Security
by Brad Arkin, Frank Hill, Scott Marks, Matt Schmid and Thomas John Walls

вот примерно так (взял код Genco за основу):

const N = 100;
var
 i,k,buf:integer;
 mas: array [1..N] of integer;
begin
 //заполнить
 for i:=1 to N do mas[i]:=i;
 Randomize;

 //----------перемешать-------------
 for i:=1 to N-1 do
  begin
   k:= Random(N-i+1)+i;
   if k<>i then begin
     buf:=mas[i];
     mas[i]:=mas[k];
     mas[k]:=buf;
   end;
  end;
 //-------------вывести-------------
 Memo1.Lines.Clear;
 for i:=1 to N do
  begin
   Memo1.Lines.Add(inttostr(mas[i]));
  end;
end;

[Utkin]

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

Utkin, ну не знаю, можно, конечно и так, но возня с динамическими массивами ("выдернуть" элемента - это значит все последующие в цикле переписать на его место, а потом уменьшить размерность массива) - всё это и достаточно замудрённо, да и на быстродействии явно сказывается не лучшим образом (хотя, конечно, в данном случае за 0.01 миллисекунду выполнится программа или, в 100 раз дольше, за 1 миллисекунду - не существенно )

Это потому что Вы динамический массив рассматриваете как динамический массив . Однако в рамках алгоритма, нам нужен не динамический массив, а множество все чисел от 1 до 100. Сам порядок их следования для алгоритма пофигу. Просто их удобно вносить в цикле как 1, 2, 3, 4, 5, 6 и т.д. Однако брать-то мы их будем все равно в случайном порядке. Следовательно "выдергивание" элемента надо осуществлять не из динамического массива, а из множества. Иными словами, можно "выдернутый" элемент заменять последним, а последний удалять. Ничего мудреного, все просто как колобок . И быстродействие (удаления элемента) вполне примелимо, а главное оно примерно одинаково и не зависит от числа элементов в массиве.

[ArtGrek]

поздно дело было, спать хотел)
думаю теперь не наидете ошибок

procedure TForm1.Button3Click(Sender: TObject);
var
  l,p:integer;
  f:byte;
  d: array [1..100] of byte;
begin
Memo1.Clear;
for p:= 1 to 100 do
  d[p]:=p;
randomize;
for l:= 1 to 100 do
begin
  f:=random(101-l);
  Memo1.Lines.Add(Inttostr(d[f+1]));
  d[f+1]:=d[101-l];
end;
end;

[/QUOTE]

[Utkin]

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

поздно дело было, спать хотел)
думаю теперь не наидете ошибок

Одну нашел . Ваш код всегда формирует одну последовательность. Таким образом я могу вручную по-китайски напрямую вводить последовательность в Мемо .

[ArtGrek]

Ваш код всегда формирует одну последовательность.

...
randomize;
for l:= 1 to 100 do
...

и можно еше

...
Memo1.Clear;
for p:= 1 to 100 do
...

[ArtGrek]

procedure TForm1.Button3Click(Sender: TObject);
var
  l,p:integer;
  f:byte;
  d: array [1..100] of byte;
begin
Memo1.Clear;
for p:= 1 to 100 do
  d[p]:=p;
randomize;
for l:= 1 to 100 do
begin
  f:=random(101-l);
  Memo1.Lines.Add(Inttostr(d[f+1]));
  d[f+1]:=d[101-l];
end;
end;

// проверка на совпадения, у меня все норм
procedure TForm1.Button2Click(Sender: TObject);
var
  z,x:integer;
begin
for z:=0 to 98 do
  for x:= 1+z to 99 do
    if Memo1.Lines[z]=Memo1.Lines[x] then  Edit1.Text:='false';
end;

[ArtGrek]

код от Stilet

procedure TForm1.Button5Click(Sender: TObject);
var
  v: integer;
begin
  Memo1.Lines.Clear;
  randomize;
  for v:= 1 to 100 do  Memo1.Lines.Add(Inttostr(v));
  for v:= 1 to 100 do  Memo1.Lines.Exchange(random(100),random(100));
end;

[_SERGEYX_]

Ух, сколько способов перепробовали. Вот, еще хочу предложить "идиотский" способ с помощью обычного стринглиста. Раз он работает, значит имеет право на существование

procedure TForm1.RzBitBtn1Click(Sender: TObject);
var sl: TStringList; i: Integer; s: string;
begin
  sl := TStringList.Create;
  Randomize;
  for i := 0 to 99 do
  {добавим "от балды" любые числа плюс через звездочку номер записи +1}
    sl.Add(IntToStr(RandomRange(-9999, 9999)) + '*' + inttostr(i + 1));
  {Теперь отсортируем стринглист по этим числам}
  sl.sort;
  {А теперь заберём номер записи после звездочки}
  for i := 0 to sl.Count - 1 do
    s := s + ' ' + copy(sl[i], Pos('*', sl[i]) + 1, Length(sl[i]));
  ShowMessage(s);
  sl.Free;
end;

Ясен перец, что нам нужна не строка, а число, но преобразовать не проблема.