IPB
ЛогинПароль:

> Прочтите прежде чем задавать вопрос!

1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [code=pas] ... [/code], либо быть опубликованы на нашем PasteBin в режиме вечного хранения.
3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора).
5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
6. Одна тема - один вопрос (задача)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
8. Спрашивайте и отвечайте четко и по существу!!!

> Транспонировать матрицу
сообщение
Сообщение #1





Группа: Пользователи
Сообщений: 7
Пол: Женский
Реальное имя: Ольга

Репутация: -  0  +


Транспонировать матрицу A=(d(ij))^m*m, где m<=10. Проверить является ли она симметричной, если да, то переменной Q присвоить 1, в противном случае - 0.

||0,5 1 2||
A= ||1 3,2 1||
||2 1 0,5||

Квадратная матрица называется симметричной матрицей, если ее элементы, симметричные относительно главной диагонали, равны между собой, т.е. aij = aji для всех i, j.
Матрица является симметричной, если она совпадает со своей транспонированной матрицей (т.е. A = A'). Другими словами, нижний треугольник квадратной матрицы является "зеркальным отражением" верхнего треугольника.
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 

Сообщений в этой теме
lacomca   Транспонировать матрицу   28.03.2006 14:24
Ozzя   http://forum.pascal.net.ru/index.php?s=&sh...indpo…   28.03.2006 14:41
lacomca   Спасибо за изящное решение. Но я только на первом …   28.03.2006 14:43
Ozzя   Спасибо за изящное решение. Но я только на первом …   28.03.2006 14:50
мисс_граффити   Зачем нам целая вспомогательная матрица? procedur…   28.03.2006 20:31
lacomca   составить програму под эту задачу через процедуры.…   1.04.2006 20:14
volvo   Просто у тебя изменения в матрицах НЕ передаются в…   1.04.2006 20:26
lacomca   если я опишу simmetria через функцию там надо буде…   1.04.2006 20:28
volvo   Вместо simmetria(a,at,m1,q); simmetria(b,bt,m2,q);…   1.04.2006 20:36
lacomca   спасибо большое. я просто еще ни разу не записывал…   1.04.2006 20:39
volvo   function simmetria (z,y:matr; m:integer): integer;…   1.04.2006 20:41
lacomca   с функцией все получилось, спасибо. но, видимо, са…   1.04.2006 20:48
volvo   Ты сделала то, что я сказал в посте №7 с процедура…   1.04.2006 20:55
lacomca   :good: спасибо большое все заработало.не увидела п…   1.04.2006 21:00


 Ответить  Открыть новую тему 
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0

 





- Текстовая версия 25.04.2024 8:15
500Gb HDD, 6Gb RAM, 2 Cores, 7 EUR в месяц — такие хостинги правда бывают
Связь с администрацией: bu_gen в домене octagram.name