Определить, является ли заданная квадратная матрица антисимметрической и тёплицевой - Turbo Pascal

Формулировка задачи:

Определить, является ли заданная квадратная матрица антисимметриче- ской и тёплицевой. Ребята,помогите пожалуйста.Очень срочно надо.Использовать при этом процедуры.

Код к задаче: «Определить, является ли заданная квадратная матрица антисимметрической и тёплицевой - Turbo Pascal»

textual
program jaredqq;
 
const n = 5;
 
var a: array [1..n, 1..n] of integer;
    i, j: integer;
    f: boolean;
 
procedure print;
var i, j: integer;
begin
  writeln('Matrix:');
  for j := 1 to n do
    begin
      for i := 1 to n do write(a[i, j]:6);
      writeln
    end
end;
 
procedure asim;
var i, j: integer;
begin
  f := true;
  for j := 1 to n do
    begin
      for i := j to n do
        if a[i, j] + a[j, i] <> 0
          then
            begin
              f := false;
              break
            end;
      if not(f) then break
    end;
end;
 
procedure toeplitz;
var i, j: integer;
begin
  f := true;
  for j := 2 to n do
    begin
      for i := 2 to n do
        if a[i, j] <> a[i - 1, j - 1]
          then
            begin
              f := false;
              break
            end;
      if not(f) then break
    end;
end;
 
begin
  writeln('Enter elements of matrix, n = ', n, ':');
  for j := 1 to n do
    for i := 1 to n do
      begin
        write('a[', i, ', ', j, '] = ');
        readln(a[i, j])
      end;
  print;
  asim;
  if f
    then writeln('Antisymmetric')
    else writeln('No antisymmetric');
  toeplitz;
  if f
    then writeln('Toeplitz')
    else writeln('No Toeplitz');
  readln
end.

10   голосов, оценка 4.100 из 5


СОХРАНИТЬ ССЫЛКУ