Posted by : Bayu Wijaya Permana Putra Minggu, 31 Mei 2015


Assalamualaikum Warahmatullahi Wabarakatu
Alhamdulillah saya dapat kembali menyusun postingan yang Insya Allah bermanfaat.

Seperti pada judul diatas kita akan membuat program untuk menjumlahkan seluruh elemen matrik dengan menggunakan bahasa pemrogramman pascal dan aplikasinya adalah dev-pascal. Bagi Anda yang belum memiliki aplikasinya dapat Anda download secara gratis di Free Download Aplikasi Dev-Pascal dengan Penjelasan beserta Tipsnya.
Baik kita mulai membuat program. Let's go !
Untuk membuat sebuah matriks berordo M x N kita harus menyediakan maksimum baris dan maksimum kolom (buatlah konstanta).
Nah untuk matriksnya kita gunakan sebuah array [M, N] atau array[1..Maks_Baris, 1..Maks_Kolom]
Untuk lebih lengkapnya silahkan Anda lihat source proram dibawah ini :
program Jumlah_Total_Elemen_Matriks;
{I.S. : User memasukkan elemen matriks A berordo M x N (M=baris matriks, N=kolom matriks)}
{
      *Program ini dibuat oleh Bayu Wijaya Permana Putra
}
{F.S. : Menampilkan jumlah total elemen matrik}
uses crt;
{kamus global} {
      *Program ini dibuat oleh Bayu Wijaya Permana Putra
}
const
  Maks_Baris = 10;
  Maks_Kolom = 10;
type
  matriks= array [1..Maks_Baris,1..Maks_Kolom] of integer;
var
  A: matriks;
  M,N : integer; {M: banyaknya baris, N: banyaknya kolom}

{====================Procedure isi Matriks====================}
Procedure Isi_Matriks(var M,N: integer; var A:matriks);
{I.S. : user memasukkan elemen matriks A berordo M x N}
{
      *Program ini dibuat oleh Bayu Wijaya Permana Putra
}
{F.S. : Menghasilkan sebuah Matriks A berordo M x N}
{
      *Program ini dibuat oleh Bayu Wijaya Permana Putra
}
var {kamus lokal}
  i,j: integer;
begin
  gotoxy(28,22);write('Copyright 2013 by @BayuWPP');
  gotoxy(23,23);write('Programmer : Bayu Wijaya Permana Putra');
  gotoxy(1,1);write('Banyaknya Baris : ');readln(M);
  gotoxy(1,2);write('Banyaknya Kolom : ');readln(N);
  {Mengisi matriks}
  clrscr;
  gotoxy(1,1);write('Matriks A');
  gotoxy(1,2);write('=========');
  for i:= 1 to M do
  begin
    for j:= 1 to N do
      begin
        {
         *Program ini dibuat oleh Bayu Wijaya Permana Putra
        }
        gotoxy(j*5-4,i+2);readln(A[i,j]);
      end;//endfor
  end;//endfor
end;//endprocedure

{===================Function TotalElemen===================}
function TotalElemen(M,N:integer; A:matriks) : integer;
{I.S. : Matriks A berordo M x N sudah terdefinisi}
{F.S. : Menghasilkan jumlah total elemen matriks A berordo M x N}
var {kamus lokal}
  i,j : integer;
  Total : integer;
begin
  {inisialisasi (total mula-mula)}
  Total := 0;
  {penjumlahan}
  for i:= 1 to M do
  begin
    for j:= 1 to N do
    begin
       Total := Total + A[i,j];
    end;//endfor
  end;//endfor
  {
      *Program ini dibuat oleh Bayu Wijaya Permana Putra
  }
  TotalElemen := Total;
end;//endprocedure

procedure Tampil_Total(M,N:integer; A:matriks);
{I.S. : jumlah total elemen matriks A berordo M x N sudah terdefinisi}
{F.S. : Menampilkan jumlah total elemen matriks A}
begin
  gotoxy(28,22);write('Copyright 2013 by @BayuWPP');
  gotoxy(23,23);write('Programmer : Bayu Wijaya Permana Putra');
  gotoxy(1,13);write('Jumlah total elemen matriks adalah ',TotalElemen(M,N,A));
end;//endprocedure

{Program Utama}
begin
     {
      *Program ini dibuat oleh Bayu Wijaya Permana Putra
     }
  Isi_Matriks(M,N,A); {memanggil procedure Isi_Matriks}
  Tampil_Total(M,N,A); {memanggil procedure TampilTotal}
  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.
Demikian artikel tentang bagaimana membuat Program Penjumlahan Seluruh Elemen Sebuah Matrik dengan Menggunakan Bahasa Pascal. Semoga bermanfaat !!!
Keep learn and keep doing !!! Don't stop tying !

Wassalamualaikum Warahmatullahi Wabarakatu

Leave a Reply

Subscribe to Posts | Subscribe to Comments

Welcome to BIG !!!

Butuh Solusi IT ?

Service Komputer/ Laptop ? atau Installasi Jaringan Komputer ? atau Solusi Algoritma dan Pemrogramman ? atau Pembuatan Aplikasi Android/ Web/ Dekstop ?

Contact Me
Call or Message
+6285 8715 000 98

Find BIG on Facebook

You Can Support BIG !

BIG adalah media informasi berbasis web dalam blog yang memberikan berbagai macam informasi, tutorial, dan ilmu pengetahuan, terutama dalam bidang IT dan Pemrogramman

Anda bisa memberikan donasi melalui transfer langsung ke rekening dibawah ini! Berapapun jumlah donasi yang Anda kirim saya ucapkan terima kasih banyak dan akan sangat bermanfaat agar blog ini semakin berkembang.

Bank :
No. Rekening : 0307429851
A/N : Bayu Wijaya Permana Putra

Popular Post

Copyright © 2013 Bayyz Informatics Gallery. Diberdayakan oleh Blogger.

Followers

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