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

[djdenisoff]

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

[IUnknown]

Андрей, вылета не боишься на Length(a) (при использовании дин. массивов)?

[Lapp]

Андрей, вылета не боишься на Length(a) (при использовании дин. массивов)?

Oops! Sorry..
Спасибо, Володь, +1 ))

Исправленный код:

type
  tArr= array of array of integer;

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

...

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

Ты же просил "придумать тебе формулу"! Тебе дали ГОРАЗДО БОЛЬШЕ. Извини, если ты не можешь переделать функцию в процедуру, интнрес к твоей персоне испаряется.. Асталависта, учи язык.

[djdenisoff]

Oops! Sorry..
Спасибо, Володь, +1 ))

Исправленный код:

type
  tArr= array of array of integer;

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

...

Ты же просил "придумать тебе формулу"! Тебе дали ГОРАЗДО БОЛЬШЕ. Извини, если ты не можешь переделать функцию в процедуру, интнрес к твоей персоне испаряется.. Асталависта, учи язык.

Я уже разобрался)))спасибо за помощь огромное