Prosedur untuk Menghitung Luas, Volume, dan Keliling Balok

Setelah anda memahami Konsep pemrograman pascal dengan prosedur, maka anda dapat mengembangkannya dengan mempelajari program di bawah ini. Program ini untuk  Menghitung Luas, Volume, dan Keliling Balok dengan menggunakan Prosedur.

Rumus Balok :

Luas = 2pl + 2lt  + 2pt
Volume = plt
Keliling = 4 (p + l + t )

Algoritma :

1.    Mulai
2.    Input Data p, l, dan t
3.    Hitung Luas Balok
4.    Hitung Vomele balok
5.    Hitung Keliling balok
6.    Cetak Hasil
7.    Selesai

Dalam program, nampak bahwa langkah 2 hingga 4 berbentuk prosedur.  Berdasarkan algoritma di atas, kita akan membuat 5 buah prosedur dengan tugas masing-masing yaitu :

1.    INPUTDATA untuk melakukan input data panjang, lebar dan tinggi.
2.    LUASBALOK : Untuk menghitung luas Balok
3.    VOLUMEBALOK : Untuk menghitung Volume Balok
4.    KELBALOK : Untuk menghitung Keliling Balok
5.    CETAKDATA : Untuk mencetak output /hasil perhitungan.

Dengan menggunakan prosedur, maka pembuatan program tampak sangat sederhana. Namun logika dan cara kerja prosedurnnya yang penting untuk dipahami dengan baik. Dalam blok Program Utama, setiap prosedur dipanggil untuk melakukan tugasnya masing-masing.

Perhatikan dan pelajari program di bawah ini.

PROGRAM BALOK;
USES CRT;

PROCEDURE LUASBALOK(p,l,t:real; var hl : real);
Begin
   hl:=2*(p+l+t);
End;

PROCEDURE VOLUMEBALOK(p,l,t : real; var hv:real);
Begin
    hv:=p*l*t;
End;

PROCEDURE KELBALOK(p,l,t:real; var hk:real);
Begin
   hk:=4*(p+l+t);
End;

PROCEDURE INPUTDATA(var p,l,t:real);
Begin
   write('Panjang = ');readln(p);
   write('Lebar   = ');readln(l);
   write('Tinggi  = ');readln(t);
End;

PROCEDURE CETAKDATA(x,y,z,p,q,r : real);
Begin
  clrscr;
  writeln('Panjang balok = ',x:0:2);
  writeln('Lebar         = ',y:0:2);
  writeln('Tinggi        = ',z:0:2);
  writeln;
  writeln('Luas     = ',p:0:2);
  writeln('Volume   = ',q:0:2);
  writeln('Keliling = ',r:0:2);
End;

{Program Utama}
var a,b,c, hl,hv,hk : real;

Begin
   INPUTDATA(a,b,c);
   LUASBALOK(a,b,c,hl);
   VOLUMEBALOK(a,b,c,hv);
   KELBALOK(a,b,c,hk);
   CETAKDATA(a,b,c,hl,hv,hk);
   readln;
End.

Program pascal dengan prosedur sangat penting anda gunakan untuk mengembangkan sebuah program yang ukurannya besar atau sangat besar. Misalnya Kasus untuk menghitung  penjumlahan matriks dan perkalian matriks.

Bagi anda yang ingin mendownload artikel ini, silakan Download disini.

Semoga bermanfaat.
God bless you all.