Вдвоичной матрице размером 10х10 найти строки. матрицу выводить из файла.
133
153
Ответы на вопрос:
// 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] > 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 > 1 then begin writeln(t); j : = 1 end; t : = ms[i] end end; if j > 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
Зажмите alt+ctrl+delete нажмите на кнопку диспетчер и закройте окно которое мешает
Популярно: Информатика
-
thymbalovajulia14.01.2020 09:16
-
likavudu15.03.2021 05:13
-
27sergey127.11.2020 19:42
-
ssdjpiffi20.06.2023 23:01
-
шамшода19.06.2021 12:39
-
алекссоколевский19.03.2020 05:16
-
velikayadasha22.08.2022 23:54
-
пвмыиыо05.12.2022 02:59
-
rezistol22802.05.2023 01:14
-
safiya25070726.04.2022 00:14