генерировать

[StartMis]

как генерировать случайное число в ограниченном диапазоне
например от 50 до 100 и чтобы генерируемые числа не повторялись

[mihali4]

Спускаемся в самый низ этой страницы и читаем ответы.

[xakkkkker]

как в диапазоне будет не знаю но можно так

procedure TForm1.BitBtn1Click(Sender: TObject);
var
i,x:integer;
begin
Randomize;
i:=Random(100);
Memo1.Lines.Add(IntToStr(i));
end;

[Terran]

procedure TForm1.BitBtn1Click(Sender: TObject);
var
i,x:integer;
begin
Randomize;
i:=Random(100);
Memo1.Lines.Add(IntToStr(i));
end;

Этот код можно немного упростить:

Procedure TForm1.Button1Click(Sender: TObject);
Begin
Memo1.Lines.Add(IntToStr(Random(100)));
End;

[StartMis]

мне именно надо в диапазоне

[Terran]

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

мне именно надо в диапазоне

Тогда можно сделать так:

Procedure TForm1.Button1Click(Sender: TObject);
Var
I: Integer;
Begin
Repeat
I:=Random(100);
If I > 50 Then
Begin
Memo1.Lines.Add(IntToStr(I));
End;
Until I > 50;
End;

[xakkkkker]

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

Этот код можно немного упростить:

Procedure TForm1.Button1Click(Sender: TObject);
Begin
Memo1.Lines.Add(IntToStr(Random(100)));
End;

без Randomize она при каждом старте будет генерировать одни и те жи чилса

[Terran]

без Randomize она при каждом старте будет генерировать одни и те жи чилса

Спасибо за подсказку! Этого я не учёл... Следующий раз буду иметь в виду.

[xakkkkker]

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

Спасибо за подсказку! Этого я не учёл... Следующий раз буду иметь в виду.

Всегда рад помочь

[Serge_Bliznykov]

случайное число в ограниченном диапазоне
например от 50 до 100

Random(50)+50

чтобы генерируемые числа не повторялись

А вот это чуть-чуть посложнее...
Нужно или каждое число проверять - было ли оно ранее, или воспользоваться компонентом:

var
  L1 : TStringList;
begin
  L1 := TStringList.Create;
  L1.Sorted := True;
  L1.Duplicates := dupIgnore;
  Randomize;
  while L1.Count<20 {создадим 20 РАЗЛИЧНЫХ чисел} do
    L1.Add(IntToStr(Random(50)+50));

  {просто для демонстрации - кинем всё скопом в Мемо}
  Memo1.Lines.Clear;
  Memo1.Lines := L1;

  {очистим список со случайными числами}
  FreeAndNil(L1)
end;

недостаток такого подхода - все случайные числа будут отсортированы...

если так не подходит, то можно воспользоваться таким способом:

var
  L1 : TStringList;
  K  : integer;
begin
  L1 := TStringList.Create;
  Randomize;

  while L1.Count<20 {создадим 20 РАЗЛИЧНЫХ чисел}
  do begin
    K := Random(50)+50;
    if L1.IndexOf(IntToStr(K))=-1 then
       L1.Add(IntToStr(K));
  end;

  {просто для демонстрации - кинем всё скопом в Мемо}
  Memo1.Lines.Clear;
  Memo1.Lines := L1;

  {очистим список со случайными числами}
  FreeAndNil(L1)
end;