типовой

[Volodyajke]

всем привет, помогите пожалуйста
вот задача

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

Набросал:

uses
    crt;
var
   a:array[1..100,1..100] of integer;
   b:array[1..100,1..100] of integer;
   i,j,k,l,n,m:integer;
begin
     writeln('‚Vvedite razmernost' 1oy matrici ');
     readln(n);
     writeln('‚Vvedite matricy razmerom ',n,' x ',n);
     for i:= 1 to n do
         for j:= 1 to n do
             read(a[i,j]);
     writeln('‚Vvedite razmernost' 2oy matrici ');
     readln(m);
     writeln('vvedite matricy razmerom',m,' x ',m);
     for i:= 1 to n do
         for j:= 1 to n do
             read(b[i,j]);
 writeln('Pervaya matrica* :');
    for i:=1 to n do
    begin
    for j:=1 to n do
    write(a[i,j]:3);
    writeln;
    end;
 writeln('Vtoraya matrica* :');
    for i:=1 to m do
    begin
    for j:=1 to m do
    write(b[i,j]:3);
    writeln;
    end;

for i:=1 to n do
for j:=i to n do
  begin
    k:=a[i,j];
    a[i,j]:=a[j,i];
    a[j,i]:=k;
  end;
writeln('’pervaya transponirovannaya matrica*:');
for i:=1 to n do
  begin
    for j:=1 to n do
    write(a[i,j]:4);
    writeln;
  end;

   if a[i,j]=b[i,j] then write('Mojno polu4it' sovmeshenie matric')
         else write('Nelzya');
             readln;
             readkey
             end.

В последней части у меня не получается, помогите плз))

[Rafail]

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

[Volodyajke]

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

[Rafail]

Готово, если что пиши

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.

[Volodyajke]

Спасибо! А можете с алгоритмом помочь?

[Rafail]

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

[Volodyajke]

Совершенно точно