Perkalian Matriks Menggunakan Array pada Pascal


       Untuk Postingan Kali Ini Tentang Perkalian Matriks Menggunakan Array Pada Pascal sebelum saya memberikn source codenya alangkah baiknya kita bahas dulu Apa Itu Array ? dan Apa Itu Matriks ? 

       Array Adalah tipe data bentukan yang terdiri dari kumpulan-kumpulan tipe data lain.Array adalah cara supaya mengefisienkan saat kita membuat banyak variabel dan untuk itu variabel itu disimpan di array.
    
      Matriks adalah susunan kumpulan bilangan yang diatur dalam baris dan kolom berbentuk persegi panjang.Matriks Memiliki ciri elemen elemen penyusun yang diapit dengan tanda kurung siku ("[..]") atau tanda kurung biasa "(...)".

   Untuk Source Codenya Bisa Dilihat Dibawah ini:


program perkalian_matriks;

uses crt;

var
   matrik1 : array[1..3,1..2] of integer;
   matrik2 : array[1..2,1..3] of integer;
   hasil : array[1..3,1..3] of integer;
   b,k,z : integer;
begin
     clrscr;
     writeln('Input Isi Matriks 1 ');
     for b := 1 to 3 do begin
     for k := 1 to 2 do begin
     write('Baris Ke ',b,' ','Kolom ke ',k,'= ');
     readln(matrik1[b,k]);
     end;
     end;
     writeln('Input Isi Matrik 2 ');
     for b:= 1 to 2 do begin
     for k:= 1 to 3 do begin
     write('Baris Ke ',b,' ','Kolom Ke ',k,'= ');
     readln(matrik2[b,k]);
     end;
     end;
     writeln('Matrik 1');
     for b:= 1 to 3 do begin
     for k:= 1 to 2 do begin
     write(matrik1[b,k],' ');
     end;
     writeln;
     end;
     writeln('Matrik 2');
     for b:= 1 to 2 do begin
     for k:= 1 to 3 do begin
     write(matrik2[b,k],' ');
     end;
     writeln;
     end;

     writeln(' Hasil Dari Perkalian matrik 1 dan 2 : ');
     for b:= 1 to 3 do begin
     for k:= 1 to 2 do begin
     hasil[b,k]:=0;
     for z:= 1 to 2 do
     hasil[b,k] := hasil[b,k]+matrik1[b,z]*matrik2[z,k];
     end;
     end;
     for b:= 1 to 3 do begin
     for k:= 1 to 3 do begin
     write(hasil[b,k],' ');
     end;
     writeln;
     end;
     readln;
end.

       Copy-Paste kan Source Code Diatas Ke Aplikasi Pascal Anda Masing Masing Disini Saya menggunakan Aplikasi Free Pascal,Setelah dipastekan selanjutnya di compile maka hasilnya akan seperti ini :




Sekian Postingan Kali ini semoga bermanfaat untuk anda semua.Terima Kasih
Selamat Ngoding :)
Previous
Next Post »