Program Penjumlahan Matriks 3x2 Dengan Pascal

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.

Baca juga : Program Pascal Untuk Konversi Desimal ke Romawi ke Biner ke Hexadesimal

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.

Program Penjumlahan Matriks 3x2 Dengan Pascal anda sekarang sudah selesai, baca juga tutorial program pascal lainnya.