Tips : Bagi Anda yang saat ini semester I atau II atau III, belajar yang rajin dan tekun serta aktif berorganisasi juga yaa ! Kejar IP semester dan IPK yang tinggi jangan biarkan penyesalan menghampiri nantinya ;)

Tips : Usahakan jangan sampai ada kesalahan maupun yang terlewatkan dalam mengupload foto maupun pengisian pendaftaran online, pastikan foto yang diupload berukuran sesuai dengan syarat dan setiap kata dalam textfield maupun text area yang Anda isi benar dan sesuai. Cek/ review dapat Anda gunakan untuk melakukan pengecekkan hasil pendaftaran online.

Tips : Semangat terus dalam mempersiapkan segalanya termasuk mempersiapkan persyaratan administrasi, ini adalah pintu awal yang harus kamu lewati untuk mendapatkan djarum beasiswa plus. Jangan patah semangat dan selalu optimis !

Tips : Sebelum dimasukkan ke dalam amplop alangkah lebih baik kita memasukkan semua persyaratan administrasi ke dalam sebuah map. Menurut teman saya hal ini agar terlihat lebih sopan, yaa saya juga setuju dan tidak hanya telihat lebih sopan tetapi juga terlihat lebih rapi. Jangan lupa untuk menggunting dan menempelkan form dibawah garis (lihat halaman 1 bukti pendaftaran online) di amplop berkas pendaftaran Anda.

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