Симметричность матрицы относительно главной диагонали

@Alenna · Регистрация: 15.03.2011

Дана функция определения симметричности квадратной матрицы относительно главной диагонали:

Pascal

Function check2(x:dmyarray):boolean;
 Var i,j:integer;
 Begin
 t:=true;
 i:=2;
 While t and (i<=n) do
  begin
  j:=1;
  While (j<i) and (x[i,j]=x[j,i]) do
  inc(j);
  t:=(i=j);
  inc(i);
  end;
 check2:=t;
End;

Нужно изменить данную функцию check2,
так чтобы просмотр пар прекращался тогда, когда найдена первая пара неравных элементов.

@Puporev · 15.03.2011, 19:10

Pascal

Function check2(x:dmyarray):boolean;
 Var i,j:integer;
     t:boolean;
 Begin
 t:=true;
 i:=2;
 While t and (i<=n) do
  begin
  j:=1;
  While t and(j<i) do
  if (x[i,j]<>x[j,i]) then f:=false
  else inc(j);
  if f then inc(i);
  end;
 check2:=t;
End;

Опции темы