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

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

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

> Вычисление следа матрицы.
Len
сообщение 10.04.2005 20:12
Сообщение #1


Новичок
*

Группа: Пользователи
Сообщений: 20
Пол: Женский

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


Вычисление следа матрицы. След - это диагональные элементы матрицы. Матрица должна быть квадратная.
# 3 на 3
При запросе количества строк и столбцов вводить одно число.
n=m
Заполняем матрицу. Вывели на печать матрицу построчно и поэлементно.
Расстояние и по горизонтали и по вертикали одинаковое.
После вывода матрицы на печать, должен быть вопрос: сумму какого следа вы хотите посчитать?

Вот эта программа, ее делал Олег, но тут сразу вычисляется след матрицы и нет вопроса: сумму какого следа нужно посчитать.
Пожалуйста, кто-нибудь доделайте ее:

Код


Program massiv;
uses crt;
var
a:array[1..50,1..50]of real;
i,j,n:integer;
sled:real;
begin
clrscr;
write('Введите размерность матрицы: '); readln(n);
for i:=1 to n do for j:=1 to n do
begin
 write('Введите ',j,' элемент ',i,' строки');
 readln(a[i,j])
end;
For i:=1 to n do
begin
 for j:=1 to n do write(a[i,j]:4:0);
 writeln
end; sled:=0;
for i:=1 to n do sled:=sled+a[i,i];
writeln('След матрицы = ', sled:1:1);
end.
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
 
 Ответить  Открыть новую тему 
Ответов(1 - 9)
volvo
сообщение 10.04.2005 20:46
Сообщение #2


Гость






Len,
все совершенно правильно. Не надо ничего придумывать, по определению "Следом" матрицы A (он же Trace A, он же Spur A) называется сумма элементов, расположенных на главной диагонали. Никакого "другого" следа у матрицы нет, и быть не может. Откройте справочник по математике и убедитесь...
 К началу страницы 
+ Ответить 
Len
сообщение 11.04.2005 13:31
Сообщение #3


Новичок
*

Группа: Пользователи
Сообщений: 20
Пол: Женский

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


Мне Олег тоже самое писал: определение следа матрицы, про главную диагональ, что никакого больше следа нет. Но я же не могу переспорить нашу информатичку. Нам так сказали, я еще попробую переспросить, если меня не пошлют подальше. Но пока что, можете сделать, как она просила?
Пожалуйста. :molitva:
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
volvo
сообщение 11.04.2005 13:43
Сообщение #4


Гость






Я могу сделать, но это будет неверно логически, поэтому делать этого я не буду.
 К началу страницы 
+ Ответить 
klem4
сообщение 11.04.2005 15:48
Сообщение #5


Perl. Just code it!
******

Группа: Модераторы
Сообщений: 4 100
Пол: Мужской
Реальное имя: Андрей

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


Возможно еще имеется в виду сумма элементов, находящихся на "побочной" диагонали ? (справа на лево)
Код
for i:=1 to n do
  s:=s+x[i,n-i+1];


Сообщение отредактировано: klem4 - 11.04.2005 16:08


--------------------
perl -e 'print for (map{chr(hex)}("4861707079204E6577205965617221"=~/(.{2})/g)), "\n";'
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
volvo
сообщение 11.04.2005 16:10
Сообщение #6


Гость






Цитата(klem4 @ 11.04.05 15:48)
Возможно еще имеется в виду сумма элементов, находящихся на "побочной" диагонали ?
Вполне возможно, но какое отношение эта сумма имеет к "следу" матрицы ??
 К началу страницы 
+ Ответить 
klem4
сообщение 11.04.2005 16:13
Сообщение #7


Perl. Just code it!
******

Группа: Модераторы
Сообщений: 4 100
Пол: Мужской
Реальное имя: Андрей

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


хех, не знаю, но раз суммы элементов на главной диагонали мало ... может препод вдруг подумал что следа в матрице два?? lol.gif и это второй тогда будет :P

Сообщение отредактировано: klem4 - 11.04.2005 16:14


--------------------
perl -e 'print for (map{chr(hex)}("4861707079204E6577205965617221"=~/(.{2})/g)), "\n";'
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
Len
сообщение 13.04.2005 13:38
Сообщение #8


Новичок
*

Группа: Пользователи
Сообщений: 20
Пол: Женский

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


Сегодня все уточнила у информатини. Вот условия этой программы:

Сообщение отредактировано: volvo - 13.04.2005 13:44


Эскизы прикрепленных изображений
Прикрепленное изображение
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
Len
сообщение 13.04.2005 18:03
Сообщение #9


Новичок
*

Группа: Пользователи
Сообщений: 20
Пол: Женский

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


тогда такой вопрос: если, как вы говорите "главная диагональ" вычисляется по формуле
Код
for i:=1 to n do sled:=sled+a[i,i];

то по какой формуле вычисляется другая диагональ?
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
volvo
сообщение 13.04.2005 18:09
Сообщение #10


Гость






Цитата(Len @ 13.04.05 18:03)
по какой формуле вычисляется другая диагональ?

А просмотреть предыдущие посты (в частности №5) нельзя было? angry.gif
 К началу страницы 
+ Ответить 

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

 



- Текстовая версия 20.07.2025 10:39
Хостинг предоставлен компанией "Веб Сервис Центр" при поддержке компании "ДокЛаб"