0 / 0 / 0
Регистрация: 25.12.2012
Сообщений: 54
1

Выполнить операции (здесь A, B, C, D — квадратные матрицы порядка n)

26.12.2012, 13:53. Показов 1564. Ответов 1
Метки нет (Все метки)

Author24 — интернет-сервис помощи студентам
(B-C)AD; помогите решить, Спасибо
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
26.12.2012, 13:53
Ответы с готовыми решениями:

Выполнить операции (здесь A, B, C, D — квадратные матрицы порядка n)
помогите как это решить???

В текстовом файле хранятся квадратные целочисленные матрицы порядка n. Преобразовать файл, удалив из каждой матрицы элементы побочной диагонали.
Мне задали задание, но у меня после сессии голова не работает Если кому не трудно решите , очень...

Даны две целые квадратные матрицы C и T порядка n
Помогите плиз, очень надо сдать лабу чтобы закрыть сетку, а я не понимаю :wall::sorry: :( очень...

Даны квадратные матрицы А, В и С порядка n. Получить матрицу (A+B)C
Даны квадратные матрицы А, В и С порядка n. Получить матрицу (A+B)C

1
Почетный модератор
64301 / 47596 / 32743
Регистрация: 18.05.2008
Сообщений: 115,181
26.12.2012, 14:07 2
Лучший ответ Сообщение было отмечено Зануда как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
uses crt;
const nmax=5;
var n:byte;
type matr=array[1..nmax,1..nmax] of integer;
procedure Vvod(var mt:matr);
var i,j:byte;
begin
for i:=1 to n do
for j:=1 to n do
mt[i,j]:=random(10);
end;
 
procedure Vyvod(mt:matr;k:byte;c:string);
var i,j:byte;
begin
writeln(c,':');
for i:=1 to n do
 begin
  for j:=1 to n do
  write(mt[i,j]:k);
  writeln;
 end;
end;
 
procedure UmnMatr(m1,m2:matr;var m:matr);
var i,j,k:byte;
begin
for k:=1 to n do
for j:=1 to n do
  begin
   m[k,j]:=0;
   for i:=1 to n do
   m[k,j]:=m[k,j]+m1[k,i]*m2[i,j];
  end;
end;
 
procedure RazMatr(m1,m2:matr;var m:matr);
var i,j:byte;
begin
for i:=1 to n do
for j:=1 to n do
m[i,j]:=m1[i,j]-m2[i,j];
end;
 
var a,b,c,d,b1,b2,b3:matr;
begin
randomize;
repeat
write('Размер матриц до ',nmax,' n=');
read(n);
until n in [1..nmax];
Vvod(a);
Vvod(b);
Vvod(c);
Vvod(d);
Vyvod(a,4,'Matrica A');{исходная А}
Vyvod(b,4,'Matrica B');{исходная B}
Vyvod(c,4,'Matrica C');{исходная C}
Vyvod(d,4,'Matrica D');{исходная D}
write('Нажмите Enter для продолжения');
readln;
RazMatr(b,c,b1); {B-C}
UmnMatr(b1,a,b2);{B1*A}
UmnMatr(b2,d,b3);{B2*D}
Vyvod(b3,6,'Matrica B3=(B-C)*A*D');
end.
0
26.12.2012, 14:07
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
26.12.2012, 14:07
Помогаю со студенческими работами здесь

Даны натуральное число р и вещественные квадратные матрицы A, B и C 4-го порядка. Получить (ABC)^p.
Даны натуральное число р и вещественные квадратные матрицы A, B и C 4-го порядка. Получить (ABC)^p.

Даны три квадратные матрицы А,В,С n-ого порядка.Вывести на печать ту из них норма которой наибольшая
Здравствуйте помогите пожалуйста:cry::cry: Даны три квадратные матрицы А,В,С n-ого...

Даны две действительные квадратные матрицы порядка n. Получить новую матрицу: а) умножением элементов каждой строки первой матрицы на наибольш
Даны две действительные квадратные матрицы порядка n. Получить новую матрицу: а) умножением...

1)Даны две действительные квадратные матрицы порядка n. Получить новую матрицу : А) умножение элементов каждой строки первой матрицы на наибольшее из
1)Даны две действительные квадратные матрицы порядка n. Получить новую матрицу : А) умножение...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2024, CyberForum.ru