|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
22.12.2006, 00:12 | #1 |
Новичок
Джуниор
Регистрация: 22.12.2006
Сообщений: 2
|
help!!! работа с матрицами
Народ, не хочу наглеть, но нужна помощь. может кто-то решал такую задачу:"Даны матрицы А(m*m) и В(m*m) вычислить выражение (А-В)*В-5*А*В"
ЗАРАНЕЕ БЛАГОДАРЕН!!! |
22.12.2006, 08:20 | #2 |
Владимир М.
Участник клуба
Регистрация: 30.10.2006
Сообщений: 1,289
|
две ооперации:
вычитание матриц умножение матриц
Берегите друг друга!
|
04.01.2007, 19:34 | #3 |
Новичок
Джуниор
Регистрация: 22.12.2006
Сообщений: 2
|
мое решение
сам ее давно решил, забыл написать. вот листинг. мож кому пригодится
uses crt; type t=array[1..10,1..10] of integer; var a,b,c,d:t; i,j:byte; n:integer; procedure summa(a,b:t; var c:t; n:integer); var i,j:integer; begin for i:=1 to n do for j:=1 to n do c[i,j]:=a[i,j]+b[i,j]; end; procedure raznost(a,b:t; var c:t; n:integer); var i,j:integer; begin for i:=1 to n do for j:=1 to n do c[i,j]:=a[i,j]-b[i,j]; end; procedure umnog(a,b:t; var c:t; n:integer); var i,j:integer; begin for i:=1 to n do for j:=1 to n do c[i,j]:=a[i,j]*b[i,j]; end; procedure mnog(var c:t; n,k:integer); var i,j:integer; begin for i:=1 to n do for j:=1 to n do c[i,j]:=n*c[i,j]; end; begin clrscr; randomize; writeln('Vvedite rang matric n='); readln(n); writeln('MATRICA A'); for i:=1 to n do for j:=1 to n do a[i,j]:=-5+random(30); for i:=1 to n do begin for j:=1 to n do write(' ',a[i,j]:3); writeln; end; writeln('MATRICA B'); for i:=1 to n do for j:=1 to n do b[i,j]:=-5+random(30); for i:=1 to n do begin for j:=1 to n do write(' ',b[i,j]:3); writeln; end; for i:=1 to n do for j:=1 to n do c[i,j]:=0; raznost(a,b,c,n); umnog(c,b,c,n); umnog(a,b,d,n); mnog(a,n,5); summa(c,d,c,n); writeln('MATRICA C'); for i:=1 to n do begin for j:=1 to n do write(' ',c[i,j]:3); writeln; end; readln; end. З.Ы. правильность не гарантирую. |
04.01.2007, 20:08 | #4 | |
Delphi/C++/C#
Участник клуба
Регистрация: 29.10.2006
Сообщений: 1,972
|
Цитата:
Получается A*B=B*A? - это неверно! |
|
08.01.2007, 15:54 | #5 |
Пользователь
Регистрация: 08.12.2006
Сообщений: 36
|
Вот процедура перемножения двух матриц:
Код:
но легко переделать на матрици A[k, m]*B[m, l], где k,m,l-челые числа >0
Знание этого – Мудрость.
Умение этим пользоваться – Искусство. |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Работа с матрицами в паскале | Andris | Помощь студентам | 7 | 29.05.2009 21:56 |
Работа с матрицами. Массивы. | Xeon332 | Помощь студентам | 9 | 16.01.2008 21:03 |
Поблема с матрицами | Ilius | Помощь студентам | 13 | 18.12.2007 19:27 |
Задачка с матрицами на С | urgu_st | Помощь студентам | 4 | 02.11.2007 17:44 |