cara untuk mencari program kuadrat volum gini tmn2, misalkan ada soal a = panjang balok, b. tinggi balok, c. lebar balok. Yang dikeluarkan adalah kuadrat luas kubus...jadi programnya adalah:
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.
0 Response to "Pascal Program Kuadrat Volum Balok"
Posting Komentar