mencari volume balok menggunakan program pascal

uses wincrt;

var
   a,b,c : integer;
   v : real ;

begin
write ('masukkan panjang balok = ');
readln (a);
write ('masukkan tinggi balok = ');
readln (b);
write ('masukkan lebar balok = ');
readln (c);
v:=a*b*c;
writeln ('volume balok adalah = ',v:0:2);
end.

Like THIS :
Share this article to: Facebook Twitter Google+ Linkedin Technorati Digg

Jika Anda menyukai Artikel di blog ini, Silahkan berlangganan gratis via email, dengan begitu Anda akan mendapat kiriman artikel setiap ada artikel yang terbit.


Proudly by UIN SUSKA RIAU