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
117
118
119
120
121
122
123
124
125
| Program n4_3;
Uses Crt;
Var
A:array[1..10,1..10] of integer;
B:array[1..10,1..10] of integer;
C:array[1..10,1..10] of integer;
D,AC,Z:array[1..10,1..10] of integer;
U:array[1..10,1..10] of integer;
i,p,x,e,l,j,n,m,g,k : integer;
begin
clrscr;
Writeln ('**** Введите размер квадратной матрицы **** - ');
Read(n);
textcolor(green);
Writeln('**** 1-ручной способ ****. ');
Writeln('**** 2-с помощью генератора случайных чисел ****. ');
Write ('**** Выберите способ формирования **** : ');
Readln (e);
Case e of
1: begin
Writeln ('Сформируйте матрицу "A". ');
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 ('Сформируйте квадратную матрицу С');
for i:=1 to n do
for j:=1 to n do read (c[i,j]);
end;
2: begin
Randomize;
Writeln;
Writeln ('Сформируйте квадратную матрицу А');
for i:=1 to n do
for j:=1 to n do a[i,j]:=random (10);
Writeln ('Сформируйте квадратную матрицу В');
for i:=1 to n do
for j:=1 to n do b[i,j]:=random (10);
Writeln ('Сформируйте квадратную матрицу С');
for i:=1 to n do
for j:=1 to n do c[i,j]:=random (10);
end;
end;
textcolor(white);
Writeln ('@@@@ Матрица "A"@@@@');
for i:=1 to n do begin
for j:= 1 to n do write(a[i,j]:6);
writeln;
end;
textcolor(blue);
Writeln ('@@@@ Матрица "B"@@@@');
for i:=1 to n do begin
for j:= 1 to n do write(b[i,j]:6);
writeln;
end;
textcolor(red);
Writeln ('@@@@ Матрица "C"@@@@');
for i:=1 to n do begin
for j:= 1 to n do write(c[i,j]:6);
writeln;
end;
For i:=1 to n do
for j:=1 to n do begin
U[i,j]:=0;
for p:=1 to n do begin
U[i,j]:=u[i,j]+a[i,p]*c[p,j];
end;
end;
Writeln;
textcolor(brown);
Writeln ('@@@@ Mатрица B-3A @@@@. ');
for i:=1 to n do begin
for j:=1 to n do begin
Z[i,j]:=b[i,j]-3*A[i,j];
Write(Z[i,j]:6);
end;
Writeln;
end;
For i:=2 to n do
For j:=1 to i-1 do begin
x:=c[i,j];
c[i,j]:=c[j,i];
c[j,i]:=x;
end;
textcolor(green);
Writeln('@@@@ Матрица транспонированная "C"@@@@. ');
For i:=1 to n do
For j:=i+1 to n do
begin
l:=c[i,j];
c[i,j]:=c[j,i];
c[j,i]:=l;
end;
Writeln;
For i:=1 to n do begin
For j:=1 to n do begin
Write(c[j,i]:6);
end;
Writeln;
end;
textcolor(blue);
Writeln ('@@@@ Матрица 4AC @@@@. ');
For i:=1 to n do begin
For j:=1 to n do begin
AC[i,j]:=0;
For k:=1 to n do
AC[i,j]:=AC[i,j]+a[i,k]*c[k,j];
AC[i,j]:=4*AC[i,j];
Write(AC[i,j]:6);
end;
Writeln;
end;
textcolor(yellow);
writeln ('@@@@ Полученная матрица "D" @@@@. ');
For i:=1 to n do begin
For j:=1 to n do begin
d[i,j]:=Z[i,j]+AC[i,j];
Write(d[i,j]:6);
end;
Writeln;
end;
readkey;
end. |
(
