PENJUMLAHAN 'N PERKALIAN MATRIX

1.Penjumlahan Matrix :

#include<iostream.h>

#include <conio.h>

#include <iomanip.h>

int i, j, baris, kolom, m1[10]

[10], m2[10]

[10], hasil[10]

[10];

void main()

{

  clrscr();

  cout << "Operasi Penjumlahan Matrix\n";

  do

  {

   cout << "Jumlah Baris = "; cin>>baris;

   cout << "Jumlah Kolom = "; cin>>kolom;

  }

  while((baris>10)||(kolom>10));

/*  do

  while(kolom>10);*/

  cout << "\nMatrix A" << endl;

  for(i=0;i<baris;i++)

   for(j=0;j<kolom;j++)

    {

     cout <<"data [" << i << "," << j << "] = ";

     cin>>m1[i]

[j];

    }

  cout << "\nMatrix B" << endl;

  for(i=0;i<baris;i++)

   for(j=0;j<kolom;j++)

    {

     cout <<"data [" << i << "," << j << "] = ";

     cin>>m2[i]

[j];

    }

  for(i=0; i<baris;i++)

    for(j=0; j<kolom; j++)

      hasil[i]

[j] = m1[i]

[j] + m2[i]

[j];

  cout << "\nHasilnya..." << endl;

  cout << "Matrix A  +  Matrix B  =  Matrix C";

  for(i=0; i< baris; i++)

   {

    cout<<'\n';

    for(j=0; j<kolom; j++)

     cout << setw(4) << m1[i]

[j];

     cout << "     ";

    for(j=0; j<kolom; j++)

     cout << setw(4) << m2[i]

[j];

     cout << "     ";

    for(j=0; j<kolom; j++)

     cout << setw(4) << hasil[i]

[j];

    cout << endl;

   }

  getch();

}

ARRAY 2 DIMENSI

Array Dua Dimensi 
Di dalam pascal Array dapat berdimensi lebih dari satu yang disebut dengan array dimensi banyak (Multidimensional array), disini akan dibahas array 2 dimensi saja. Array 2 dimensi dapat mewakili suatu bentuk tabel atau matrik, yaitu indeks pertama menunjukkan baris dan indeks ke dua menunjukkan kolom dari tabel atau matrik. 
1 2 
1 2 3 
Untuk mengetahui cara mendeklarasikan dari penggunaan aray dua dimensi dapat dilihat pada listing program dibawah ini . 

Contoh Program: 
Program Deklarasi_Array_Dua_Dimensi; 
Uses Crt;
Var Tabel : Array[1..3,1..2] of Integer;
i,j : Integer;
Begin 
ClrScr; 
Tabel[1,1]:=1; 
Tabel[1,2]:=2; 
Tabel[2,1]:=3; 
Tabel[2,2]:=4; 
Tabel[3,1]:=5; 
Tabel[3,2]:=6; 
For I := 1 to 3 Do Begin For J:= 1 to 2 Do Begin Writeln('Elemen ',i,',',j,'= ',tabel[i,j]); 
End; 
End; 
Readln; 
End. 


IV. Alternatif Deklarasi Array Dua Dimensi. 
Ada beberapa cara dalam mendeklarasikan array dua dimensi, beberapa cara tersebut dapat dilihat dibawah ini : 
Contoh : 
Var 
Tabel : Array[1..3] of Array[1..2] of Byte; 
atau : 
Type 
Matrik = Array[1..3,1..2] of Byte; 
Var 
Tabel : Matrik; 
atau : 
Type 
Baris = 1..3; 
Kolom = 1..2; 
Matrik = Array[Baris,Kolom] of Byte; 
Var 
Tabel : Matrik; 
atau : 
Type 
Baris = 1..3; 
Kolom=1..2; 
Matrik= Array[Baris] of Array[Kolom] of Byte; 
Var 
Tabel : Matrik; 
Dibawah ini akan diberikan listing program penggunaan array dua dimensi dalam aplikasi penjumlahan matrik : 
Contoh Prorgam: 
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} 
For i:= 1 to 3 Do 
Begin 
For j:= 1 to 2 Do 
Begin 
Write(Hasil[i,j]:6); 
End; 
Writeln; 
End; 
Readln; 
End.