| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

случайные числа [D7]

UserUserov ©   (2004-08-28 23:55:00) 

Мне бы хотелось заполнить двухмерный статический массив случайными неповторяющимися числами.Как??!!Надо!

---

SergP   (2004-08-29 09:49:00) [1]

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

---

Magikan   (2004-08-29 09:25:00) [2]


//Проверка на повторяемость
function Test(i, j: Integer): Boolean;
begin
 Result:=False;
 if i>0 then
   if a[i, j]=a[i-1, j] then
     exit;
 if j>0 then
   if a[i, j]=a[i, j-1] then
     exit;
 Result:=True;
end;

...
var
 i, j: Integer;
begin
 Randomize;
 ...
 //Заполнение массива
 for i:=0 to N do
   for j:=0 to M do
     repeat
       a[i, j]:=Random(X);
     until Test(i, j);
end.


---

TUser   (2004-08-29 06:29:00) [3]

ramdom + проверка на повторяемость.
Возможно есть и какие-нибудь генераторы, которые гарантируют неповторяемость, но я про таких не слышал. Можно, кстати, сделать так

function H(d:double):integer;
begin
result:={число от 0 до N*M-1,
        где N,M - размеры массива}
end;

procedure MakeArray;
var ResultArray:array[0..N,0..M]of double;
   BoolArray:array[0..N*M-1]of boolean;
   i,j:integer;
begin
Randomize;
BoolArray[...]:=false;
for i:=0 to N do
for j:=0 to M do begin
repeat
ResArray[i,j]:=random;
k:=H(ResArray[i,j]);
until not BoolArray[k];
BoolArray[k]:=true;
end;
end;

Правда, будет ли это решение хорошим сильно зависит от реализации ф-ции H(). Можно взять хеш-ф-цию из класса THashedStringList и переделать ее для чисел.

---

Наверх