Program Pascal Untuk Menghitung Perkalian Matrik 2x3 dan 3x2

Bilangan prima adalah bilangan asli yang lebih besar dari 1, yang faktor pembaginya adalah 1 dan bilangan itu sendiri. 2 dan 3 adalah bilangan prima. 4 bukan bilangan prima karena 4 bisa dibagi 2. Sepuluh bilangan prima yang pertama adalah 2, 3, 5, 7, 11, 13, 17, 19, 23 dan 29.

Sebelumnya kita sudah pernah membuat dengan menggunakan bahasa PHP kali ini kita akan membuat program untuk menampilkan bilangan prima dengan pascal. untuk lebih jelasnya kita langsung saja menuju 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: