Pascal Program Kuadrat Volum Balok

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.

You May Like :

Share on Facebook

Share on Twitter

Share on Google+

Share on LinkedIn