Структуровані типи даних.Операції над двомірними масивами, Детальна інформація
Структуровані типи даних.Операції над двомірними масивами
for j:=i+1 to n do
begin t:=a[j,i];
if abs(s)
if abs(s)
вироджена');Halt end;
For j:=i to n1 do
begin t:=a[k,j];a[k,j]:=a[i,j];a[i,j]:=t/s;end;
For k:=1 to n do
if k<>i then
For j:=n1 downto 1 do
a[k,j]:=a[k,j]-a[i,j]*a[k,i];end;
For i:=1 to n do
For j:=1 to n do
m[i,j]:=a[i,j+n];
For i:=1 to n do
For j:=1 to n do
For k:=1 to n do
C[i,j]:=C[i,j]+B[k,i]*M[j,k]; {Множення матриці на обернену}
For i:=1 to n do
For j:=1 to n do
writeln(C[i,j]:6:2); {Вивід результату}
End.
Результати:
n=3
1 2 3 1 2 3
M= 4 5 6 B= 4 5 6
7 8 9 7 8 9
1 0 0
C= 0 1 0
0 0 1
begin t:=a[j,i];
if abs(s)
if abs(s)
вироджена');Halt end;
For j:=i to n1 do
begin t:=a[k,j];a[k,j]:=a[i,j];a[i,j]:=t/s;end;
For k:=1 to n do
if k<>i then
For j:=n1 downto 1 do
a[k,j]:=a[k,j]-a[i,j]*a[k,i];end;
For i:=1 to n do
For j:=1 to n do
m[i,j]:=a[i,j+n];
For i:=1 to n do
For j:=1 to n do
For k:=1 to n do
C[i,j]:=C[i,j]+B[k,i]*M[j,k]; {Множення матриці на обернену}
For i:=1 to n do
For j:=1 to n do
writeln(C[i,j]:6:2); {Вивід результату}
End.
Результати:
n=3
1 2 3 1 2 3
M= 4 5 6 B= 4 5 6
7 8 9 7 8 9
1 0 0
C= 0 1 0
0 0 1
The online video editor trusted by teams to make professional video in
minutes
© Referats, Inc · All rights reserved 2021