Program Bangun_Ruas_Bola;
uses crt;
var luas,volume,p,l,t :integer;
const
x=2;
begin
clrscr;
writeln('BANGUN RUAS BALOK');
writeln;
write('Panjang : ');readln(p);
write('Lebar : ');readln(l);
write('Tinggi : ');readln(t);
luas:=x*(p*l+p*t+l*t);
volume:=p*l*t;
writeln;
writeln;
writeln('Luas Pemukaan Balok : ',luas);
writeln('Volume Balok : ',volume);
readkey;
end.
2. Output Program "Rumus Ruas Balok"
2.1 Tampilan Bangun Ruas Balok
Gambar 2.1
2.2 Input Data Panjang, Lebar dan Tinggi
Gambar 2.2
2.3 Tampilan Luas dan Volume Pada Balok
Gambar 2.3
Selesai dan Terima Kasih
Tidak ada komentar:
Posting Komentar