Опять же матрица

Mymindismy

Дата: Воскресенье, 23.11.2008, 21:15 | Сообщение # 1

Знакомый

Группа: Пользователи

Сообщений: 16

Репутация: 0

Замечания: 20%

Статус: Offline

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

Seqular

Дата: Воскресенье, 23.11.2008, 21:35 | Сообщение # 2

Хранитель

Группа: Администраторы

Сообщений: 859

Репутация: 35

Статус: Offline

Mymindismy, Ну тут тоже просто.
В цикле сравнивать элементы попарно. Заводишь флаг.

Code

For i := 2 to n do
      for j := 1 to i-1 do
           If (a[i,j] <> a[j,i]) then
              Begin
              flag := True;
              Break;
              End;

Потом смотришь флаг, если выставлен, значит НЕсимметрична.
Вроде с индексами не напутал

Поддерживаю также проект сообщество молодых сисадминов

		Пятница, 24.01.2025
	Pascal 4 All