Симметричные массивы (Pascal)

MudmeN · 27.01.2010, 22:14

Определите, симметрична ли относительно главной диагонали матрица А порядка n, элементы которой являются целыми числами.

помогите решить, очень прошу!!!

Тузик · 28.01.2010, 01:38

Приблизительно так:
признак симметричности = 0;
цикл i =от 1 до N-1
цикл J = от 1 до N-i
если A[i][j] не равен A[ n+1 - j][ n+1 - i]
то
признак симметричности =1;
конец если
конец цикла
конец цикла
если признак симметричности =1
то
матрица не симметрична;
конец если

подкорректируй с учётом языка. Возможны неточности, т.к. на компьютере я не проверял.

sir95 · 10.05.2010, 17:16

А где можно скачать паскаль но нормальный?

27.01.2010, 22:14	#1
MudmeN Неактивный пользователь Регистрация: 14.09.2008 Сообщений: 10 Репутация: 0	Симметричные массивы (Pascal) Определите, симметрична ли относительно главной диагонали матрица А порядка n, элементы которой являются целыми числами. помогите решить, очень прошу!!!

28.01.2010, 01:38	#2
Тузик Новичок Пол: Регистрация: 03.01.2008 Сообщений: 5 Репутация: 1	Re: Симметричные массивы (Pascal) Приблизительно так: признак симметричности = 0; цикл i =от 1 до N-1 цикл J = от 1 до N-i если A[i][j] не равен A[ n+1 - j][ n+1 - i] то признак симметричности =1; конец если конец цикла конец цикла если признак симметричности =1 то матрица не симметрична; конец если подкорректируй с учётом языка. Возможны неточности, т.к. на компьютере я не проверял.

10.05.2010, 17:16	#3
sir95 Неактивный пользователь Пол: Регистрация: 30.04.2009 Сообщений: 15 Репутация: 0	Re: Симметричные массивы (Pascal) А где можно скачать паскаль но нормальный?

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
PASCAL	Алексей М	Моделирование программ	1	27.02.2009 16:52
RAID массивы	Dracula2000	Восстановление данных, бекап, эмуляторы	19	17.02.2009 13:42
Pascal	Fiesta_Life	Delphi	4	01.06.2008 02:11
Pascal	puella	Delphi	5	18.02.2008 18:11
Файл > 2Гб и Pascal	vvnickp	Архив	4	28.11.2006 13:26