@Donatello

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

Добавлено через 15 часов 23 минуты
срочно помогите пожалуйста

0

@Externus

А поясни задание? Что такое "совмещение матриц"? Это значит что каждый элемент одной матрицы равен соответствующему элементу другой? Или что? Просто четкого определениz "совмеoение матриц" я не знаю.

0

@Donatello

нужно ввести 2 матрицы, вторую транспонировать и вывести ее на экран и потом сравнить 1ую и транспонированную, если они равны то вывести можно, а если нет то нельзя.

0

@Externus

uses crt;
type
matr = array[1..50,1..50] of integer;

var a,b:matr;
n:word;
f:boolean;

{Процедура ввода матрицы}
procedure inp_matr(var buf:matr);
var i,j:word;
begin
writeln('Vvedi matricy');
for i:=1 to n do
begin
for j:=1 to n do
read(buf[i,j]);
readln;
end;
end;

{Процедура вывода матрицы}
procedure out_matr(buf:matr);
var i,j:word;
begin
for i:=1 to n do
begin
for j:=1 to n do
write(buf[i,j],' ');
writeln;
end;
end;

{Процедура отражения элементов матрицы относительно главной диагонали}
procedure transp(var buf:matr);
var i,j:word;
buf2:integer;
begin
for i:=1 to n do
for j:=1 to i-1 do
begin
buf2:=buf[i,j];
buf[i,j]:=buf[j,i];
buf[j,i]:=buf2;
end;
end;

{проверка равенства матриц}
procedure proverka;
var i,j:word;
begin
for i:=1 to n do
for j:=1 to n do
begin
if a[i,j]<>b[i,j] then
begin
f:=false;
break;
end;
end;
end;

begin
clrscr; {Очистка экрана}
f:=true; {Если ф - тру значит можно, если фолс, значит нельзя}


write('Vvedi razmernost - ');readln(n);{Ввод размерности матриц и самих матриц}
inp_matr(a);
inp_matr(b);


transp(a); {Транспонирование матрицы А}
proverka; {Проверка матриц на совмещение (равенство), если равны, то Ф останется тру, если нет, то ф станет фолс}

if f=true then {ветка ветвления, когда матрицы равны}
begin
writeln('Mozhno poluchet sovmeshenie');
writeln('Transponirovannaya matrica A');
out_matr(a);
writeln('Matrica B');
out_matr(b);
end
else {ветка ветвления, когда матрицы не равны}
begin
writeln('Nelzya poluchet sovmeshenie');
writeln('Transponirovannaya matrica A');
out_matr(a);
writeln('Matrica B');
out_matr(b);
end;
readln; {ожидание наатия клавиши для выхода}
end.

Добавлено через 26 секунд
Структурирование правда улетело(

1

@Donatello

пасибо! а можете помочь с алгоритмом, а то я в них вообще не понимаю

0

@TAVulator

для того, чтобы не улетало, есть теги PASCAL

1

@Externus

TAVulator, спасибо.

Donatello, алгоритм словами описать? Или что? Блок схема нужна?

0

@Donatello

Блок схему

0