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

[Coder01]

Здравствуйте. Помогите пожалуйста. Нужно получить числа от 1 до 100 в хаотическом порядке, так чтобы они не повторялись... Тоесть в итоге должно быть 100 чисел, но ниодно из них не должно повторяться...Это как то в рандом реализуется?

[_SERGEYX_]

procedure Shuffle(var aArray; aItemCount: Integer; aItemSize: Integer);
var Inx: Integer;
  RandInx: Integer;
  SwapItem: PByteArray;
  A: TByteArray absolute aArray;
begin
  if (aItemCount > 1) then
  begin
    GetMem(SwapItem, aItemSize);
    try
      for Inx := 0 to (aItemCount - 2) do
      begin
        RandInx := Random(aItemCount - Inx);
        Move(A[Inx * aItemSize], SwapItem^, aItemSize);
        Move(A[RandInx * aItemSize], A[Inx * aItemSize], aItemSize);
        Move(SwapItem^, A[RandInx * aItemSize], aItemSize);
      end;
    finally
      FreeMem(SwapItem, aItemSize);
    end;
  end;
end;

//*****Ну, и клик по кнопке**********

procedure TForm1.Button2Click(Sender: TObject);
var a: array[1..100] of Integer;
  i: Shortint; s: string;
begin
  Randomize;
  for i := Low(a) to High(a) do
    a[i] := i;
  Shuffle(a, High(a), SizeOf(Integer));
  for i := 1 to High(a) - 1 do
    s:= s+' '+(IntToStr(a[i]));
    ShowMessage(s);
end;

[Coder01]

А почему он выдает всегда 99 на 1 или 2ое место?
Кстати если не трудно подскажите почему у меня не получается:

for i:=1 to 100 do
begin
  randomize;
  a[i]:=RandomRange(0,100);
  for j:=1 to 100 do
  begin
    if a[i]<>a[j] then memo1.lines.add(strtoint(a[i]));
  end;
end;

[ArtGrek]

вот

procedure TForm1.Button1Click(Sender: TObject);
var
  i, j: integer;
  a: byte;
  b: boolean;
begin
  b:=true;
  for i:=1 to 100 do
  begin
    repeat
      a:=random(100);
      for j:=1 to i do
        if IntToStr(a)=Memo1.Lines[j] then b:=false
          else b:=true;
    until b;
    Memo1.Lines.Add(IntToStr(i)+'-'+IntToStr(a));
  end;
end;

[Genco]

Кстати если не трудно подскажите почему у меня не получается:

randomize нельзя в цикл потому что. А ещё потому что надо While в твоей логике. Да и вообще, при почти заполненном массиве программа будет долго гадать, какого числа ещё не было, плохой это способ.
2 ArtGrek - то же самое.

2 _SERGEYX_: А можно пояснить в 2х словах, как именно перестановки памяти эти работают?

[ArtGrek]

сорри поправочка

procedure TForm1.Button1Click(Sender: TObject);
var
  i, j: integer;
  a: byte;
  b: boolean;
begin
  b:=true;
  for i:=1 to 100 do
  begin
    repeat
      a:=random(100);
      for j:=1 to i do
        if IntToStr(a)=Memo1.Lines[j] then
        begin 
          b:=false;
          break;
        end
        else b:=true;
    until b;
    Memo1.Lines.Add(IntToStr(i)+'-'+IntToStr(a));
  end;
end;

А ещё потому что надо While в твоей логике.

как например?

[Genco]

Не поленись - скопируй к себе и запусти))
1) IntToStr(a)=Memo1.Lines[j] - проверка не выполняется, ты данные добавляешь ниже через дефис, всегда False тут
2) алгоритм неоптимален, повторяю: последние числа значительно дольше подбираются,если проверку правильную поставить. Потому что компьютер угадывает 2-3 "нужных" числа из 100. _SERGEYX_ вообще полностью соптимизированный под память вариант привел, хотя и немного крутоватый)

Нужен список/набор элементов от 1 до 100: выбрать случайный,потом удалить из рассмотрения. И так 100 раз.

//------------
repeat тоже подойдет,да, я про это.
Ща мб гляну у себя искомую идею,в кривом варианте

Это в общих чертах пример со списком. Имеет смысл, когда в массиве/наборе что-то посложнее, чем просто целые числа. Только ещё надо использовать TList с указателями, как положено - просто поленился писать посреди ночи, а готового у себя не нашел.

procedure TForm1.Button2Click(Sender: TObject);
var
 Nlist: TStringList;
 i,k : integer;
begin
 NList:=TStringList.Create;
 for i:=1 to 100 do
  begin
   Nlist.Add(inttostr(i));
  end;
 Memo1.Lines.Clear;
 Randomize;
 while (Nlist.Count>0) do
  begin
   k:=Random(Nlist.Count);
   Memo1.Lines.Add(Nlist[k]);
   Nlist.Delete(k);
  end;
 Nlist.Free;
end;

А вот сильно упрощенная версия того, что было предложено выше.

procedure TForm1.Button3Click(Sender: TObject);
var
 i,k,buf:integer;
 mas: array [1..100] of integer;
begin
 //заполнить
 for i:=1 to 100 do mas[i]:=i;
 Randomize;
 //----------перемешать-------------
 for i:=1 to 100 do
  begin
   k:=RandomRange(i+1,100);
   buf:=mas[i];
   mas[i]:=mas[k];
   mas[k]:=buf;
  end;
 //-------------вывести-------------
 Memo1.Lines.Clear;
 for i:=1 to 100 do
  begin
   Memo1.Lines.Add(inttostr(mas[i]));
  end;
end;

[ArtGrek]

1) IntToStr(a)=Memo1.Lines[j] - проверка не выполняется, ты данные добавляешь ниже через дефис, всегда False тут

пуст тогда будет

Memo1.Lines.Add(IntToStr(a));

или так

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

[Serge_Bliznykov]

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

for l:= 0 to 99 do
begin
  f:=random(100-l);
  Memo1.Lines.Add(Inttostr(d[f]));  d[f]:=d[100-l];
end;

идея хорошая. но так нельзя.
На первом же шаге вылет за пределы массива:
чему будет равно 100-l при l=0 ? 100 ?
d[f] := d[100] ? а верхний индекс массива равен 99 - отсюда - range error...

я уже не говорю о такой "мелочи", как то, что вы в массив заносите циферки от нуля до 99, а по условиям задачи требуется от 1 до 100.

короче, последний вариант - явно не зачёт.. но идея, как мне кажется, вполне себе нормальная, при желании можно довести до ума...


А вообще потрясает, как для решения такой простой задачи (кстати, на форуме решалась эта задача многократно) возникает столько вариантов решения и такое бурное обсуждение...

[XerSon]

2ArtGrek

вылет за пределы массива: 128