Program persegi panjang

Berikut merupakan Program Persegi panjang menggunakan bahasa Pascal dengan menggunakan statement PROCEDURE.

• SOURCE CODE

Program  persegi_panjang;
uses crt;
var
   p, l : integer;
   Procedure hitungluas(panjang, lebar : integer);
var
   luas : integer;
begin
     luas := panjang*lebar;
     writeln('Luas persegi panjang = ',luas);
end;
begin
clrscr;
     write('Masukkan panjang = ');readln(p);
     write('Masukkan lebar      = ');readln(l);
      hitungluas(p,l);
readkey;
end.

• PENJELASAN SOURCE CODE

Program persegi_panjang;     {Judul Program}
uses crt;     {Deklarasi unit CRT}
var     {Variabel}
   p, l : integer;     {Inisiasi variabel}
   Procedure hitungluas(panjang, lebar : integer);     {Inisiasi procedure}
var     {Variabel}
   luas : integer;      {Inisiasi variabel}
begin     {Awal instruksi program}
   luas := panjang*lebar;     {Counter perkalian luas}
   writeln('Luas persegi panjang = ',luas);     {Cetak Luas persegi panjang =, variabel luas}
end;     {Akhir instruksi kondisi}
begin     {Awal instruksi program}
clrscr;     {Membersihkan layar}
     write('Masukkan panjang    = ');      {Cetak Masukkan panjang    =}
     readln(p);     {Baca variabel p}
     write('Masukkan lebar         = ');     {Cetak Masukkan lebar   =}
     readln(l);     {Baca variabel l}
     hitungluas(p,l);     {Panggil procedure}
readkey;     {Instruksi untuk menunggu}
end.     {Akhir instruksi program}

• PRINT SCREEN OUTPUT

Untuk mempermuda anda dalam mempelajari pemograman dengan menggunakan bahasa Pascal, admin telah menyediakan file Source code, Penjelasan source code, Output program, Flowchart dari source code, serta file pascalnya. Anda dapat mendownloadnya secara gratis di link download di bawah ini.

• Title Program           :  Persegi panjang
• Source Code .pdf      : .:_Download_:.
• Flowchart .png         : .:_Download_:.
• Program .pas            : .:_Download_:.
• Password                  : kamuspascal.blogspot.com

Jika anda tidak tahu bagaimana cara mendownload file-file di atas klik Disini, untuk mempelajarinya.