mencari volume balok menggunakan program pascal

shares

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.

Related Posts

0 comments: