Является ли заданная целая квадратная матрица шестого порядка симметричной относительно главной диагонали. - Pascal ABC

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

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

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

Решение задачи: «Является ли заданная целая квадратная матрица шестого порядка симметричной относительно главной диагонали.»

textual
Листинг программы
k:=0;
i:=2;
while(i<=n)and(k=0) do
 begin
  j:=1;
  while(j<i)and(k=0) do
  if a[i,j]<>a[j,i] then k:=1
  else inc(j);
  if k=0 then inc(i);
 end;
if k=0 then write('Симметрична')
else write('Не симметрична');

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

  1. Переменная k инициализируется значением 0.
  2. Переменная i устанавливается равной 2.
  3. Запускается цикл while, который выполняется, пока i меньше или равно n (n - это размерность матрицы), и k равно 0.
  4. Внутри цикла while инициализируется переменная j равной 1.
  5. Цикл while повторяется, пока j меньше или равно i, и k равно 0.
  6. Внутри цикла проверяется условие a[i,j] не равно a[j,i]. Если это условие истинно, то значение k устанавливается равным 1. Это означает, что матрица не является симметричной относительно главной диагонали.
  7. Если условие из пункта 6 не выполняется, то значение k устанавливается равным 0. Это означает, что матрица является симметричной относительно главной диагонали.
  8. После завершения внутреннего цикла while значение переменной i увеличивается на 1.
  9. Если значение k равно 0, то выводится строка Симметрична.
  10. Если значение k не равно 0, то выводится строка Не симметрична.

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

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