Транспонировать матрицу Опции

[lacomca]

Транспонировать матрицу A=(d(ij))^m*m, где m<=10. Проверить является ли она симметричной, если да, то переменной Q присвоить 1, в противном случае - 0.

||0,5 1 2||
A= ||1 3,2 1||
||2 1 0,5||

Квадратная матрица называется симметричной матрицей, если ее элементы, симметричные относительно главной диагонали, равны между собой, т.е. aij = aji для всех i, j.
Матрица является симметричной, если она совпадает со своей транспонированной матрицей (т.е. A = A'). Другими словами, нижний треугольник квадратной матрицы является "зеркальным отражением" верхнего треугольника.

[Ozzя]

http://forum.pascalnet.ru/index.php?s=&sh...indpost&p=28387

Function matrixTranspose(a: TMatrix): PTMatrix;
Функция возвращает указатель на созданную в динамической памяти матрицу, являющуюся транспонированной матрицей A, т.е. строки исходной матрицы становятся столбцами и наоборот (или nil при невозможности выделения памяти)

Матрица является симметричной, если она совпадает со своей транспонированной матрицей (т.е. A = A').

Квадратная матрица называется симметричной матрицей, если ее элементы, симметричные относительно главной диагонали, равны между собой, т.е. aij = aji для всех i, j.

Function IsMatrixSimmetric (A : TMatrix) : boolean;
var
  i,j :integer;
begin
  IsMatrixSimmetric:=True;
  for i:=1 to M do
    for i:=1 to M do
      if a[i,j] <> a[j,i] then
        begin
            IsMatrixSimmetric:=False;
             Break;
        end;
end;