Run Code
|
API
|
Code Wall
|
Misc
|
Feedback
|
Login
|
Theme
|
Privacy
|
Patreon
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
число пи с помощью ряда
Programa para calcular digito verificador de un RUT
shift array to left
Random
shift array to left_new
Operaciones 2 grado
digits_count
Area of a Triangle
Huong11a2@
janja - naloga 2 - 9.2.2011