delphi Поиск одинаковых чисел в матрице

[dol]

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

procedure TForm1.Button1Click(Sender: TObject);
var
  i,j,n,m,p,q,z: Integer;
  a:array[0..50, 0..50] of Integer;
begin
  if ComboBox1.ItemIndex<0 then      //проверка параметров матрицы
    begin
      Showmessage('Укажите размеры матрицы');
      exit;
    end;

                 //заполнение массива случайными числами
  randomize;
  n:=StrToInt(ComboBox2.Text);
  m:=StrToInt(ComboBox1.Text);
  with StringGrid1 do
  begin
    RowCount:=n+1;
    ColCount:=m+1;
    for i:=0 to n-1 do
    for j:=0 to m-1 do
    begin
      a[i,j]:=-100+Random(201);
      Cells[j+1,i+1]:=inttostr(a[i,j]);
    end;
  end;
          //нумерация строк и столбцов
 with StringGrid1 do
 begin
  Cells[0,0]:=('@');
  i:=0;
  for j:=1 to RowCount do
  Cells[i,j]:=IntToStr(j);
  j:=0;
  for i:=1 to ColCount do
  Cells[i,j]:=IntToStr(i);
 end;
                   //проверка на повторы
begin
 for i:=1 to n do
  for j:=1 to m do
    for p:=i to n do
      for q:=1 to m do
  if (a[i,j]=a[p,q])and((p<>q)or(q<>j))then
    begin
      ShowMessage('Повтор найден');
      Exit;
    end
  else
    begin
      ShowMessage('Повторов нет');
      Exit;
    end;
 end;
end;
end.

[digitalis]

А если так:

 
flag: Boolean
  ......................
 flag := False ;
 for i:=0 to n do
  for j:=0 to m do
    for p:=0 to n do
      for q:=0 to m do
         if (a[i,j]=a[p,q]) and not ((p=i) and (q=j)) then Flag := True

И в зависимости от флага выдавать соответствующий ShowMessage в конце внешнего цикла.
and((p<>q) - вот ошибка

[Аватар]

Только до n-1 и m-1. Можно схитрить и двумя циклами:

  for i:=0 to n*m-2 do
    for j:=i+1 to n*m-1 do
      if a[i div m,i mod m]=a[j div m,j mod m] then ...

[digitalis]

Сообщение от Аватар

Только до n-1 и m-1.]

А почему? Вдруг совпавшее значение притаилось именно в последней строке (столбце) ? Ведь это не Си, массив [0..m,0..n] .
А насчет 2 циклов - не знаю, будет ли экономия, но ущерб в ясности понимания будет, я думаю.
В одной умной книжке я прочел: "Некоторые программисты полагают, что мировой запас скобок ограничен и поэтому употребляют их крайне редко" Я применил это к вложенности циклов В данном случае "уполовинивание" имело бы смысл для массивов очень больших размерностей (много индексов) , в результате могла быть превышена допустимая глубина вложенности циклов, но этот случай, думаю, не из реальной жизни.

[Аватар]

А почему?

Просто посмотреть как он заполняется

В двух циклах операции деления конечно не подарок. Но можно и их избежать )

ps ой, к тому массиву мой пример не подходит, m и n может быть меньше фактической размерности массива

[dol]

Большое спасибо всем за помощь, все работает, как надо.
Есть только пара вопросов:
n-1 и m-1 нужно прописывать, чтобы последние ячейки не сравнивались сами с собой? Если не прописывать -1, то программа ошибается с ответами.

Сообщение от Аватар

к тому массиву мой пример не подходит, m и n может быть меньше фактической размерности массива

можно подробнее в какой ситуации это возможно? Я проверил многократно с разными параметрами и всегда работает правильно.

[digitalis]

У меня "несравнение с самим собой" обеспечивается вот этим

and not ((p=i) and (q=j)

У Аватар как-то по другому, но сложно, и я не понял, а думать неохота, бо не мне же курсель сдавать.

[Аватар]

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

можно подробнее в какой ситуации это возможно? Я проверил многократно с разными параметрами и всегда работает правильно.

Все нормально, той ой к примеру с двумя циклами и зря написал - он будет правильно работать )