2 / 2 / 2
Регистрация: 25.12.2011
Сообщений: 55
1

Модуль: нахождение всех пар непохожих строк в заданной матрице

04.06.2012, 10:23. Показов 1552. Ответов 1
Метки нет (Все метки)

Author24 — интернет-сервис помощи студентам
две строки матрицы назовем похожими, если совпадают множества чисел, встречающихся в этих строках. Написать программу, использующую модуль для нахождения всех пар непохожих строк в заданной матрице.
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
04.06.2012, 10:23
Ответы с готовыми решениями:

Найти количество строк в максимальном множестве попарно непохожих строк заданной матрицы.
Две строки матрицы назовем похожими, если совпадают множества чисел, встречающихся в этих строках....

Обработка массивов: нахождение всех пар одинаковых строк
Написать программу, которая находит все пары одинаковых строк в двумерном массиве чисел, хранящемся...

Найти количество строк в максимальном множества попарно непохожих строк заданной матрицы
Две строки матрицы назовем похожими, если совпадают множества чисел, встречающихся в этих строках....

Найти количество строк в максимальном множестве попарно непохожих строк заданной матрицы
Мир всем, помогите понять суть задания: "Две строки матрицы назовем похожими, если совпадают...

1
Почетный модератор
7966 / 3937 / 2464
Регистрация: 30.10.2011
Сообщений: 5,377
04.06.2012, 11:35 2
Лучший ответ Сообщение было отмечено konispat как решение

Решение

для работы с типом byte
модуль
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
unit myunit;
 
interface
uses crt;
const nmax=20;
type matr=array[1..nmax,1..nmax] of byte;
     mn=set of byte;
 
procedure Razmer (var ri,rj: byte);
procedure Vvod(ri,rj: byte; var z:matr);
procedure Gen (ri,rj: byte; var z: matr);
procedure IsDifferent (ri,rj: byte; z: matr);
procedure Vyvod(ri,rj: byte; z:matr);
 
implementation
 
procedure Razmer (var ri,rj: byte);
begin
repeat
write('Êîëè÷åñòâî ñòðîê, íå áîëåå ',nmax,', n='); readln(ri);
until ri in [1..nmax];
repeat
write('Êîëè÷åñòâî ñòîëáöîâ, íå áîëåå ',nmax,', m='); readln(rj);
until rj in [1..nmax];
end;
 
procedure Vvod(ri,rj: byte; var z:matr);
var i,j:byte;
begin
clrscr;
writeln('Çàïîëíÿåì ìàòðèöó ');
for i:=1 to ri do
    for j:=1 to rj do
        begin
        write('a[',i,',',j,']=');
        readln(z[i,j]);
        end;
end;
 
procedure Gen (ri,rj: byte; var z: matr);
var i,j: byte;
begin
for i:=1 to ri do
    for j:=1 to rj do
        z[i,j]:=random(10);
end;
 
procedure IsDifferent (ri,rj: byte; z: matr);
var i,j,e: byte;  m1,m2: set of byte;
begin
m1:=[]; m2:=[];
for i:=1 to ri-1 do
    for j:=i+1 to ri do
        begin
        for e:=1 to rj do
            begin
            m1:=m1+[z[i,e]];
            m2:=m2+[z[j,e]];
            end;
        if m1<>m2 then writeln(i,' ñòðîêà è ',j,' ñòðîêà íåïîõîæè');
        end;
end;
 
procedure Vyvod(ri,rj: byte; z:matr);
var i,j:byte;
begin
clrscr;
writeln('Ìàòðèöà ');
for i:=1 to ri do
    begin
    for j:=1 to rj do
        write(z[i,j]:4);
    writeln;
    end;
end;
 
end.
главная программа
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
uses crt,myunit;
var a:matr;
    v,n,m: byte;
 
begin
Razmer (n,m);
repeat
write('1-çàïîëíåíèå âðó÷íóþ, 2-çàïîëíåíèå ñëó÷àéíûìè ÷èñëàìè');
readln(v);
until v in [1..2];
if v=1 then Vvod(n,m,a) else Gen (n,m,a);
Vyvod(n,m,a);
writeln;
writeln('Ïàðû íåïîõîæèõ ñòðîê:');
IsDifferent (n,m,a);
end.
1
04.06.2012, 11:35
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
04.06.2012, 11:35
Помогаю со студенческими работами здесь

Построить множество попарно-непохожих строчек в заданой матрице
Двe строчки будут равние, eсли совпадают множества чисел ( целые рациональыие натуральные...

Модуль, проверяющий совпадение строк в матрице
Нужно написать модуль, проверяющий, есть ли в заданной матрице произвольной размерности хотя бы две...

Вычислить максимальную разность позиций для всех пар одинаковых символов любой заданной строки
Язык Bash/shell, программа должна быть оптимальной по количеству действий, строка вводится с...

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


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2024, CyberForum.ru