Matriks-1

I like creating something out of nothing ....

Still in computer programming....

Kalau Anda sudah sampai di halaman ini, maka setidaknya Anda sudah membaca tentang matriks di halaman sebelumnya. Di halaman ini, akan dibahas tentang Penjumlahan dan Perkalian matriks.

Syarat Penjumlahan Matriks :
penjumlahan matriks dapat dilakukan jika ordo matriks nya sama, misalnya matriks 2 x 2 dapat dijumlahkan dengan matriks yang dimensinya juga 2 x 2.

Penjumlahan Matriks :
misalnya matriks 2 x 2 ditambahkan dengan matriks 2 x 2 sebagai berikut :
1 4 dijumlahkan dengan 2 3 perhitungan : (1+2) (4+3)
3 5 1 6 (3+1) (5+6)

Alur program :

Masukkan ordo matrik, misal baris = i dan kolom = j
Gunakan perulangan sebanyak baris dan sebanyak kolom untuk Matrik1 dan Matrik2

Masukkan nilai Matrik1 dan Matrik2
Tambahkan nilai Matrik1 dan Matrik2

Gunakan perulangan sebanyak baris dan sebanyak kolom

Cetak Matrik3 hasil dari penjumlahan matrik

Listring program :
Berikut program penjumlahan matrik :
program matriks;
uses crt;
var matrik1,matrik2,matrik3:array[1..50,1..50] of byte;
    i,j,baris,kolom:byte;
begin
   clrscr;
   {memasukkan ordo matrik}
   readln(baris,kolom);

   {memasukkan nilai matrik1 dan matrik2 serta menghitung matrik3}
   for i:= 1 to baris do
      for j:= 1 to kolom do begin
         readln(matrik1[i,j], matrik2[i,j]);
         matrik3[i,j]:=matrik1[i,j]+matrik2[i,j];
      end;

   {mencetak matrik hasil}
   for i:= 1 to baris do begin
      for j:= 1 to kolom do write(matrik3[i,j],' ');
      writeln;
   end;

   readkey;
end.

Perkalian Matriks :

Syarat perkalian 2 matrik adalah jumlah kolom pada matrik pertama = jumlah baris matrik kedua.

Contoh matrik ordo 2 x 2 berikut :
   a     b   dikalikan dengan   e    f   menjadi :   (axe)+(bxg) (axf)+(bxh)
   c     d                                 g    h                (cxe)+(dxg)     (cxf)+(dxh)

Alur program :

Masukkan ordo matrik, misal baris = i dan kolom = j
Gunakan perulangan sebanyak baris dan sebanyak kolom untuk Matrik1 dan Matrik2

Masukkan nilai Matrik1 dan Matrik2

Gunakan perulangan sebanyak baris dan sebanyak kolom

Gunakan perulangan sebanyak baris dari matrik kedua
Matrik3[baris,kolom] : =Matrik3[bris,kolom] + (Matrik1[baris,baris2]xMatrik2[baris2,kolom])

Listing program :
program matriks;
uses crt;
var matrik1,matrik2,matrik3:array[1..50,1..50] of byte;
    i,j,k,baris,kolom:byte;
begin
   clrscr;
   {memasukkan ordo matrik}
   readln(baris,kolom);

   {memasukkan nilai matrik}
   for i:= 1 to baris do
      for j:= 1 to kolom do begin
         readln(matrik1[i,j], matrik2[i,j]);
      end;

   {mengalikan matrik}
   for i:= 1 to baris do
      for j:= 1 to kolom do
         for k:= 1 to baris do
            matrik3[i,j]:=matrik3[i,j]+(matrik1[i,k]*matrik2[k,j]);

   {mencetak matrik hasil}
   for i:= 1 to baris do begin
      for j:= 1 to kolom do write(matrik3[i,j],' ');
      writeln;
   end;

   readkey;
end.

<< kembali ke PASCAL...Lihat operasi Transpose, Refleksi, Rotate >>