повторы в Random

[Natok]

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

Random r;
r = new Random();
for (int i = 0; i < 10; i++)
            {
                v[i]=r.Next(10);
                textBox1.Text += v[i].ToString() + " ";
            }

[Stilet]

Ну думаю что просто пройтись по всем элементам уже имеющимся и проверить на неравенство со сгенерированным, и если ни один не равен вносить, иначе сгенерировать еще.

[IT-man]

procedure Shuffle(var aArray; aItemCount: Integer; aItemSize: Integer); 

{ after Julian M Bucknall } 

var 

Inx: Integer; 

RandInx: Integer; 

SwapItem: PByteArray; 

A: TByteArray absolute aArray; 

begin 

if (aItemCount > 1) then 

begin 

   GetMem(SwapItem, aItemSize); 

   try 

     for Inx := 0 to (aItemCount - 2) do 

     begin 

       RandInx := Random(aItemCount - Inx); 

       Move(A[Inx * aItemSize], SwapItem^, aItemSize); 

       Move(A[RandInx * aItemSize], A[Inx * aItemSize], aItemSize); 

       Move(SwapItem^, A[RandInx * aItemSize], aItemSize); 

     end; 

   finally 

     FreeMem(SwapItem, aItemSize); 

   end; 

end; 

end;

это в delphi

[Sazary]

Вот так, например:

Random r; 
	r = new Random(); 
	int[] v = new int[10];
	int[] mas = new int[10];
	int m=0;
	bool fl;
	for (int i = 0; i < 10; i++) 
            { 
                do
                 {
                	fl = true;
                	v[i]=r.Next(10);
                	for(int j=0; j<m; j++)
                		if(v[i]==mas[j]) fl=false;
                } while(!fl);
                mas[m++] = v[i];
                				
                textBox1.Text += v[i].ToString() + " "; 
           	}

[Natok]

Cпасибо большое всем! Грустно, но Delphi не знаю...Но все равно спасибо)))

теперь по аналогии размещаю на поле начальное к-ство волков и зайцев случайным путем!

PHP код:

            int size;
            size=int.Parse(textBox3.Text);
            int[,] m = new int[size, size];
            for (int i = 0; i < size; i++)
                for (int j = 0; j < size; j++)
                    m[i,j]=0;

            int a1;//к-ство 1-иц-зайцев
            a1 = int.Parse(textBox1.Text);
            bool fl1;
            int l1, p1;
            for(int k=0; k<a1; k++)
            {
                do{
                    fl1=true;

                    l1 = r.Next(size);
                    p1 = r.Next(size);
                    if (m[l1,p1]!=0) fl1=false;
                }
                while(!fl1);
                m[l1, p1] = 1;

            }

            int a2 = 8;//к-ство 2-ек или волков
            a2 = int.Parse(textBox2.Text);
            bool fl2;
            int l2, p2;
            for (int k = 0; k < a2; k++)
            {
                do
                {
                    fl2 = true;

                    l2 = r.Next(size);
                    p2 = r.Next(size);
                    if (m[l2, p2] != 0) fl2 = false;
                }
                while (!fl2);
                m[l2, p2] = 2;

            }