Program Penjumlahan Matriks 3x2 Dengan Pascal

Kali ini saya akan menulis artikel tentang cara membuat program untuk menjumlahkan dua buah Matriks 2x3 dengan menggunakan pascal.. Mungkin sudah banyak dari kita yang mengenal matrix eit tapi bukan film The Matrix yah. Matrik adalah susunan bilangan (elemen) yang di susun menurut baris dan kolom sehingga berbentuk persegi panjang. Nah, sekarang kita langsung saja meluncur ke script pascalnya :

Program Penjumlahan_matrik; uses crt; var matrik1, matrik2 , hasil : array[1..3,1..2] of integer; i , j : integer; begin clrscr; { input matrik ke satu } writeln(' Elemen matrik satu'); for i := 1 to 3 do begin for j := 1 to 2 do begin write('Elemen baris -',i,' kolom -',j,'= '); readln(matrik1[i,j]); end; end; {input matrik ke dua} writeln('input elemen matrik dua'); for i:= 1 to 3 do begin for j:= 1 to 2 do begin write('Elemen baris -',i,' kolom -',j,'= '); readln(matrik2[i,j]); end; end; {proses penjumlahan tiap elemen} for i := 1 to 3 do begin for j:= 1 to 2 do begin hasil[i,j]:=matrik1[i,j]+matrik2[i,j]; end; end; {proses cetak hasil} writeln(' '); for i:= 1 to 3 do begin for j:= 1 to 2 do begin write(matrik1[i,j]:4); end; writeln; end; writeln('+'); for i:= 1 to 3 do begin for j:= 1 to 2 do begin write(matrik2[i,j]:4); end; writeln; end; writeln('='); for i:= 1 to 3 do begin for j:= 1 to 2 do begin write(hasil[i,j]:4); end; writeln; end; readln; end.

Sebenarnya script ini bisa menjadi lebih ringkas lagi namun agar mudah dimengerti jadi dijabarkan satu - persatu. jika anda berhasil menjalankannya maka tampilanya akan seperti di atas.