May 10


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.

Enjoy this Post!

Add to Mixx!

Random Posts




Leave a Reply