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

[LenaFree]

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

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

[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.

[volvo]

Хм... Меня посетила бредовая мысль: если работать с целочисленными значениями, то будет ли вот ЭТО корректно всегда, или только для частных случаев?

function my_compare(const p, q: integer;
         const mx: Tmx): boolean;
var i, test: integer;
begin
  test := 0;
  for i := 1 to m do
    test := test xor mx[p, i] xor mx[q, i];
  my_compare := (test = 0);
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 килобайт ) Кол-во скачиваний: 494

[volvo]

и еще: он не понимал

var
Mx: TMx 

Это код не для Турбо Паскаля... Поменяй Var на Const - все должно работать...

результат все время один и тот же, т.е. он только указывает какие строки надо сравнивать:

Вот результат запуска исходной программы:

Running <...>
1 : 3
2 : 4

, то есть строки №1 и №3 также как строки №2 и №4 признаны "совпадающими"... Почему у тебя выдается такой результат, как ты привела - непонятно...

[Гость]

то есть строки №1 и №3 также как строки №2 и №4 признаны "совпадающими"... Почему у тебя выдается такой результат, как ты привела - непонятно...

Я тоже не поняла, а если еще и константы поменять на боьшие, то там ТАКОЕ творися....
И еще мне сделали замечание, что Надо найти количество строк в максимальном множестве попарно не похожих строк заданной матрицы

[klem4]

Надо найти количество строк в максимальном множестве попарно не похожих строк заданной матрицы

А как изменить программу не догадываешься ? Надо в одном месте поставить not ...

[LenaFree]

Привет!!! Как настроение?

А как изменить программу не догадываешься ? Надо в одном месте поставить not ...

Нее... уже не догадываюсь... Я надеялась, что забудут про эту прогу и отстанут от меня, но не тут-то было... Эта задачка уже в печенках сидит!!! Сданы последующие 4, а эта все еще висит над душой!!! Может есть еще какие-нибудь идейки?!

Еще раз прикреплю то, что надо модернизировать:
 PR_MNOJE.PAS ( 1.41 килобайт ) Кол-во скачиваний: 506


А вообще меня достают имено из-за этой строки: найти количество строк в максимальном множестве попарно не похожих строк заданной матрицы. как над ней тока не извращались