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