Misalkan a = panjang balok, b. tinggi balok, c. lebar balok. Yang dikeluarkan adalah kuadrat volum balok
Program kuadrat_volum_balok ;
{ diberikan tiga buah bilangan a, b, c kemudian dari ketiga bilangan tersebut dimasukkan
kedalam rumus volume balok kemudian hasilnya dikuadratkan }
uses wincrt ;
var
a, b, c, kuadrat_volum : longint ;
begin
readln (a) ; {panjang balok}
readln (b) ; {tinggi balok}
readln (c) ; {lebar balok}
kuadrat_volum := sqr(a * b * c) ;
writeln ( 'kuadrat_volum =' , kuadrat_volum) ;
end.
selamat mencoba,,
notice:
program menggunakan aplikasi TPW 1.5
