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

@ReD-1994 · Регистрация: 23.01.2012

Студворк — интернет-сервис помощи студентам

Ребят, помогите, пожалуйста!!!

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

D=AC^t - 2B+A , где t-транспонирование матрицы.

@Puporev · 24.01.2012, 15:45

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

@ReD-1994 · 24.01.2012, 21:48 **[ТС]**

Ясно... спасибо)

@ReD-1994 · 09.02.2012, 08:36 **[ТС]**

Для квадратных матриц А, В, С одинаковой размерности найти матрицу D.
D=A-2*b+A*C^t , где t-транспонирование матриц
Задачу то я решил... Можете переделать эту же задачу с помощью процедур?

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
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
Uses crt;
Var
 A, B, C, D, BC, Z, Ct: array [1..10, 1..10] of integer;
 i, p, x, e, l, j, n, m, g, k: integer;
Begin
 Clrscr;
 Writeln ('Введите размер квадратной матрицы:');
 Read (n);
 Writeln ('*Выберите способ формирования*');
 Writeln ('*1 - ручной способ*');
 Writeln ('*2 - с помощью генератора случайных чисел*');
 Readln (e);
 Case e of
 1: begin
 Writeln ('Сформируйте матрицу А:');
 Writeln ('Сформируйте квадратную матрицу А:');
 For i:=1 to n do
 For j:=1 to n do
 Read (A[i,j]);
 Writeln ('Сформируйте квадратную матрицу В:');
 For i:=1 to n do
 For j:=1 to n do
 Read (B[i,j]);
 Writeln ('Сформируйте квадратную матрицу C:');
 For i:=1 to n do
 For j:=1 to n do
 Read (C[i,j]);
    end;
 2: begin
 Randomize;
 Writeln;
 Writeln ('Сформируйте квадратную матрицу A:');
 For i:=1 to n do
 For j:=1 to n do
 A[i,j]:=random(10);
 Writeln ('Сформируйте квадратную матрицу B:');
 For i:=1 to n do
 For j:=1 to n do
 B[i,j]:=random(10);
 Writeln ('Сформируйте квадратную матрицу C:');
 For i:=1 to n do
 For j:=1 to n do
 C[i,j]:=random(10);
    end;
    end;
 Writeln ('Матрица А:');
 For i:=1 to n do
  begin
  For j:=1 to n do
  Write (A[i,j]:6);
  Writeln;
  end;
 Writeln ('Матрица В:');
 For i:=1 to n do
  begin
  For j:=1 to n do
  Write (B[i,j]:6);
  Writeln;
  end;
 Writeln ('Матрица С:');
 For i:=1 to n do
  begin
  For j:=1 to n do
  Write (C[i,j]:6);
  Writeln;
  end;
 Writeln;
 Writeln ('Матрица А-2*B');
 For i:=1 to n do
  begin
  For j:=1 to n do
   begin
   Z[i,j]:=A[i,j]-2*B[i,j];
   Write (Z[i,j]:6);
   end;
  Writeln;
  end;
 Writeln ('Матрица транспонированная С');
 For i:=1 to n do
 For j:=1 to n do
  begin
  Ct[i,j]:=C[j,i];
  end;
 Writeln;
 For i:=1 to n do
  begin
  For j:=1 to n do
   begin
   Write (Ct[i,j]:6);
   end;
  Writeln;
  end;
 Writeln ('Матрица A*C^t');
 For i:=1 to n do
  begin
  For j:=1 to n do
   begin
   BC[i,j]:=0;
   For k:=1 to n do
   BC[i,j]:=BC[i,j]+A[i,k]*Ct[k,j];
   Write (BC[i,j]:6);
   end;
  Writeln;
  end;
 Writeln ('Полученная матрица  D=A-2*B+A*C^t');
 For i:=1 to n do
  begin
  For j:=1 to n do
   begin
   D[i,j]:=Z[i,j]+BC[i,j];
   Write (D[i,j]:6);
   end;
  Writeln;
  end;
 Readkey;
End.

Заранее спасибо)

Добавлено через 14 часов 1 минуту
Помогите, пожалуйста)

@Puporev · 09.02.2012, 11:46

В каком хоть Паскале пишете? А то read() вроде АВС, а clrscr, readkey вроде Турбо.

Добавлено через 30 минут

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
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
Uses crt;
type matr=array [1..10, 1..10] of integer;
var n,e:integer; //глобальные переменные размер и способ ввода
procedure Vybor;
begin
repeat
writeln ('Введите размер квадратной матрицы:');
readln(n);
until n in [1..10];
writeln ('*Выберите способ формирования*');
writeln ('*1 - ввод с клавиатуры*');
writeln ('*2 - с помощью генератора случайных чисел*');
repeat
readln(e);
until e in [1,2];
end;
procedure Vvod(var a:matr;c:char);
var i,j:integer;
begin
case e of
1:begin
   writeln ('Сформируйте квадратную матрицу ',c);
   for i:=1 to n do
   for j:=1 to n do
   readln(a[i,j]);
   clrscr;
  end;
2:begin
   for i:=1 to n do
   for j:=1 to n do
   a[i,j]:=random(10);
  end;
end;
end;
procedure Vyvod(a:matr;s:string);
var i,j:integer;
begin
writeln('Матрица ',s);
for i:=1 to n do
 begin
  for j:=1 to n do
  write(a[i,j]:4);
  writeln;
 end;
writeln;
write('Нажмите Enter для продолжения');//все на экран не войдет
readln; //поэтому с задержками
end;
procedure UmnScl(var a:matr;k:integer);
var i,j:integer;
begin
for i:=1 to n do
for j:=1 to n do
a[i,j]:=a[i,j]*k;
end;
procedure Razn(a,b:matr;var c:matr);
var i,j:byte;
begin
for i:=1 to n do
for j:=1 to n do
c[i,j]:=a[i,j]-b[i,j];
end;
procedure Summa(a,b:matr;var c:matr);
var i,j:byte;
begin
for i:=1 to n do
for j:=1 to n do
c[i,j]:=a[i,j]+b[i,j];
end;
procedure Trans(var a:matr);
var i,j,x:integer;
begin
for i:=2 to n do
for j:=1 to i-1 do
 begin
  x:=a[i,j];
  a[i,j]:=a[j,i];
  a[j,i]:=x;
 end;
end;
procedure UmnMtr(a,b:matr; var c:matr);
var i,j,k:integer;
begin
for i:=1 to n do
for j:=1 to n do
 begin
  c[i,j]:=0;
  for k:=1 to n do
  c[i,j]:=c[i,j]+a[i,k]*b[k,j];
 end;
end;
 
var A, B, C, D, BC, Z: matr;
begin
clrscr;
Vybor;
Vvod(A,'A');
Vvod(B,'B');
Vvod(C,'C');
clrscr;
Vyvod(A,'A');
Vyvod(B,'B');
Vyvod(C,'C');
UmnScl(B,2);
Razn(A,B,Z);
Vyvod(Z,'А-2*B');
Trans(C);
Vyvod(C,' транспонированная С');
UmnMtr(A,C,BC);
Vyvod(BC,'A*C^t');
Summa(Z,BC,D);
Vyvod(D,'D=A-2*B+A*C^t');
end.

Новые блоги и статьи Все статьи Все блоги /
Модульный подход на примере F# DevAlt 06.03.2026 В блоге дяди Боба наткнулся на такое определение: В этой книге («Подход, основанный на вариантах использования») Ивар утверждает, что архитектура программного обеспечения — это структуры,. . .	Управление камерой с помощью скрипта OrbitControls.js на Three.js: Вращение, зум и панорамирование 8Observer8 05.03.2026 Содержание блога Финальная демка в браузере работает на Desktop и мобильных браузерах. Итоговый код: orbit-controls-threejs-js. zip. Сканируйте QR-код на мобильном. Вращайте камеру одним пальцем,. . .	SDL3 для Web (WebAssembly): Синхронизация спрайтов SDL3 и тел Box2D 8Observer8 04.03.2026 Содержание блога Финальная демка в браузере. Итоговый код: finish-sync-physics-sprites-sdl3-c. zip На первой гифке отладочные линии отключены, а на второй включены:. . .	SDL3 для Web (WebAssembly): Идентификация объектов на Box2D v3 - использование userData и событий коллизий 8Observer8 02.03.2026 Содержание блога Финальная демка в браузере. Итоговый код: finish-collision-events-sdl3-c. zip Сканируйте QR-код на мобильном и вы увидите, что появится джойстик для управления главным героем. . . .
Реалии Hrethgir 01.03.2026 Нет, я не закончил до сих пор симулятор. Эта задача сложнее. Не получилось уйти в плавсостав, но оно и к лучшему, возможно. Точнее получалось - но сварщиком в палубную команду, а это значит, в моём. . .	Ритм жизни kumehtar 27.02.2026 Иногда приходится жить в ритме, где дел становится всё больше, а вовлечения в происходящее — всё меньше. Плотный график не даёт вниманию закрепиться ни на одном событии. Утро начинается с быстрых,. . .	SDL3 для Web (WebAssembly): Сборка библиотек: SDL3, Box2D, FreeType, SDL3_ttf, SDL3_mixer и SDL3_image из исходников с помощью CMake и Emscripten 8Observer8 27.02.2026 Недавно вышла версия 3. 4. 2 библиотеки SDL3. На странице официальной релиза доступны исходники, готовые DLL (для x86, x64, arm64), а также библиотеки для разработки под Android, MinGW и Visual Studio. . . .	SDL3 для Web (WebAssembly): Реализация движения на Box2D v3 - трение и коллизии с повёрнутыми стенами 8Observer8 20.02.2026 Содержание блога Box2D позволяет легко создать главного героя, который не проходит сквозь стены и перемещается с заданным трением о препятствия, которые можно располагать под углом, как верхнее. . .

@ReD-1994 0 / 0 / 0 Регистрация: 23.01.2012 Сообщений: 31

	Для квадратных матриц А, В, С одинаковой размерности найти матрицу D 24.01.2012, 14:24. Показов 1189. Ответов 4 Метки нет (Все метки) Ребят, помогите, пожалуйста!!! Для квадратных матриц А, В, С одинаковой размерности найти матрицу D. Организовать проверку работы программы с помощью текстового набора, правильность которого проверить вручную непосредственными матричными вычислениями. D=AC^t - 2B+A , где t-транспонирование матрицы. 0

@Puporev Почетный модератор 64315 / 47611 / 32743 Регистрация: 18.05.2008 Сообщений: 115,167
	24.01.2012, 15:45
	Посмотрите эту тему и переделайте под свое. Писать каждому влом. Для квадратной матриц a, b, c, одинаковой размерности, найти матрицу D 0

@ReD-1994 0 / 0 / 0 Регистрация: 23.01.2012 Сообщений: 31
	24.01.2012, 21:48 [ТС]
	Ясно... спасибо) 0