Структуровані типи даних. Операції над двомірними масивами, Детальна інформація
Структуровані типи даних. Операції над двомірними масивами
рrgram dob_mas;
Const dim1=30;
dim2=40;
dim3=30;
Type ar1=array[1..dim2,1..dim1] of real;
ar2=array[1..dim3,1..dim2] of real;
ar3=array[1..dim1,1..dim3] of real;
Var i,j,k,l,n,m:integer;
A:ar1;
B:ar2;
C:ar3;
Begin
write('Введіть розмірність матриці М');
readln(n,m,l);
write('Введіть матрицю А');
For i:=1 to n do
For j:=1 to m do
read(A[i,j]);
write('Введіть матрицю В');
For i:=1 to l do
For j:=1 to n do
read(B[i,j]);
For i:=1 to m do
For j:=1 to l do
For k:=1 to n do
C[i,j]:=C[i,j]+A[k,i]*B[j,k];
For i:=1 to m do
For j:=1 to l do
writeln(C[i,j]);
End.
Const dim1=30;
dim2=40;
dim3=30;
Type ar1=array[1..dim2,1..dim1] of real;
ar2=array[1..dim3,1..dim2] of real;
ar3=array[1..dim1,1..dim3] of real;
Var i,j,k,l,n,m:integer;
A:ar1;
B:ar2;
C:ar3;
Begin
write('Введіть розмірність матриці М');
readln(n,m,l);
write('Введіть матрицю А');
For i:=1 to n do
For j:=1 to m do
read(A[i,j]);
write('Введіть матрицю В');
For i:=1 to l do
For j:=1 to n do
read(B[i,j]);
For i:=1 to m do
For j:=1 to l do
For k:=1 to n do
C[i,j]:=C[i,j]+A[k,i]*B[j,k];
For i:=1 to m do
For j:=1 to l do
writeln(C[i,j]);
End.
The online video editor trusted by teams to make professional video in
minutes
© Referats, Inc · All rights reserved 2021