Perkalian Dua Matrik Pada Delphi

Matriks merupakan salah satu materi dalam bidang ilmu matematika yang sangat berguna bagi aplikasi ilmu-ilmu lain seperti Teknik Elektro, Mesin, Kimia, Sipil, dan ilmu teknik lainnya. Bahkan di bidang non teknik Matriks menjadi peralatan bantu utama dalam menyelesaikan permasalahan yang ada seperti pemecahan optimasi, pemecahan persamaan linear simultan, statistik dan berbagai bidang lainnya.

Dengan menggunakan Aplikasi Console pada delphi kita sebenarnya bisa menggunakan beberapa macam pengoperasihan matrik mulai dari penjumlahan, pengurangan, pembagian dan perkalian. dan disini Saya akan membahas Perkalian pada Dua buah Matrik dengan beberapa ordo yang berbeda pada delphi

Berikut Source Codenya : (Variabel Nama Sendiri Merupakan Tugas dari Kampus, Bisa di ganti sesuai dengan keinginan Anda)

program Mizan_SyaRoni;

{$APPTYPE CONSOLE}

uses

  SysUtils;

type

matrik = array [1..50,1..50] of integer;

var

Mizan,SyaRoni,k,x,y,z:integer;

a, b, c : matrik;

{Proses Peng-inputan}

procedure input (var h:matrik;x,y:integer);

var

Mizan, SyaRoni : integer;

begin

for Mizan:= 1 to x do

begin

for SyaRoni:=1 to y do

begin

write ('Data Ke[',Mizan,',',SyaRoni,'] = ');

readln(h[Mizan,SyaRoni]);

end;

end;

end;

{Proses Perkalian Matrik}

procedure proses(var x,y,z:integer);

begin

for Mizan:=1 to x do

begin

for SyaRoni:=1 to z do

begin

for k:=1 to y do

begin

c[Mizan,SyaRoni]:=c[Mizan,SyaRoni]+a[Mizan,k]*b[k,SyaRoni];

end;

end;

end;

end;

{Proses Tampilkan Pada Matrik}

procedure cetak(var c:matrik; x,z:integer);

var

Mizan, SyaRoni:integer;

begin

for Mizan:=1 to x do

begin

for SyaRoni:=1 to z do

begin

write(c[Mizan,SyaRoni],' ') ;

end;

writeln;

end;

end;

{Display Peng-inputan}

{Matrik A}

begin

write('========================');writeln;

writeln('Program Perkalian Dengan Matrik');

write('========================');writeln;

writeln('Ukuran Matrik A');

write ('Input Baris : ');readln(x);

write ('Input Kolom : ');readln(y);writeln;

{Matrik B}

write('========================');writeln;

writeln('Ukuran Matrik B');

writeln ('Input Baris : ',y);

write ('Input Kolom : ');readln(z);writeln;

write('========================');writeln;

{Input Matrik A}

writeln('Data Matrik A');

input(a,x,y);writeln;

cetak(a,x,y);writeln;readln;

write('========================');writeln;

{Input Matrik B}

writeln('Data Matrik B');

input(b,x,z);writeln;

cetak(b,x,z);writeln;

proses(x,y,z);readln;

write('========================');writeln;

write('Hasil Perkalian dari Matrik A dengan Matrik B adalah = ');writeln;readln;

cetak(c,x,z);

readln;

end.

Gambar 1 : Display Inputan Matrik A dan

Gambar 2 : Input Data Matrik Baris dan Kolom

Gambar 3 : Hasil Perkalian Matrik A dan B

Jika tutorial ini bermanfaat silahkan beri +1 Google ya, karena +1 kamu sangat berarti sekali untuk situs kami ini. Terimakasih :)