Задача на проверку матрицы на симметричность относительно побочной диагонали, СРОЧНО!!!! Опции

[djdenisoff]

Ребята,помогите!!!К пятнице надо сделать задачу!!!!!
Условие:проверить матрицу на симметричность относительно главной диагонали.Матрица вводится с текстового файла.Решить с помощью динамических переменных.

[Lapp]

А в чем, собственно, проблема?

[djdenisoff]

А в чем, собственно, проблема?

Надо написать процедуру Ворк,написать её не знаю как....Проблема в том,что надо придумать формулу...Помогите пожалуйста

[Lapp]

Надо написать процедуру Ворк,написать её не знаю как....Проблема в том,что надо придумать формулу...Помогите пожалуйста

Это можно. Только не процедуру, функцию.
(в этом коде ошибка, исправленный см. ниже)

type
  tArr= array of array of integer;

function Symmetric(a: tArr): boolean;
var
  i,j: integer;
begin
  for i:=2 to Length(a) do
    for j:=1 to i-1 do
      if a[i,j]<>a[j,i] then begin
        Symmetric:= false;
        exit
      end;
  Symmetric:= true
end;

...

Если не в курсе про динамические массивы - спрашивай, расскажем. Или переделывай на статические..

[djdenisoff]

Это можно. Только не процедуру, функцию.

type
  tArr= array of array of integer;

function Symmetric(a: tArr): boolean;
var
  i,j: integer;
begin
  for i:=2 to Length(a) do
    for j:=1 to i-1 do
      if a[i,j]<>a[j,i] then begin
        Symmetric:= false;
        exit
      end;
  Symmetric:= true
end;

...

Если не в курсе про динамические массивы - спрашивай, расскажем. Или переделывай на статические..

было бы лучше процедуру написать...так требует препод....помогите