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

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

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

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

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

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

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

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

1
Почетный модератор
64069 / 47481 / 32732
Регистрация: 18.05.2008
Сообщений: 115,185
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
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
07.02.2012, 09:59

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

Для квадратной матриц 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. Организовать проверку работы...

Программа перемножает два квадратных массива одинаковой размерности
Программа перемножает два квадратных массива одинаковой размерности, считанных из двух файлов. В...

Программа перемножает два квадратных массива одинаковой размерности, считанных из двух файлов
4. Программа перемножает два квадратных массива одинаковой размерности, считанных из двух файлов. В...


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

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

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