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.

You May Like :

Share on Facebook

Share on Twitter

Share on Google+

Share on LinkedIn