Умножение логических матриц

@калючка · Регистрация: 24.11.2016

Author24 — интернет-сервис помощи студентам

Подскажите....как правильно в паскале перемножить две логические матрицы....?

@Puporev · 17.05.2017, 15:37

Ни разу с таким типом не имел дела с умножением, но вроде так. Проверьте.

Pascal

var a,b,c:array[1..10,1..10]of boolean;
    n,i,j,r:integer;
begin
randomize;
repeat
write('Размер матриц от 2 до 10 n=');
readln(n);
until n in [2..10];
writeln('Матрица А:');
for i:=1 to n do
 begin
  for j:=1 to n do
    begin
     a[i,j]:=random(2)=1;
     write(a[i,j]:6);
    end;
  writeln;
 end;
writeln('Матрица В');
for i:=1 to n do
 begin
  for j:=1 to n do
   begin
    b[i,j]:=random(2)=1;
    write(b[i,j]:6);
   end;
  writeln;
 end;
for r:=1 to n do
for j:=1 to n do
 begin
  c[r,j]:=a[r,1]and b[1,j];
  for i:=2 to n do
  c[r,j]:=c[r,j] or (a[r,i]and b[i,j]);
 end;
writeln('Матрица С=А*В');
for i:=1 to n do
 begin
  for j:=1 to n do
  write(c[i,j]:6);
  writeln;
 end;
end.

@калючка · 17.05.2017, 15:55 **[ТС]**

это косвенно связано с кодом Хемминга....там тоже работа с двоичной системой...

@калючка · 22.05.2017, 14:13 **[ТС]**

Тема закрыта....Я разобрался....

@калючка 0 / 0 / 0 Регистрация: 24.11.2016 Сообщений: 5
		1
	Умножение логических матриц 17.05.2017, 14:06. Показов 2697. Ответов 3 Метки нет (Все метки) Подскажите....как правильно в паскале перемножить две логические матрицы....? 0

@калючка 0 / 0 / 0 Регистрация: 24.11.2016 Сообщений: 5
	17.05.2017, 15:55 [ТС]	3
	это косвенно связано с кодом Хемминга....там тоже работа с двоичной системой... 0

@калючка 0 / 0 / 0 Регистрация: 24.11.2016 Сообщений: 5
	22.05.2017, 14:13 [ТС]	4
	Тема закрыта....Я разобрался.... 0

Умножение логических матриц

Решение