mult_matrix.pas, Pascal

mult_matrix.pas

program yen_122bis;
const HiRowA  = 4; HiColA=3;HiRowB = 3; HiColB = 2;
type Positive = 1..MaxInt;
     typA     = array[1..HiRowA,1..HiColA] of SmallInt;
     typB     = array[1..HiRowB,1..HiColB] of SmallInt;
     typC     = array[1..HiRowA,1..HiColB] of SmallInt;
var A :	typA;      
    B :	typB;      
    C : typC;
procedure ReadMatrixA(var X : typA);
var Row, Col  : Positive;
 begin
 for Row:=1 to HiRowA do
 for Col:=1 to HiColA do
     Read(X[Row,Col])
     end {read matrix};
procedure WriteMatrixA(var X : typA);
var Row, Col  : Positive;
 begin
 for Row:=1 to HiRowA do
begin			  
 for Col:=1 to HiColA do
    Write(X[Row,Col]:4);
 writeln;
end;
    writeln;
end {write matrix};
procedure ReadMatrixB(var X : typB);
var Row, Col  : Positive;
 begin
 for Row:=1 to HiRowB do
 for Col:=1 to HiColB do
     Read(X[Row,Col])
end {read matrix};
procedure WriteMatrixB(var X : typB);
var Row, Col  : Positive;
 begin
 for Row:=1 to HiRowB do
begin			  
 for Col:=1 to HiColB do
    Write(X[Row,Col]:4);
 writeln;
end;
    writeln;
end {write matrix};
procedure WriteMatrixC(var X : typC);
var Row, Col  : Positive;
 begin
 for Row:=1 to HiRowA do
begin			  
 for Col:=1 to HiColB do
    Write(X[Row,Col]:4);
 writeln;
end;
    writeln;
end {write matrix};
procedure Multiply(var A : typA;var B : typB;var C : typC);
var Sum	 : Integer;
   I,J,K :  Positive;
begin
      for I:=1 to HiRowA do
	 begin
	    for J:= 1 to HiColB do
	    begin Sum:=0;
	       for K:=1 to HiColA do
		  Sum:=Sum+A[I,K]*B[K,J];
	       C[I,J]:=Sum
	    end;   
	 end;   
end;   {Multiply}
begin
   ReadMatrixA(A);
   WriteMatrixA(A);
   ReadMatrixB(B);
   WriteMatrixB(B);
   Multiply(A,B,C);
   WriteMatrixC(C)
end.


run \| edit \| history \| help	0