работа с матрицами, решение задачи Опции

[LenaFree]

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

Есть только начало проги: ввод и вывод матрицы, а с остальным большие проблемы...
 PR_MNOJE.PAS ( 864 байт ) Кол-во скачиваний: 350

[klem4]

Что-то вроде этого:

uses crt;
const
  n = 5;
  m = 4;

type
  TMx = array [1..n, 1..m] of Integer;

{ вернет TRUE если строки p и q матрицы mx похожи }
function CompareRows(const p, q: Integer;
 const mx: TMx): Boolean;
var
  i, j: Integer;

begin
  i := 1;
  while (i <= m) do begin
    j := 1;
    while (j <= m) and not(mx[p, i] = mx[q, j])
     do inc(j);
    if (j <= m) then inc(i) else i :=  m + 2;
  end;
  CompareRows := (i = m + 1);
end;

var
  Mx: TMx = (
  (1, 2, 3, 4),
  (1, 2, 3, 5),
  (4, 3, 2, 1),
  (2, 3, 1, 5),
  (1, 2, 2, 2) 
  );

  p, q: Integer;
begin
  for p := 1 to n - 1 do
   for q := p + 1 to n do
    if CompareRows(p, q, Mx) then writeln(p, ' : ', q);
end.

[LenaFree]

klem4, спасибо большое! но у меня к тебе пара вопросов:
если оставить
const
n = 5;
m = 4;
, то результат все время один и тот же, т.е. он только указывает какие строки надо сравнивать:
1:2
1:3
1:4
2:3
2:4
3:4
как сделать, чтобы сравнить эти строки и вывести результат,и еще: он не понимал
var
Mx: TMx = (
(1, 2, 3, 4),
(1, 2, 3, 5),
(4, 3, 2, 1),
(2, 3, 1, 5),
(1, 2, 2, 2)
);
и я сделала ввод через random  MTX.PAS ( 1.31 килобайт ) Кол-во скачиваний: 346