Script untuk mencari Volume Balok.
Script untuk mencari Volume Balok.
uses wincrt;
var
p,l,t,v:integer;
begin
Writeln(‘——————————-’);
writeln(‘Program Menghitung Volume Balok’);
writeln(‘———by: rhez-qhe—————’);
write(‘Masukkan Panjang Balok= ‘);read(p);
write(‘Masukkan Lebar Balok= ‘);read(l);
write(‘Masukkan Tinggi Balok= ‘);read(t);
v:=p*l*t;
writeln(‘Volume balok adalah = ‘,v);
write(‘——-mision completed——–’);
end.
Categories: Pascal