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

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

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

 
 Ответить  Открыть новую тему 
> Вычисление следа матрицы.
сообщение
Сообщение #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 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #2


Гость






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


Новичок
*

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

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


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


Гость






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


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

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

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


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


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


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


Гость






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


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

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

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


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

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


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


Новичок
*

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

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


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

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


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


Новичок
*

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

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


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

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


Гость






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

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

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

 





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