Program persegi panjang

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

• SOURCE CODE

Program persegi_panjang;
uses crt;
var
   p, l : integer;
function hitungluas(panjang,lebar : integer):integer;
begin
   hitungluas :=panjang*lebar;
end;
{program utama}
begin
clrscr;
     write('Masukkan Panjang   = ');readln(p);
     write('Masukkan Lebar      = ');readln(l);
     writeln('Luas persegi panjang   = ',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}
function hitungluas(panjang,lebar : integer):integer;     {Inisiasi Function}
begin     {Awal instruksi program}
   hitungluas :=panjang*lebar;     {Counter perkalian hitungluas}
end;     {Akhir instruksi kondisi}
{program utama}
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}
     writeln('Luas persegi panjang   = ',hitungluas(p,l));     {Cetak Luas persegi panhang =, baca function}
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.