Random вывод нескольких чисел без повторений

[leonw]

здравствуйте! Хотел спросить: как сделать вывод чисел через рандом от 0 до 50, так что бы они не повторялись в label1, label2 label3.....label8. т.е получится пр: 4 6 34 33 17 11 40 20

Randomize;
RealNum:=Random(50);
label1.Caption:=inttostr(RealNum);
label2.Caption:=inttostr(RealNum);

спасибо!!!

[Sazary]

Вариант 1: при генерации числа заносить его в массив. А при генерации следующего пробегаться по массиву в поисках совпадения. Если найдено, то генерируем заново.

Вариант 2: заполняем массив числами от 0 до 50 и перемешиваем его. Берем нужное количество чисел.

[leonw]

Я не очень силен в Делфи, знаю прибавить 2 числа, кнопочку переместить, игрушку наготовом движке сделать, если можешь хоть примерно код написать как это взять числа
спасибо!

[Serge_Bliznykov]

leonw, учитесь пользоваться поиском по форуму!!
Достаточно забить в поиск ключевые слова (например Random повторений) и, ву а ля:
http://www.programmersforum.ru/showthread.php?t=16368 посты №12 и 16
или
http://www.programmersforum.ru/showthread.php?t=16335 пост №5
или
http://www.programmersforum.ru/showthread.php?t=12762

ладно. чисто по приколу...
вот полностью готовый год (использован алгоритм заполнения массива (с) Карась

procedure TForm1.Button1Click(Sender: TObject);
const
  CountOfNumbers = 8;
  MaxRandom = 50;

var
  k,i,j,m,N:integer;
  s:string;
  f:boolean;
  a:array[1..CountOfNumbers]of integer;

begin
  // заполнение массива
  // (c) Карась (http://www.programmersforum.ru/member.php?u=6536)
  randomize;
  m:=2;
  for i := 1 to CountOfNumbers do
  begin
    repeat
      f:=false;
      N:=Random(MaxRandom)+1;
      for j:=1 to m do
       if a[j]=N then f:=true;
    until f=false;
    a[i]:=N;
    m:=m+1;
  end;

  // А это код вывода массива в Label1..LabelN
  {    вместо можно просто тупо перечислить
           Label1.Caption := IntToStr(a[1]);
           Label2.Caption := IntToStr(a[2]);
           ...
           Label8.Caption := IntToStr(a[8]);
           }
  i := 0;
  for k:=0 to Form1.ComponentCount-1 do
     if Form1.Components[k] is TLabel then begin
         s := TLabel(Form1.Components[k]).Name;
         if (UpperCase(Copy(s,1,5))='LABEL')
            and (Length(s)=6)
            and (Copy(s,6,1)>='0')
              and  (Copy(s,6,1)<='9') then
         begin
           if i<CountOfNumbers then begin
             inc(i);
             TLabel(Form1.Components[k]).
                  Caption := IntToStr(a[i]);
           end;
         end;
     end;

end;

[leonw]

привет! Спасибо!!! эт правдо, с поиском у меня проблемы, я даже не знал как написать "Random повторений" в поиск.
Спасибо!!!