Как исключить число из диапазона в Random?

@ЦарьОчПритнЦарь · Регистрация: 21.02.2013

Author24 — интернет-сервис помощи студентам

Есть 4 переменных: 1,2,3 и 4 - типа Integer а форме Label1 и Label2

- нужно чтобы при создании формы - их свойства Color - приобретали один из 4 заранее заданных цветов, при этом цвета - не должны быть одинаковыми, т.е. как я полагаю - если заранее присвоить цветам - цифры от 1 до 4 - то при закрашивании одного Label'я - число отвечающее за этот цвет - должно быть исключено в следующем Random(X) - да - забыл - закраситься - должно случайным цветом).

Подскажите пожалуйста как реализовать исключение известного числа из определённого диапазона?

Спасибо.

@droider · 05.10.2013, 12:54

ЦарьОчПритнЦарь, сюда

@ЦарьОчПритнЦарь · 05.10.2013, 15:25 **[ТС]**

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

ЦарьОчПритнЦарь, сюда

Хоть этот вариант для меня и оказался слишком сложным - всё равно - Спасибо!

Я вот воплотил задумку в сабж - немного по-другому - с использованием repeat...until)))

Delphi

unit PROGA;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;
 
type
  TForm1 = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
    Button1: TButton;
    procedure FormCreate(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
 
const
u=0;
i=16777215;
o=255;
p=65280;
 
procedure TForm1.FormCreate(Sender: TObject);
var
q,w,e,r:integer;
begin
Randomize;
 
q:=Random(2)+1;
w:=Random(4)+1;
 
if q=1 then
begin
if w=1 then label1.color:=u;
if w=2 then label1.color:=i;
if w=3 then label1.color:=o;
if w=4 then label1.color:=p;
if q=1 then
repeat
 randomize;
w:=random(4)+1;
if w=1 then label2.color:=u;
if w=2 then label2.color:=i;
if w=3 then label2.color:=o;
if w=4 then label2.color:=p;
until label1.Color <>label2.Color;
end;
 
if q=2 then
begin
if w=1 then label2.color:=u;
if w=2 then label2.color:=i;
if w=3 then label2.color:=o;
if w=4 then label2.color:=p;
e:=q;
if q=2 then
repeat
 randomize;
w:=random(4)+1;
if w=1 then label1.color:=u;
if w=2 then label1.color:=i;
if w=3 then label1.color:=o;
if w=4 then label1.color:=p;
until label1.Color <>label2.Color;
 
end;
 
end;
 
 
 
 
procedure TForm1.Button1Click(Sender: TObject);
var
q,w,e,r:integer;
begin
Randomize;
 
q:=Random(2)+1;
w:=Random(4)+1;
 
if q=1 then
begin
if w=1 then label1.color:=u;
if w=2 then label1.color:=i;
if w=3 then label1.color:=o;
if w=4 then label1.color:=p;
if q=1 then
repeat
 randomize;
w:=random(4)+1;
if w=1 then label2.color:=u;
if w=2 then label2.color:=i;
if w=3 then label2.color:=o;
if w=4 then label2.color:=p;
until label1.Color <>label2.Color;
end;
 
if q=2 then
begin
if w=1 then label2.color:=u;
if w=2 then label2.color:=i;
if w=3 then label2.color:=o;
if w=4 then label2.color:=p;
e:=q;
if q=2 then
repeat
 randomize;
w:=random(4)+1;
if w=1 then label1.color:=u;
if w=2 then label1.color:=i;
if w=3 then label1.color:=o;
if w=4 then label1.color:=p;
until label1.Color <>label2.Color;
 
end;
 
end;
 
 
 
end.

@~~Lirrk~~ · 05.10.2013, 17:36

Мдя.. да кто ж так делает? Если диапазон известен, то зачем валять дурака? Это же делается просто и элементарно.
У вас там цвета? Ну пусть будет массив цветов. Не важно.
Вы его задаёте.
А теперь нужно получить случайный цвет.

У вас есть массив. тасуем его.

Например. Исходный массив - красный синий зелёный жёлтый
Начинаем перебирать
1 цвет - генерируем случайное число в диапазоне по количеству элементов массива. от 1 до 4
Например. выпало 4
Меняем местами текущий цвет и 4-ый цвет
жёлтый синий зелёный красный
потом берём второй цвет. генерируем число, скажем это 2 Цвет копируется сам на себя и не перемещается.
берём 3 цвет , сгенерировалось число 4
меняем 3 и 4 цвета.
получилось жёлтый синий красный зелёный

И так далее. Дошли до конца. можно опять пройти. И так несколько циклов.
И у вас весь массив перетасован. Вот вам и случайная последовательность без повторов.
А заниматься фигнёй со сравнением - бред собачий. Это может быть, если диапазон чисел очень большой.

@ЦарьОчПритнЦарь 3 / 3 / 0 Регистрация: 21.02.2013 Сообщений: 118
		1
	Как исключить число из диапазона в Random? 05.10.2013, 12:44. Показов 3404. Ответов 3 Метки нет (Все метки) Есть 4 переменных: 1,2,3 и 4 - типа Integer а форме Label1 и Label2 - нужно чтобы при создании формы - их свойства Color - приобретали один из 4 заранее заданных цветов, при этом цвета - не должны быть одинаковыми, т.е. как я полагаю - если заранее присвоить цветам - цифры от 1 до 4 - то при закрашивании одного Label'я - число отвечающее за этот цвет - должно быть исключено в следующем Random(X) - да - забыл - закраситься - должно случайным цветом). Подскажите пожалуйста как реализовать исключение известного числа из определённого диапазона? Спасибо. 0

@droider 4912 / 2781 / 853 Регистрация: 04.10.2012 Сообщений: 10,121
	05.10.2013, 12:54	2
	ЦарьОчПритнЦарь, сюда 1

@~~Lirrk~~ Заблокирован
	05.10.2013, 17:36	4
	Мдя.. да кто ж так делает? Если диапазон известен, то зачем валять дурака? Это же делается просто и элементарно. У вас там цвета? Ну пусть будет массив цветов. Не важно. Вы его задаёте. А теперь нужно получить случайный цвет. У вас есть массив. тасуем его. Например. Исходный массив - красный синий зелёный жёлтый Начинаем перебирать 1 цвет - генерируем случайное число в диапазоне по количеству элементов массива. от 1 до 4 Например. выпало 4 Меняем местами текущий цвет и 4-ый цвет жёлтый синий зелёный красный потом берём второй цвет. генерируем число, скажем это 2 Цвет копируется сам на себя и не перемещается. берём 3 цвет , сгенерировалось число 4 меняем 3 и 4 цвета. получилось жёлтый синий красный зелёный И так далее. Дошли до конца. можно опять пройти. И так несколько циклов. И у вас весь массив перетасован. Вот вам и случайная последовательность без повторов. А заниматься фигнёй со сравнением - бред собачий. Это может быть, если диапазон чисел очень большой. 0