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

Узнай цену своей работы

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

8. Определить, является ли заданная целая квадратная матрица n-го порядка симметричной (относительно главной диагонали). Блок схема

Решение задачи: «Определить, является ли заданная целая квадратная матрица n-го порядка симметричной (относительно главной диагонали)»

textual
Листинг программы
program prim1;
uses crt;
type mas=array[1..100,1..100] of integer;
var i,j,n,s: integer;
var a,b: mas;
 begin
 clrscr;
 write('n=');
 readln(n);
 for i:=1 to n do begin
 for j:=1 to n do begin
  readln(a[i,j]);
  end;
  end;
  for j:=1 to n do begin
  for i:=1 to n do begin
  b[j,i]:=a[i,j];
  write(b[j,i]);
  end;
END;
s:=0;
i:=j;
for i:=1 to n do begin
for j:=1 to n do begin
if a[i,j]<>b[i,j] then s:=s+1;
 end;
 end;
 if s>0 then write('НЕТ') else write('ДА, является симметричной');
end.

Объяснение кода листинга программы

  1. Создается программа prim1, которая использует библиотеку crt.
  2. Определяется тип данных mas, который представляет собой массив целых чисел размером от 1 до 100 в каждой из двух осей.
  3. Объявляются переменные i, j, n и s, которые будут использоваться в программе.
  4. Объявляются переменные a и b, которые будут представлять собой матрицы размером n x n, заполняемые значениями с помощью цикла.
  5. Выводится сообщение n=, после чего считывается значение переменной n с помощью функции readln.
  6. Запускается цикл, в котором считываются значения элементов матрицы a.
  7. Запускается вложенный цикл, в котором вычисляется значение элемента матрицы b и выводится его значение с помощью функции write.
  8. Проверяется условие, что все элементы матрицы a равны элементам матрицы b. Если это условие выполняется, то выводится сообщение ДА, является симметричной, иначе выводится сообщение НЕТ.
  9. Программа завершается.

Оцени полезность:

13   голосов , оценка 4.538 из 5
Похожие ответы