Delphi, Matrix

[Skarabei]

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

Задание: Дана матрица размера m*n.Определить равны ли какие либо две строки.Если нет таких строк,вывести сообщение об этом.Алгоритм прохода по необходимым элементам:

for i:=0 to Rows.value do
for j:=i+1 to Rows.value-1 do
for k:=0 to Cols.value-1 do
{Сравниваем элементы Matrix.Cells[k,i] и Matrix.Cells[k,j]}

Нужная процедура:

{procedure TMainForm.GoBtnClick(Sender: TObject);
var text: string;
i,j,k : Integer;
begin
end; }
end.

[Ky3Heu,]

Не понял о равенстве.. Нужны суммы строк или по количеству одинаковых элементов строки+их позиция??? Уточните...

Быстрая накидка

var a:array [1..n,1..L] of integer;
begin
for i:=1 to n-1 do
begin
   for j:=1 to L do
   begin
      if a[i,j]=a[i+1,j] then
      k:=1
      else
      k:=0;
   end
if k=1 then
Label1.caption:='В матрице имеются одинаковые строки'
else
Label1.caption:='В матрице нет одинаковых строк'
end;
end;

Приблизительно так. Переменные сами опишите.

[Skarabei]

Равные строки по количеству одинаковых элементов

На 1 строке ( a:array[1..n,1..L] of integer; ) выдает ошибку constant expression expected..Че это за ошибка?

[Anatole]

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

На 1 строке ( a:array[1..n,1..L] of integer; ) выдает ошибку constant expression expected..Че это за ошибка?

переводится приблизительно так: В выражениии требуется константа
это значит, что n и L долхны быть описаны в разделе констант

[megachuhancer]

Спрашивалось про какие-нибудь две строки, поэтому если нет дополнительных условий, придётся сравнить каждую строку с каждой.

Что-то вроде

{$apptype console}
const
   n = 3;
   m = 3;
var
   a : array [1..n , 1..m] of integer;
   f : boolean;
   i , j : integer;
function Comp(f , s : integer) : boolean;
var
   i : integer;
begin
   result := true;
   for i := 1 to m do begin
      result := result and (a[f , i] = a[s , i]);
      if not result then exit;
   end;
end;
begin
   for i := 1 to n do
      for j := 1 to m do
         read(a[i , j]);
   for i := 1 to n do
      for j := 1 to n do begin
         if i <> j then f := f or Comp(i , j);
         if f then break;
      end;
   if f then
      write('Yes')
   else
      write('No');
end.

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

Если равенство понимается не в смысле "количество + позиция", а в смысле "количество" то всё несколько сложнее.