Линейный массив

[Саня_]

Мне нужно создать линейный массив из 20 целы положительных чисел, при этом нужно, что бы они не повторялись. Суть проблемы в том, что я не могу сделать так, что бы они не повторялись...

N: array of integer;
i: integer;

begin
SetLength(N,20);
randomize;
i:=0;
while i<20 do
begin
N[i]:=random(100);
i:=i+1;
end;
end;

[Человек_Борща]

Получи значение рандома во временную переменную, циклом пройдись по уе заполненным элементам и проверяй, есть ли такое. Если есть, то генерируй снова, иначе плюсуй в массив.

[Саня_]

Сообщение от Человек_Борща

Получи значение рандома во временную переменную, циклом пройдись по уе заполненным элементам и проверяй, есть ли такое. Если есть, то генерируй снова, иначе плюсуй в массив.

спасибо за совет, уже работает)

[phomm]

Не очень хорошее решение. Теоретически (а на больших размерах массива может быть и практически) такой алгоритм бесконечен.

Всегда такая задача делалась через заполнение массива по любому закону в возрастающем порядке (как пример обычное +1) и потом перемешиванием в случайном порядке такого массива.
Примерно так, сложность такого алгоритма O(n)

const megasize = 1000000 ;
type megar = array[1..megasize] of integer;
procedure tform1.makeranduniquemegaarray(var arr : megar);
var i,j,k  : integer ;
begin
for i := 1 to megasize
  do arr[i] := i ;
for i := 1 to megasize
  do begin
  j := random(megasize-i)+1 ;
  k := arr[megasize+1-i] ;
  arr[megasize+1-i] := arr[j] ;
  arr[j] := k ;
  end;
end;

[Serge_Bliznykov]

phomm, согласен, я тоже часто пользуюсь подобным подходом.
вот только у Вас перемешивание с "изъяном"...

цитирую свой пост:

Единственное, если подходить к вопросу серьёзно, необходимо учитывать, что распределение получается неравномерным. смотри пост №11 (с) kogemrka или, статью, на которую он ссылается:
http://mazanu.com/2008/11/blog-post_20.html Как не надо тасовать карты
если кратно, то алгоритм перемешивания (с нормальным распределением) должен быть такой:

	
	

			
				Для (i от 1 до n-1)
    Переставить i-ю карту со случайной картой от i-й до n-й