проверить массив симметричен или нет

[kalosha-stepa]

ФОРМУЛИРОВКА:Проверить является ли массив n*n симметричным относительно одной из его диагоналей.
Надо подправить!

program z3;
Type masInt=array [1..10,1..10] of integer;
var a:masInt; n: integer; i,j:integer;

procedure Form (var n:integer;var a:masInt);
var i,j:integer;
begin
writeln('введи количество строк и столбцов');
readln(n);
writeln('введите сам массив');
  for i:=1 to n do
  for j:=1 to n do readln(a[i,j]);
end;

procedure Print (a: masInt; n: integer);
var i,j: integer;
begin
  for i:=1 to n do begin
  for j:=1 to n do write (a[i,j],' ');
writeln;
end; end;

procedure Dioganal (a: masInt;n: integer);
 var i,j: integer;
 begin
   if (i>j) and (a[i,j]<>a[j,i]) then writeln ('не симметрична')
   else writeln('симмитрична');
end;

Begin
Form(n,a);
Print(a,n);
Dioganal(a,n);
End.

[p51x]

Ну так допишите цикл делов-то?

[Stilet]

Когда-то я делал так:

  for i:=1 to n do begin
  for j:=1 to n do begin
   if (not c) and (not b) then break;
   if b and (j>i) and (a[i,j]<>a[n-i,n-j]) then b:=false;
   if c and ((n-j)<i) and (a[i,j]<>a[n-i,n-j]) then c:=false;
  end;
end;

Где b,c - Boolean;
Если b = False то массив несимметричен относительно побочной, если с - то относительно главной.

Ессно подразумевается что массив введен.

[kalosha-stepa]

а что делает break!!!

[Poma][a]

Бывает, что цель выполнения цикла достигается раньше, чем он будет прекращен по условию выхода. Так, например, в программе для определения простоты числа цикл будет выполняться n div 2-1 раз, хотя то, что число не является простым, может быть обнаружено на первых шагах цикла. Чтобы уменьшить количество шагов цикла, можно воспользоваться оператором goto, либо сформировать сложное условие выполнения (прекращения) цикла.

Однако существуют специальные операторы, использующиеся для прерывания хода выполнения цикла. Оператор break выполняет полный выход из цикла, т.е. все возможные итерации цикла прерываются. Оператор continue прерывает только текущую итерацию.
Ну есть же поиск и справка!

[Stilet]

Ну в данном случае как сказал Рома

Чтобы уменьшить количество шагов цикла

[kalosha-stepa]

program z3;
Type masInt=array [1..10,1..10] of integer;
var a:masInt; n: integer; i,j:integer; b,c: boolean;

procedure Form (var n:integer;var a:masInt);
var f: text;i, j: integer;
begin
  assign(f, '3.txt');
  reset(f);
  readln(f, n);
  for i := 1 to n do
  begin
    for j := 1 to n do read(f, a[i, j]);
    readln(f);
  end;
  close(f);
end;

procedure Print (a: masInt; n: integer);
var i,j: integer;
begin
  for i:=1 to n do begin
  for j:=1 to n do write (a[i,j],' ');
writeln;
end; end;

procedure Dioganal (a: masInt;n: integer);
 var i,j: integer;
 begin
 for i:=1 to n do
  for j:=1 to n do begin
    if (not c) and (not b) then break;
   if b and (j>i) and (a[i,j]<>a[n-i,n-j]) then b:=false;
   if c and ((n-j)<i) and (a[i,j]<>a[n-i,n-j]) then c:=false;
   
  end;
end;

Begin
Form(n,a);
Print(a,n);
Dioganal(a,n);
End.

Где-то ошибочка и не выводит а лишь массив выводит

[Sciv]

Где-то ошибочка и не выводит а лишь массив выводит

Так у Вас кроме вывода самого массива (Print) больше никаких других выводов нигде не прописано. Так что нет никакой ошибки, просто забыли WriteLn вставить (подозреваю, что в процедуру Dioganal)

P.S. Правильно пишется диАгОналь