Program menghitung luas, keliling dan volume balok-(turbo pascal)

Selamat datang di blog Muslih System, pada postingan kali ini akan membahas mengenai cara menghitung Luas, Keliling dan Volume Balok, untuk Rumus matematikanya:

-Rumus Luas:

- Rumus Keliling:

- Rumus Volume :

Keterangan:

L : Luas	p : Panjang
K : Keliling	l : Lebar
V : Volume	t : Tinggi

dan untuk sintak programnya:

uses wincrt;
var
p,lb,t:integer;
l,k,v : real;
begin
writeln ('=============================');
writeln (' Menghitung Luas, keliling &');
writeln ('         Volume Balok ');
writeln ('=============================');
writeln (' ');
write ('Masukan Panjang : ');readln (p);
write ('Masukan Lebar   : ');readln (lb);
write ('Masukan Tinggi  : ');readln (t);
l := 2*((p*lb)+(p*t)+(lb*t));
k := ((p+lb+t))*4;
v := p*lb*t;
writeln ('Luas Pemukaan Balok : ', l:1:1 , ' satuan luas');
writeln ('Keliling Balok      : ', k:1:1 , ' satuan keliling');
writeln ('Volume Balok        : ', v:1:1 , ' satuan Volume');
readln;
end.

Dan berikut tampilan programnya setelah dijalankan:

Bagi yang mau download Source Kodenya silahkan download link dibawah:

Selamat Mencoba & Semoga Bermanfaat.