Вывод случайных не повторяющихся чисел в Stringgrid

[Heng]

Чет непрет код, помогите исправить.

procedure TForm1.BitBtn2Click(Sender: TObject);
var
i,j,m,n,p:integer;
a:array[1..4,1..4] of integer;
begin
 for j:=1 to 4 do
  for i:=1 to 4 do begin
   p:=random(16);
     for n:=1 to 4 do
      for m:=1 to 4 do
   if p<>a[m,n] then a[i,j]:=p;
 end;
 stringgrid1.cells[i-1,j-1]:=inttostr(a[i,j]);
end;

если есть другие варианты написания, пожалуйста с подробными коментариями.

[Stilet]

procedure TForm1.BitBtn2Click(Sender: TObject);
var
i,j,m,n,p:integer;
a:array[1..4,1..4] of integer;
begin m:=0;
 for j:=1 to 4 do
  for i:=1 to 4 do begin
   p:=m+random(16);
    a[i,j]:=p;inc(m,p);
    stringgrid1.cells[i-1,j-1]:=inttostr(a[i,j]);
 end;
end;

Подойдет?

[Heng]

Теперь задача работает только происходят какието сбои иногда появляются гигантские числа, незнаю почему вот этот код

procedure TForm1.BitBtn2Click(Sender: TObject);
var
i,j,m,n,p,c:integer;
a:array[1..4,1..4] of integer;
begin
p:=0;
 for j:=1 to 4 do
  for i:=1 to 4 do begin
   p:=random(16);
   c:=0;
     for n:=1 to 4 do
      for m:=1 to 4 do
   if p=a[m,n] then c:=c+1;
   if c=0 then a[i,j]:=p;
   stringgrid1.cells[i-1,j-1]:=inttostr(a[i,j]);
 end;
end;

Мне надо чтобы случайные числа были от 1 до 16

[Leshii]

Значит как же правильно задать ваш рандом.
N:=Random(A)+B;где B:=N_min, a A:=N_max-N_min+1;

в вашем случае имеем:

B:=1, a A:=16;
N:=Random(16)+1;

Так думаю будет более чем доходчиво

[Heng]

Мне было бы полезней, если б мой код подправили, он вроде бы работает, только откудато беруться 10значные числа вместо рандомных.

[Leshii]

Чет непрет код, помогите исправить.

Это суть вашей проблемы? Ну тогда найдите код который вас попрет.

Heng, конкретней надо говорить с чем помочь. Что должно случится после нажатия кнопки: салют, свадьба, много денег нежданно свалится на голову?

[Heng]

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

Это суть вашей проблемы? Ну тогда найдите код который вас попрет.

Heng, конкретней надо говорить с чем помочь. Что должно случится после нажатия кнопки: салют, свадьба, много денег нежданно свалится на голову?

Если выше почитать можно увидеть:

Вроде бы работает, только откудато беруться 10значные числа вместо рандомных.

[Stilet]

А ты пройдись пошаговкой по циклам и посмотри чему становятся равными переменные.

[Heng]

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

А ты пройдись пошаговкой по циклам и посмотри чему становятся равными переменные.

Уже сто раз прошелся, идей нет. У когонибуть есть идеи ??

[Stilet]

Есть идеи: Тебе нужно еще раз внимательно изучить мой код, и сравнить со своим.
Ты некорректно используешь циклы. Я вообще не понимаю зачем тебе циклы для m и n