Dunia [masih] bersinar

Dalam matematika, matriks adalah kumpulan bilangan, simbol, atau ekspresi, berbentuk persegi panjang yang disusun menurut baris dan kolom. Bilangan-bilangan yang terdapat di suatu matriks disebut dengan elemen atau anggota matriks (Wikipedia). Matriks biasa digunakan dalam solusi menentukan sistem persamaan linear. Yak tidak usah banyak basa basi biar enggak tl;dr, kali ini saya membuat sebuah program dengan menggunakan bantuan bahasa Pascal yang dapat menghitung perkalian dua buah matriks. Berikut inilah hasilnya:

program perkalian2Matriks;

uses
    crt;

const
     size = 10;

var
   matA: Array[1..size, 1..size] of Integer;
   matB: Array[1..size, 1..size] of Integer;
   matC: Array[1..size, 1..size] of Integer;
   i,j,k,n1,m1,n2,m2,temp: integer;

begin
   repeat
   writeln('BANYAK KOLOM MATRIKS A HARUS SAMA DENGAN BANYAK BARIS MATRIKS B');
   writeln(' ');
   write('Banyaknya baris matriks A: ');
   readln(n1);
   write('Banyaknya kolom matriks A: ');
   readln(m1);
   writeln(' ');
   write('Banyaknya baris matriks B: ');
   readln(n2);
   write('Banyaknya kolom matriks B: ');
   readln(m2);
   writeln(' ');
   until (m1 = n2);

   {menginisiasi elemen matriks A}

   writeln('Masukkan elemen matriks A: ');
   For i := 1 To n1 do begin
       For j := 1 To m1 do begin
            write('A[',i,',',j,'] = ');
            readln(matA[i, j]);
       end;
   end;
   writeln(' ');

   {menginisiasi elemen matriks B}

   writeln('Masukkan elemen matriks B: ');
   For i := 1 To n2 do begin
       For j := 1 To m2 do begin
            write('B[',i,',',j,'] = ');
            readln(matB[i, j]);
       end;
   end;

   {menghitung perkalian}
   For i := 1 To n1 do begin
       For j := 1 To m2 do begin
           temp := 0  ;
           For k := 1 To n2 do begin
               matC[i, j] := temp + matA[i, k]*matB[k, j];
               temp := matC[i, j];
           end;
       end;
   end;

   {menampilkan hasil}
   writeln(' ');
   writeln('HASILNYA: ');
   For i := 1 To n1 do begin
       For j := 1 To m2 do begin
            write(matC[i, j], ' ');
       end;
       writeln(' ');
   end;
   readln;
end.

Berikut hasil saat kita menjalankan programnya: