Как в RandomRange блокировать определенные числа?

[FleXik]

Сообщение от Аватар

RandomRange(1,101)

да спасибо я уже заметил что только вторую цифру надо на 1 больше

[Koma76]

Я, честно говоря только начал изучать Delphi.
Вот набросал прогу лотерии 5 из 36. Естественно нам не нужно, чтобы числа выпадали повторно. Решение такое. Может и громоздко, но я только осваиваю.

var
AA, BB, CC, DD, EE: Integer;
label
Loop1, Loop2, Loop3, Loop4, Loop5;
begin

Loop1://Первое число
AA:= Random(37);
if AA=0 then goto Loop1; //Исключаем 0
memo1.Lines.Add (IntToStr(AA));// Отображаем число в строке

Loop2: //Второе число
BB:= Random(37);
if (BB=AA) or (BB=0) then goto Loop2; //Исключаем повтор и 0
memo1.Lines.Add (IntToStr(BB));// Отображаем число в строке

Loop3: //Третье число
CC:= Random(37);
if (CC=AA) or (CC=BB) or (CC=0) then goto Loop3; //Исключаем повторы и 0
memo1.Lines.Add (IntToStr(CC));// Отображаем число в строке

Loop4: // Четвертое число
DD:= Random(37);
if (DD=AA) or (DD=BB)or (DD=CC) or (DD=0) then goto Loop4;// Повторы и 0
memo1.Lines.Add (IntToStr(DD));// Отображаем число в строке

Loop5: //Пятое число
EE:= Random(37);
if (EE=AA) or (EE=BB) or (EE=CC) or (EE=DD) or (EE=0) then goto Loop5;// Повторы и 0
memo1.Lines.Add (IntToStr(EE));// Отображаем число в строке
memo1.Lines.Add ('');// Пустая строка
end;

[alextrof94]

Нахождение 2х рандомных чисел от 10 до 20, исключая (11, 13, 16, 17). Вроде должно работать.

var 
 NotArray:array [0..3] of integer; //количество элементов 4 (от 0 до 3)
 C1, C2:integer;

 function GetRandom_Out_NotArray:integer; //рекурсивная локальная функция 
 var i: integer;
 begin
  result:=random(10)+10; //от 10 до 20; random(n)+m, где m=min, n+m=max
  for i:=0 to 3 do //сравним через цикл с массивом ненужных элементов (от 0 до 3)
   if result=NotArray[i] then //если совпадет - ищем новое значение
    result:=GetRandom_Out_NotArray;
 end;

begin
 NotArray[0]:=11; //заполнение ненужных значений (от 0 до 3)
 NotArray[1]:=13;
 NotArray[2]:=16;
 NotArray[3]:=17;
 C1:=GetRandom_Out_NotArray; //поиск числа 1
 C2:=GetRandom_Out_NotArray; //поиск числа 2
end;

Для комы76:

var 
 MyArray: array [0..4] of integer; //количество элементов 5 (от 0 до 4)
 i:integer;

 function GetRandom_Out_MyArray:integer; //рекурсивная локальная функция 
 var j: integer;
 begin
  result:=random(35)+1; //от 1 до 36 !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
  for j:=0 to 4 do //сравним через цикл с массивом ненужных элементов (от 0 до 4)
   if result=MyArray[j] then //если совпадет - ищем новое значение
    result:=GetRandom_Out_MyArray;
 end;

begin
 for i:=0 to 4 do
  MyArray[i]:=0; //обнулим значения (на всякий случай)

 for i:=0 to 4 do
 begin
  MyArray[i]:=GetRandom_Out_MyArray; //поиск чисел
  memo1.Lines.Add (IntToStr(MyArray[i])); //Отображаем числа в строках
 end;
end;

Можно сделать код немного универсальнее используя динамические массивы...

[Аватар]

Koma76, а вот так без меток и goto

procedure TForm1.Button1Click(Sender: TObject);
var Numbers: array [1..5] of Integer;
    i,j: Integer;
    Found: Boolean;
begin
  Randomize;
  Memo1.Clear;
  for i:=1 to 5 do begin
    repeat
      Numbers[i]:=Random(36)+1;
      Found:=False;
      for j:=1 to i-1 do Found:=Found or (Numbers[j]=Numbers[i]);
    until not Found;
    Memo1.Lines.Add (IntToStr(Numbers[i]));
  end;
end;

alextrof94, пока вставил и от вас для Koma76 послание. Ничего, думаю он не обидится

PS

result:=random(35)+1; //от 1 до 36

Будет до 35

[eval]

for i:=0 to 3 do //сравним через цикл с массивом ненужных элементов (от 0 до 3)
if result=NotArray[i] then //если совпадет - ищем новое значение

if result in NotArray then

[Serge_Bliznykov]

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

if result in NotArray then

плохо, когда знаешь много ЯП, начинаешь путать, где что есть, чего где нет..
Такая запись ни в Delphi, ни, тем более, в Pascal - НЕДОПУСТИМА!

только перебор, только хардкор!

p.s. числа от 1 до 36 можно сохранять во множесте (set of byte), вот тогда будет допустима операция if xxx IN Множество

[eval]

ну так и перегнать в сет, делов то

[Аватар]

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

ну так и перегнать в сет, делов то

И что? Тогда уж проще в цикле по массиву. Ну и вдруг не из 36, а из 512 выборка? Тогда уж точно множества не помогут