Версия для печати темы

Автор: LenaFree 5.04.2007 21:32

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

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

Автор: klem4 5.04.2007 22:51

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

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 5.04.2007 23:00

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

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 6.04.2007 2:14

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 килобайт ) Кол-во скачиваний: 440

Автор: volvo 6.04.2007 2:53

var
Mx: TMx 

Автор: Гость 6.04.2007 14:00

Цитата(volvo @ 5.04.2007 22:53)

Автор: klem4 6.04.2007 15:21

Автор: LenaFree 12.04.2007 15:00

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

Цитата(klem4 @ 6.04.2007 12:21)