Program Pascal Untuk Menghitung Perkalian Matrik 2x3 dan 3x2

Program Pascal Untuk Menghitung Perkalian Matrik 2x3 dan 3x2 - Matriks adalah sekumpulan bilangan yang disusun secara baris dan kolom, jumlah atau ukuran baris dan kolom matriks di sebut ordo. Untuk mengalikan dua buah matriks terdapat beberapa kondisi yaitu :

1. Banyaknya kolom matriks A harus sama dengan banyaknya kolom matriks B, sehingga n = p
2. Matriks hasil perkalian antara A dan B adalah matriks dengan ordo m x q
3. Perkalian dilakukan dengan menjumlahkan hasil kali setiap elemen baris matriks A dengan setiap elemen kolom matriks B yang sesuai

Kali ini kita akan belajar cara membuat program perkalian matriks 2x3 dan 3x2 dengan menggunakan pascal, dengan teknik perulangan kita akan mengalikan setiap baris dan kolomnya. untuk lebih jelasnya langsung saja ke scriptnya.

program x_mtrik;
uses crt;

var
matrikA : array[1..2, 1..3] of integer;
matrikB : array[1..3, 1..2] of integer;
matrikC : array[1..2, 1..2] of integer;

k,l,m : integer;

begin
clrscr;
writeln('Elemen Matrik A : ');
for k:=1 to 2 do
    begin
        for m:=1 to 3 do
        begin
        write('Baris-',k,'Kolom-',m,'=');
        readln(matrikA[k,m]);
    end;
end;

writeln;
writeln('Elemen Matrik B : ');

for m:=1 to 3 do
    begin
        for l:=1 to 2 do
        begin
        write('Baris-',m,'kolom-',l,'=');
        readln(matrikB[m,l]);
    end;
end;

for k:= 1 to 2 do
    begin
        for l:=1 to 2 do
        begin
        matrikC[k,l]:=0;
                for m:=1 to 3 do
                begin
                MatrikC[k,l]:=matrikC[k,l] + matrikA[k,m] * matrikB[m,l];
        end;
    end;
end;

writeln;
for k:=1 to 2 do
    begin
        for m:=1 to 3 do
        begin
        write(matrikA[k,m]:4);
    end;
    writeln;
end;

writeln('X');
for m:=1 to 3 do
    begin
        for l:=1 to 2 do
        begin
        write(matrikB[m,l]:4);
    end;
    writeln;
end;

writeln('=');
for k:=1 to 2 do
    begin
        for l:=1 to 2 do
        begin
        write(matrikC[k,l]:4);
    end;
    writeln;
end;

readln;
end.

Maka hasilnya akan seperti gambar di atas.

Baca juga : Program Sederhana Pascal Konversi Biner Ke Desimal

Program Pascal Untuk Menghitung Perkalian Matrik 2x3 dan 3x2 anda sekarang sudah selesai, baca juga tutorial program pascal lainnya.