С наступающим Новым годом! Форум программистов, компьютерный форум, киберфорум
Наши страницы
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.60/5: Рейтинг темы: голосов - 5, средняя оценка - 4.60
Beauty_Girl
0 / 0 / 0
Регистрация: 06.02.2012
Сообщений: 17
1

Для квадратных матриц А, В и С одинаковой размерности найти матрицу D

06.02.2012, 21:33. Просмотров 880. Ответов 1
Метки нет (Все метки)

для квадратных матриц А,В и С одинаковой размерности найти матрицу D. Организовать проверку работы программы с помощью текстового набора, правильность которого проверить вручную непосредственными матричными вычислениями.
D=3(C-B)^T+AC
решить через процедуры
0
Лучшие ответы (1)
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
06.02.2012, 21:33
Ответы с готовыми решениями:

Для квадратных матриц a, b, c одинаковой размерности найти матрицу d
для квадратных матриц a,b,c одинаковой размерности. найти матрицу d. d=a(c^T-B)+2A-B

Для квадратных матриц а, b, c одинаковой размерности. Найти матрицу d
для квадратных матриц а,b,c одинаковой размерности . найти матрицу d/ Program mas; Uses crt;...

Для квадратных матриц A,B и С одинаковой размерности найти матрицу D
Для квадратных матриц A,B и С одинаковой размерности найти матрицу D.Организовать проверку работы...

Для квадратных матриц А, В, С одинаковой размерности найти матрицу D
Ребят, помогите, пожалуйста!!! Для квадратных матриц А, В, С одинаковой размерности найти...

Для квадратных матриц a,b,c ,одинаковой размерности,найти матрицу D
Для квадратных матриц a,b,c ,одинаковой размерности,найти матрицу D. (Важное Условие задача...

1
Puporev
Модератор
55483 / 42582 / 29431
Регистрация: 18.05.2008
Сообщений: 100,738
07.02.2012, 09:59 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
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
uses crt;
const nmax=10;
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;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]:4);
    writeln;
  end;
end;
procedure Trans(m:matr;var m1:matr);
var i,j:byte;
begin
for i:=1 to n do
for j:=1 to n do
m1[i,j]:=m[j,i];
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 UmnSc(m1:matr;s:integer;var m2:matr);
var i,j:byte;
begin
for i:=1 to n do
for j:=1 to n do
m2[i,j]:=m1[i,j]*s;
end;
 
procedure SumMatr(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;
 
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,c1,ct,c2,a1:matr;
begin
clrscr;
randomize;
repeat
write('Размер матриц до ',nmax,' n=');
readln(n);
until n in [1..nmax];
Vvod(a);
Vvod(b);
Vvod(c);
Vyvod(a,'Matrica A');{исходная А}
Vyvod(b,'Matrica B');{исходная B}
Vyvod(c,'Matrica C');{исходная B}
RazMatr(c,b,c1); {C-B}
Trans(c1,ct);{(С-B)^t}
UmnSc(ct,3,c2);{3*(С-B)^t}
UmnMatr(a,a,a1);{A*C}
SumMatr(c2,a1,d);
Vyvod(d,'Matrica D=3(C-B)^t+AC');
readln
end.
1
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
07.02.2012, 09:59

Для квадратной матриц a, b, c, одинаковой размерности, найти матрицу D
Господа,помогите пожалуйста мне с заданием. "Для квадратной матриц a,b,c,одинаковой...

Для квадратной матрицы a,b,c одинаковой размерности найти матрицу d (D=AC+3(-A+B)^t+B))
Для квадратной матрицы a,b,c одинаковой размерности найти матрицу d. Организовать проверку работы...

Для квадратной матрицы a, b, c одинаковой размерности найти матрицу d
Для квадратной матрицы a,b,c одинаковой размерности найти матрицу d. Организовать проверку работы...


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

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

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru