Program Perkalian Matriks dengan Pascal

Program perkalian matrik 2x3 dengan 3x4 yang menghasilkan matrik 2X4. Berikut codingnya:

Program perkalian_matrik;
uses wincrt;
const
  Amatrik23 : array [1..2, 1..3] of integer = ((2,3,1),(1,4,1));
  Bmatrik34 : array [1..3, 1..4] of integer = ((3,2,5,2),(2,1,1,4),(3,6,2,1));
var
  Cmatrik24 : array [1..2, 1..4] of integer;
  i,j,k : integer;
begin
  clrscr;
  for i := 1 to 2 do
  begin
    for j := 1 to 3 do
    begin
      write(Amatrik23[i,j]:3);
    end;
    writeln;
  end;

  for j := 1 to 3 do
  begin
    for k := 1 to 4 do
    begin
      writeln;
      write(Bmatrik34[j,k]:4);
    end;
    writeln;
  end;

  for i := 1 to 2 do
  begin
    for k := 1 to 4 do
    begin
      Cmatrik24[i,k]:=0;
      for j := 1 to 3 do
      begin 
        Cmatrik24[i,k] := Cmatrik24[i,k] + Amatrik23[i,j] * Bmatrik34[j,k];
      end;
    end;
  end;

  writeln;
  writeln('Hasil Perkalian Matrik');
  for i := 1 to 2 do
  begin
    for k := 1 to 4 do
    write(Cmatrik24[i,k]:4);
    writeln;
  end;
end.



Selamat mencoba!! ^_^

Posted in: Pascal