Contoh Procedure dalam Pascal

Kali Ini Tips&Trick Blog mau share tentang Contoh Bahasa Pemrograman, dan Aplikasi yang saya gunakan dalah PASCAL. Oke, di bawah ini ada sebuah contoh program Procedure menghitung Luas Bangunan yang hampir mirip prosesnya seperti Record menggunakan Bahasa Pemrograman PASCAL. Check This Out!.

Contoh Program PASCAL Procedure

Program Menghitung_Luas_Bangunan;

Uses crt;

Procedure HitungL;

Var

          p,l,lpp:integer;

Begin

          Clrscr;

          Write(‘Masukkan Panjang :  ‘);Readln(p);

          Write(‘Masukkan Lebar: ‘);Readln(l);

          Lpp:= p * l;

          Writeln(‘Hasil Luas Persegi Panjang: ‘,lpp);

          Readln;

End;

Procedure HitungK;

Var

          p,l,kpp:=integer;

Begin

          Write(‘Masukkan Panjang: ‘);Readln(p);

          Write(‘Masukkan Lebar: ‘);Readln(l);

          Kpp:= 2 * (p+l);

          Writeln(‘Hasil Keliling Persegi Panjang: ‘,kpp);

End;

Begin

          HitungL;

          HitungK;

End.

Gimana? Berhasil tidak? Misalkan tidak, coba di cek sesuai atau ngga sama tulisan yang di atas?. Dalam menulis Kodingan dibutuhkan kesabaran. Ingat!! Orang sukses pasti gagal dulu dan Jangan pernah berhenti mencoba dan mudah menyerah. Semoga Sukses!.