Program Menghitung Volume Balok

--------------------------------------------------------------------------------------------------------------------------

program volume_balok;
{I.S : user memasukan panjang,lebar, tinggi}
{F.S : menampilkan hasil dari volume balok}
var
   panjang,lebar,tinggi,volume : real;
begin
   writeln(' Menghitung Volume Balok ');
   writeln('--------------------------');
   write('Masukan Panjang Balok : ');readln(panjang);
   write('Masukan Lebar Balok   : ');readln(lebar);
   write('Masukan Tinggi Balok  : ');readln(tinggi);
   writeln('--------------------------');
   volume := panjang*lebar*tinggi/1000000;
   writeln('volume balok adalah : ',volume);
readln;
end.
--------------------------------------------------------------------------------------------------------------------------

Download Scripnya : 

catatan :

hargailah tulisan orang lain, jika anda mengcopy-paste harap cantumkan link sumber.