В двоичной матрице размером 10х10 найти совпадающие строки. Матрицу выводить из
В двоичной матрице размером 10х10 найти совпадающие строчки. Матрицу выводить из файла.
Задать свой вопрос
Viktorija Veldman
в файле матрица введена вручную, в программке необходимо вывести эту матрицу на экран, а также отыскать и вывести на экран совпадающие строчки
Никита
А почему матрица названа двоичной?
Алиса Безмалитвенная
такое условие учебника)
Рашиевич
Серега
Если она двоичная, то обязана 1 и 0 содержать...
Генка Щепотько
в случайном порядке? спасибо за замечание)
Леончик
Александра
тогда пусть такая матрица будет
Рита Цибуля
1 0 1 0 1 0 1 0 1 01 1 0 1 0 1 0 1 0 10 0 1 0 1 0 1 0 1 01 0 1 0 1 0 1 0 1 01 1 0 1 0 1 0 1 0 00 0 1 0 1 0 1 0 1 10 1 0 1 0 1 0 1 0 11 1 0 1 0 1 0 1 0 10 0 1 0 1 0 1 0 1 00 1 0 1 0 1 0 1 0 1
Шитулина
Анастасия
А тогда, самое смешное, что для данной задачки надобно пренебрегать, что это матрица и считать информацию массивом строк фиксированной длины. После чего задачка сводится к нахождению схожих строк.
Егор Маджуга
А для этого мы их сортируем и глядим примыкающие значения.
Виталя Курьанов
сможете программку написать?
1 ответ
Денис Ширефин
// PascalABC.Net 3.0, сборка 1064
const
n = 10;
var
ms: array[1..n] of string;
t: string;
i, j: integer;
f: Text;
begin
Чтение матрицы из файла
Assign(f, 'in.txt'); Reset(f);
for i := 1 to n do Readln(f, ms[i]);
Close(f);
Вывод матрицы на экран
Writeln('*** Бинарная матрица ***');
for i := 1 to n do Writeln(ms[i]);
Сортировка разменом (простая)
for i := 1 to n - 1 do
for j := 1 to n - 1 do
if ms[j] gt; ms[j + 1] then
begin t := ms[j]; ms[j] := ms[j + 1]; ms[j + 1] := t end;
Поиск схожих строк
Writeln('Совпадающие строки');
j := 1; t := ms[1];
for i := 2 to n do
begin
if ms[i] = t then Inc(j)
else begin
if j gt; 1 then begin Writeln(t); j := 1 end;
t := ms[i]
end
end;
if j gt; 1 then Writeln(t)
end.
Контрольное решение:
*** Бинарная матрица ***
1 1 0 1 0 1 0 1 0 1
0 0 1 0 1 0 1 0 1 0
1 0 1 0 1 0 1 0 1 0
1 1 0 1 0 1 0 1 0 0
0 0 1 0 1 0 1 0 1 1
0 1 0 1 0 1 0 1 0 1
1 1 0 1 0 1 0 1 0 1
0 0 1 0 1 0 1 0 1 0
0 1 0 1 0 1 0 1 0 1
Совпадающие строчки
0 0 1 0 1 0 1 0 1 0
0 1 0 1 0 1 0 1 0 1
1 0 1 0 1 0 1 0 1 0
1 1 0 1 0 1 0 1 0 1
const
n = 10;
var
ms: array[1..n] of string;
t: string;
i, j: integer;
f: Text;
begin
Чтение матрицы из файла
Assign(f, 'in.txt'); Reset(f);
for i := 1 to n do Readln(f, ms[i]);
Close(f);
Вывод матрицы на экран
Writeln('*** Бинарная матрица ***');
for i := 1 to n do Writeln(ms[i]);
Сортировка разменом (простая)
for i := 1 to n - 1 do
for j := 1 to n - 1 do
if ms[j] gt; ms[j + 1] then
begin t := ms[j]; ms[j] := ms[j + 1]; ms[j + 1] := t end;
Поиск схожих строк
Writeln('Совпадающие строки');
j := 1; t := ms[1];
for i := 2 to n do
begin
if ms[i] = t then Inc(j)
else begin
if j gt; 1 then begin Writeln(t); j := 1 end;
t := ms[i]
end
end;
if j gt; 1 then Writeln(t)
end.
Контрольное решение:
*** Бинарная матрица ***
1 1 0 1 0 1 0 1 0 1
0 0 1 0 1 0 1 0 1 0
1 0 1 0 1 0 1 0 1 0
1 1 0 1 0 1 0 1 0 0
0 0 1 0 1 0 1 0 1 1
0 1 0 1 0 1 0 1 0 1
1 1 0 1 0 1 0 1 0 1
0 0 1 0 1 0 1 0 1 0
0 1 0 1 0 1 0 1 0 1
Совпадающие строчки
0 0 1 0 1 0 1 0 1 0
0 1 0 1 0 1 0 1 0 1
1 0 1 0 1 0 1 0 1 0
1 1 0 1 0 1 0 1 0 1
, оставишь ответ?
Похожие вопросы
-
Вопросы ответы
Новое
NEW
Статьи
Информатика
Статьи
Последние вопросы
Рассматривая литературный язык как сложное взаимодействие книжного языка и разговорного,В.И.Чернышёв горячо
Разные вопросы.
Арабы входят в __________________ групп народов. Местом расселения арабов с незапамятных
Разные вопросы.
Грузовой автомобиль марки краз за одну поездку может доставить 7.500 кирпичей
Математика.
Определить предложения какие они по цели высказывания и по интонации
Русский язык.
"Три толстяка" Называли эту площадь Площадью Звезды последующей причине.
Русский язык.
на одной грядке коротышки посадили 3 ряда морковок по 8 штук
Разные вопросы.
эссе на тему какое образование дается в каждой семье
Қазақ тiлi.
Put the verb in brackets into the Present Indefinite.
1The Volga ,
Английский язык.
Сколько стоит коктейль молочный? Точную цену надо?
Математика.
Составить рассказ Из чего складывался культ монарха помазанника Божьего?
История.
Облако тегов