Archive for Juli 2015

- Program Penjumlahan Dua Matrik dengan Bahasa Pascal -

Assalamualaikum Warahmatullahi Wabarakatu
Rekan-rekan, Alhamdulillah saya saat ini akan memasuki semester V dalam konsentrasi ilmu Teknik Informatika. Tidak terasa, waktu seakan cepat berlalu rasanya baru kemaren deh saya masuk kuliah. Naahh saat ini saya sedang liburan semester + liburan hari raya Idul Fitri dan saya ingin berbagi pengetahuan dan pengalaman membuat program ‘from zero’, program yang akan saya bagikan pada postingan ini adalah program latihan yang dulu saya buat ketika di semester I, yups ketika saya masih ‘cupu-cupunya’ dalam membuat program haha. ‘Sekarang gimana bay ?’ ‘lumayan masih cupu’, ‘why ?’ because I feels.. I still can’t make a program that can helpful the people and solved a problem. Banyak sekali ide-ide yang ingin saya implementasikan menjadi sebuah ‘produk’ aplikasi, tapi saya masih harus banyak belajar lagi untuk itu. Oke enough, back to the article! Program yang ingin saya share pada postingan kali ini adalah Program Penjumlahan Dua Buah Matrik dengan menggunakan Bahasa Pascal.
Perlu diperhatikan sebelum membuat program ini, Penjumlahan dua buah matrik dapat dilakukan hanya jika kedua matrik tersebut berordo sama atau memiliki panjang baris dan kolom yang sama.
Jadi kita buat masukkan 2 variabel, variabel yang pertama sebagai baris dan yang kedua sebagai kolom. Variabel baris dan kolom tersebut kita gunakan untuk kedua matriks misal matrik A dan matrik B, baris M dan kolom N. Jadi matrik A berordo M x N begitu juga matrik B berordo M x N.
Berikut adalah source code Program Penjumlahan Dua Buah Matrik dengan menggunakan Bahasa Pascal:
program Penjumlahan_Dua_Matriks_by_BayuWPP;
{I.S. : user memasukkan banyaknya baris (M), banyaknya kolom (N) dan dua buah matriks yang akan dijumlahkan}
{F.S. : menampilkan matriks hasil penjumlahan}
uses crt;
{kamus Global}
const
   Maks_Baris = 5;
   Maks_Kolom = 5;
Type
   Matriks = array [1..Maks_Baris,1..Maks_Kolom] of integer;
var
   A,B : Matriks;
   M,N : integer;
   {
    Program ini dibuat oleh
    Bayu Wijaya Permana Putra
   }
procedure IsiMatriks(var M,N : integer; var A,B:Matriks);
{I.S. : user memasukkan banyaknya baris (M), banyaknya kolom (N) dan dua buah matriks yang akan dijumlahkan}
{F.S. : menghasilkan banyaknya baris (M), banyaknya kolom (N) dan dua buah matriks yang akan dijumlahkan}
var{kamus lokal}
   i,j : integer;
begin
   {memasukkan banyaknya baris dan banyaknya kolom}
   gotoxy(1,1);write('Banyaknya Baris : ');readln(M);
   while(M > Maks_Baris)
   do
   begin
       write('Maksimal Baris adalah 5');readln();
       gotoxy(19,1);clreol();
       gotoxy(1,2);clreol();
       gotoxy(19,1);readln(M);
   end;//endwhile
   gotoxy(1,2);write('Banyaknya Kolom : ');readln(N);
   while(N > Maks_Kolom)
   do
   begin
        write('Maksimal Kolom adalah 5');readln();
        gotoxy(19,2);clreol();
        gotoxy(1,3);clreol();
        gotoxy(19,2);readln(N);
   end;//endwhile

   {memasukkan elemen matriks}
   clrscr;gotoxy(28,22);write('Copyright 2013 by @BayuWPP');
   gotoxy(23,23);write('Programmer : Bayu Wijaya Permana Putra');
   gotoxy(1,1);write('Matriks A');
   gotoxy(1,2);write('=========');
   for i := 1 to M do
   begin
       for j := 1 to N do
       begin{*Programmer BayuWPP*}
          gotoxy(j*5-4,i+2);readln(A[i,j]);
       end;//endfor
   end;//enfor
   {
    Program ini dibuat oleh
    Bayu Wijaya Permana Putra
   }
   gotoxy(35,1);write('Matriks B');
   gotoxy(35,2);write('=========');
   for i := 1 to M do
   begin
       for j := 1 to N do
       begin
          gotoxy(j*5+30,i+2);readln(B[i,j]);
       end;//endfor
   end;//enfor
end;//endprocedure

function JumlahMatriks(A,B:Matriks; i,j:integer) : integer;
{I.S. : dua buah matriks yang akan dijumlahkan sudah terdefinisi}
{F.S. : menghasilkan elemen matriks hasil penjumlahan}
begin      {
    Program ini dibuat oleh
    Bayu Wijaya Permana Putra
   }
     JumlahMatriks := A[i,j] + B[i,j];
end;//endfunction

procedure TampilMatriks(M,N : integer; A,B:Matriks);
{I.S. : banyaknya baris (M), banyaknya kolom (N) dan matriks hasil penjumlahan sudah terdefinisi}
{F.S. : menampilkan matriks hasil penjumlahan}
var {kamus lokal}
   i,j : integer;
   C   : Matriks;
begin
   gotoxy(12,13);write('Hasil Matriks A+B');
   gotoxy(12,14);write('=================');
   for i := 1 to M do
   begin
      for j := 1 to N do
      begin
          C[i,j] := JumlahMatriks(A,B,i,j);
   {
    Program ini dibuat oleh
    Bayu Wijaya Permana Putra
   }     gotoxy(j*5+12,i+14);write(C[i,j]);
      end;//endfor
   end;//endfor
end;//endprocedure

{program utama}
begin
   gotoxy(28,22);write('Copyright 2013 by @BayuWPP');
   gotoxy(23,23);write('Programmer : Bayu Wijaya Permana Putra');
   IsiMatriks(M,N,A,B);
   TampilMatriks(M,N,A,B);
   readln;
end.
Bagaimana mudah kan ?
Alangkah lebih baik jika Anda tidak hanya copy paste source program ini saja, tetapi Anda coba membuat sendiri dari awal, jika menemukan kesulitan barulah Anda menanyakan (boleh bertanya pada saya) dan melihat contoh program.
Sekian pembahasan kita mengenai Program Penjumlahan Dua buah Matrik dengan Menggunakan Bahasa Pascal, semoga dapat bermanfaat !


Wassalamualaikum Warahmatullahi Wabarakatu
Welcome to BIG !!!

Find BIG on Facebook

Popular Post

Copyright © 2013 Bayyz Informatics Gallery. Diberdayakan oleh Blogger.

- Copyright © Big Informatics Gallery by Bayu Wijaya Permana Putra - Powered by Blogger - Supported by Google -